Problemer med recordset.find i forbindelse med ADO dataset
Jeg har prøvet med søgninger ved hjælp af recordset.find metoden, men det virker ikke. Jeg har ikke fundet noget eksempel på nettet der virker.Jeg har lavet noget kode
function TEnkeltKundeForm.Soeg(const Soegetekst: string): boolean;
var
Datasetclone : TADODataset;
S : string;
label
Fundet;
begin
try try
Datasetclone := TADODataset.Create(nil);
Datasetclone.Clone(ADODataset);
if not Datasetclone.Supports([coBookmark]) then begin
showmessage('Datasettet unnerstøtter EJ bogmærker (Kan ikke clones)');
Exit;
end;
Datasetclone.First;
Datasetclone.Recordset.Find('Rute = 1'
,0,
TOleEnum(1),
olevariant( 1));
if Datasetclone.Eof or Datasetclone.Bof then
S := 'Ej fundet'
else
S := 'Fundet';
with Application do
begin
NormalizeTopMosts;
MessageBox(PChar(S),PChar( 'Meddelelse'), MB_OK);
RestoreTopMosts;
Exit;
end;
except on E:Exception do
showmessage(E.Message);
end;
finally
FreeAndNil(Datasetclone);
end;
end;
Hver gang blir Bof sat til true.
Hvilket indikere at posten ikke er fundet. Hvis der er en bedre måde at søge på hvis jeg vil bruge vildkards som
find 'adresse like 'Hvidovrevej*' er et sådant svar yderst velkomment.