Einzelnen Beitrag anzeigen

Bbommel

Registriert seit: 27. Jun 2007
Ort: Köln
652 Beiträge
 
Delphi 12 Athens
 
#7

AW: resultat der select anweisung an delphi-variable übergeben

  Alt 24. Jun 2010, 13:55
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;

Geändert von Bbommel (24. Jun 2010 um 13:58 Uhr) Grund: aufräumen vergessen... :)
  Mit Zitat antworten Zitat