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;