Avatar billede saparot Nybegynder
25. november 2004 - 12:21 Der er 1 kommentar

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.
Avatar billede lavang Nybegynder
05. december 2004 - 23:16 #1
Hvad med at bruge TADOQuery og laver en select mod database
som f. eks :
...
SELECT * FROM tabelNavn
WHERE Adresse like "Hvidovrevej"
open;
try 
  case Query.recordCount of
  0: {do your stuff here}
  ELSE
    begin
      first;
      while not EOF do
      begin
        {do whatever here}
      end;
      Prior;
      //- hvis du lukker query her uden at kalde method prior vil der raise en exception, som jeg antager at det er en fejl Borland har lavet i TADOQuery...
      close;
    end;
  except
    raise {something here}
  end;
...

Håber det vil hjælpe dig lidt...

hislen Lavang
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester