Ik wil met de Locate functie de recordset op een bepaald record zetten.
Dat werkt op alle velden, maar niet op het ID veld.
Ik heb de volgende test functie:
Code:
procedure TfrmMain.Button1Click(Sender: TObject);
var bResult: Boolean;
begin
with dmData.qData do
begin
bResult := Locate('ID', edit1.Text,[]);
if (bResult) then
begin
AddDebugInfo('Locate = TRUE');
end else
begin
AddDebugInfo('Locate = FALSE');
end;
end;
end;
Het resultaat is altijd FALSE, maakt niet uit het ingegeven ID (edit1.text) bestaat of niet.
Ook als ik eerst edit1.Text converteer naar Int
Code:
bResult := Locate('ID', StrToInt( edit1.Text ),[]);
maakt niets uit.
Pas ik dezelfde functie toe op ieder willekeurig ander veld uit de tabel, dan werkt het wel.
Het ID veld is auto increment, type INT, en primary Key.
Iemand een idee hoe dat zou kunnen?
Bookmarks