Hab jetzt versucht mir das ganze zu vereinfachen und eine
unit zu schreiben:
Delphi-Quellcode:
unit sqlst;
interface
uses
SysUtils,
db,adodb,
activex;
function connect():
string;
function query(
query :
string) :
string;
function close():
string;
var
conn : TADOConnection;
query1 :TADOQuery;
IMPLEMENTATION
function connect():
string;
begin
try
CoInitialize(
nil);
Conn := TADOConnection.Create(
nil);
Conn.ConnectionString := '
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info = False;Initial Catalog=test;Data Source=localhost';
Conn.Connected := true;
except
on e :
exception do begin
writeln(e.
message);
halt(1);
end;
end;
end;
function query(
query :
string) :
string;
begin
try
query1 := TADOQuery.Create(
nil);
query1.Connection := Conn;
query1.SQL.Text :=
query;
query1.Active := True;
except
on e :
exception do begin
writeln(e.
message);
halt(1);
end;
end;
end;
function close():
string;
begin
try
query1.SQL.Clear;
query1.close;
except
on e :
exception do begin
writeln(e.
message);
halt(1);
end;
end;
end;
end.
ABBEERR ich habe ja nun das problem, das ich an dieser stelle:
Delphi-Quellcode:
function query(
query :
string) :
string;
begin
try
query1 := TADOQuery.Create(
nil);
query1.Connection := Conn;
query1.SQL.Text :=
query;
query1.Active := True;
except
on e :
exception do begin
writeln(e.
message);
halt(1);
end;
end;
end;
und zwar genau an dieser Stelle
query1.SQL.Text := query;
ich muss hier ja auch diesen wert überegeben... wie könnte ich das lösen?
mir fehlt praktisch diese zeile:
query.FieldbyName('wert').asstring
LG und DANKE