Hi,
ich versuche nun schon eine weile einen Datensatz aus einer
FB-Datenbank zu lesen. Ich glaube allerdings das ich von
MySql zu verwöhnt bin. Folgender Code meint immer das das Feld CUSTNO nicht existiert. Ich hoffe mit kann jemand sagen was ich falsch mache.
Ich mache die Connection über folgendes:
https://sites.google.com/site/dbxfirebird/home
Das Connecten klappt auch wunder bar. Ich schaffe es halt nur nicht einen Datensatz zu lesen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Connection :TSQLConnection;
Query :TSQLQuery;
begin
Connection := TSQLConnection.Create(Self);
Connection.DriverName := '
FirebirdConnection';
Connection.LibraryName := '
dbx4fb.dll';
Connection.VendorLib := '
fbclient.dll';
Connection.GetDriverFunc := '
getSQLDriverFIREBIRD';
Connection.Params.Clear;
Connection.Params.Add('
User_Name=SYSDBA');
Connection.Params.Add('
Password=masterkey');
Connection.Params.Add('
Database=localhost:e:\DB\DB1.FDB');
Connection.Open;
Query:=TSQLQuery.Create(Self);
Query.SQLConnection:=Connection;
Query.SQL.Text:='
select * from BAS_CUSTOMERS where CUSTNO=10025;';
Query.ExecSQl;
Label1.Caption:=
Query.FieldByName('
CUSTNO').AsString;
//Hier kommt die aussagen das es das Feld nicht gibt.
end;
Vielen Dank im Voraus