GUID Parameterübergabe ADOQuery

[WizoHulk]

Hallo

ich hänge mal wieder ziemlich fest.

Ich führe ein SQL Update aus und übergebe die Werte mit Parametern.
Ein Wert ist eine Identifikationsnummer(GUID) die ich auch übergeben will.
Ist die Numnmer nicht Gesetzt kommt ein 'NULL' als string zurück was dann zu einen Fehler führt.

Kann man das irgendwie in der Query einstellen.

hier mal mein Code

Delphi-Quellcode:

CreateQuery(qtemp);
  qtemp.ParamCheck := true;
  qTemp.SQl.text := 'UPDATE AnalyseAkquiseConfig SET '+
                                       'Event              = :Event, '              +
                                       'Betreff            = :Betreff, '            +
                                       'TerminText         = :TerminText, '        +
                                       'MitTyp             = :MitTyp, '            +
                                       'IAkteAkquise       = :IAkteAkquise, '      +
                                       'MitDSN             = :MitDSN, '            +
                                       'KontaktTyp         = :KontaktTyp, '        +
                                       'ProzessDSN         = :ProzessDSN '        +
                                       'OnOwnEventNoCreate = :OnOwnEventNoCreate, '+
                                       'Gewichtung         = :Gewichtung '         +
                    'WHERE DSN = '+alsDSN(sSatzDSN);
  //Parameterübergabe
  qtemp.Parameters.ParamByName('Event').Value              := IntToStr(ZuAkqEvntNr(cbEvent.ItemIndex));
  qtemp.Parameters.ParamByName('Betreff').Value            := eBetreff.Text;
  qtemp.Parameters.ParamByName('TerminText').Value         := Bemerkungen.Text;
  qtemp.Parameters.ParamByName('MitTyp').Value             := AlsZahl(IntToStr(cbMitarbeiter.ItemIndex));
  qtemp.Parameters.ParamByName('IAkteAkquise').Value       := AlsZahl(IntToStr(cbAktion.ItemIndex));
  qtemp.Parameters.ParamByName('MitDSN').Value             := '{B6625AD8-D894-4D25-BCBE-6A610E295903}';//AlsDSN(beMitarbeiter.DSN);


  qtemp.Parameters.ParamByName('KontaktTyp').LoadFromStream(sStream,ftBlob);
  qtemp.Parameters.ParamByName('ProzessDSN').Value         := ProzessSQL;// Result := 'NULL' oder GUID
  qtemp.Parameters.ParamByName('OnOwnEventNoCreate').Value := BoolToStr(cbOnOwnEventNoCreate.Checked);
  qtemp.Parameters.ParamByName('Gewichtung').Value         := AlsZahl(IntToStr(
                                                                                AkquiseBewertungZuInt(
                                                                                  TGewichtung(cbPrioritaet.ItemIndex),
                                                                                  TGewichtung(cbStorno.ItemIndex),
                                                                                  TGewichtung(cbAbschluss.ItemIndex),
                                                                                  TGewichtung(cbKundenbindg.ItemIndex),
                                                                                  TGewichtung(cbProv.ItemIndex),
                                                                                  TGewichtung(cbHaftung.ItemIndex))
                                                                                ));

  qTemp.ExecSQL;