resultat der select anweisung an delphi-variable übergeben

[arcon]

hallo miteinander,

ich würde gerne mit der SQL-anweisung
select db_id ('Database') überprüfen, ob eine Datenbank angelegt ist.
im normalfall ist das ergebenis der selectanweisung eine zahl.
falls die datenbank nicht vorhanden ist, wird eine NULL zurückgegeben.

nun möchte ich gerne mit einer if-anweisung in delphi die variable abfragen,
ob sie nicht NULL ist. Sollte sie nicht Null sein, möchte ich gerne eine fehlermeldung ausgeben.

jedoch stehe ich gerade vor dem problem, dass ich nicht so recht weiß, wie ich das resultat der select-anweisung an eine variable in delphi übergebe .. ?!?

könnte mir da jemand weiterhelfen ?

gruß Arcon

[mkinzler]

Sollte dann als erstes Feld der Ergebnismenge erscheinen. Welche Komponenten setzt du ein?

[arcon]

delphi version 10
ms sql server 2005

connection string bau ich mir in delphi auf und nicht über sogenannte ado-kompo`s

momentan hab ich es mir so ausgedacht ..aber leider funkt. das net so ..

SQL-Code:

SQL := 'select db_id(''testversion'')';

adoConn := TADOConnection.Create(nil);
  try
    adoConn.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security ..';
      if (not adoConn.Connected) then
        adoConn.Open;

      if (adoConn.Execute(SQL) = NULL) then

      Prozessparameter_Stammdaten_loeschen(Sender);

      if (adoConn.Connected) then
        adoConn.Close;
  finally
    FreeAndNil(adoConn);
  end;
end;

[mkinzler]

Was machst du in
      Prozessparameter_Stammdaten_loeschen() ?

[arcon]

in dieser prozedur lösch ich den inhalt der tedit-felder ..
also nichts weltbewegendes

[arcon]

Code:

      if (adoConn.Execute(SQL) = NULL) then

in dieser zeile habe ich gedacht, dass ich das resultat der SQL-Anweisung auf Null prüfen kann und er mir dann in die prozedur stammdaten_löschen springen kann, wenn die bedingung erfüllt ist..

aber irgendwie macht er das nicht ..

hat jemand eine lösung, wie ich das resultat der sql-anweisung ( select db_ID ('testversion') )
in eine variable von delphi übergeben kann und dort auf ihren wert hin überprüfen kann ?

danke.

[Bbommel]

Mit einer Query sollte es auf jeden Fall gehen:

Delphi-Quellcode:

SQL := 'select db_id(''testversion'')';

adoConn := TADOConnection.Create(nil);
  try
    adoConn.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security ..';
      if (not adoConn.Connected) then
        adoConn.Open;

      adoQuery:=TADOQuery.Create(nil);
      adoQuery.Connection:=adoCon;
      adoQuery.SQL.Text:=SQL;
      adoQuery.Open;
      
      if (adoQuery.fields[0].isNull) then
        Prozessparameter_Stammdaten_loeschen(Sender);

      if (adoConn.Connected) then
        adoConn.Close;
     
      adoQuery.Free; 
  finally
    FreeAndNil(adoConn);
  end;
end;

[arcon]

funktioniert wunderbar! danke dir !

kurze frage noch ..

SQL-Code:

      adoQuery:=TADOQuery.Create(nil);
      adoQuery.Connection:=adoCon;
      adoQuery.SQL.Text:=SQL;
      adoQuery.Open;
      
      if (adoQuery.fields[0].isNOTNull) then

wenn ich die If-Anweisung auf "nicht null" hin überprüfen will, gibt mir der compiler eine fehlermeldung aus .. woran liegt das ?

[Bbommel]

Zitat von arcon:

      if (adoQuery.fields[0].isNOTNull) then wenn ich die If-Anweisung auf "nicht null" hin überprüfen will, gibt mir der compiler eine fehlermeldung aus .. woran liegt das ?

Das liegt daran, dass es die Methode "isNull" gibt, aber nicht "isNotNull". Das musst du dann einfach so machen:
if not adoQuery.fields[0].isNull then