Hallo Luckie,
vielen Dank für die Info, grundsätzlich sollte es so funktionieren! allerdings hat mein Code wohl noch Fehler, was ist in folgender Funktion falsch???
Ich bekomme einfach keinen Wert aus der Datenbank zurück!
Code:
function MyDBHandle.DBAccess(Input: String): String;
var
MyQuery : TQuery;
begin
try
MyQuery := TQuery.Create(MyQuery);
MyQuery.LoginPrompt := False;
MyQuery.DatabaseName := 'Test';
MyQuery.Active := False;
MyQuery.SQL.Clear;
MyQuery.SQL.Add('SELECT Info FROM Tab WHERE Number='+ QuotedStr (Input));
MyQuery.Open;
MyQuery.First;
Result := MyQuery.FieldList.Values['Info'];
except
Result := '-1';
end;