Inputbox ADO

Hvis du bruger ADO så har både TADOTable og TADODataSet Locate og Lookup:

procedure TfrmMain.Button1Click(Sender: TObject);
var
  sNavn : string;
begin
  sNavn := Inputbox('Søg', 'Skriv et navn:','');
  DM.ADODataSet.IndexFieldNames := 'Name';
  if DM.ADODataSet.Locate('Name',sNavn,[loCaseInsensitive]) then
    MessageDlg(DM.ADODataSet.FieldByName('Name').AsString,
              mtInformation,[mbOK],0);
end;

Det ér ligesom i "gamle dage", idet ADO-komponenterne nedarver de samme baseklasser som eks. BDE.

Utroligt , det er bare linje :
if DM.ADODataSet.Locate('Name',sNavn,[loCaseInsensitive]) then
Der har fået locate og LOCase osv.
Mange tak!
Send et svar

VH
koden12

procedure TForm1.Button2Click(Sender: TObject);

var
sNavn : string;
begin
sNavn := Inputbox('Søg', 'Skriv et navn:','');
ADODataSet1.IndexFieldNames := 'Navn';
if ADODataSet1.Locate('Navn',sNavn,[loCaseInsensitive]) then
MessageDlg(ADODataSet1.FieldByName('Navn').AsString,
mtInformation,[mbOK],0);

end;

Jeg har testet den og den finder godt nok ud af om navnet findes og melder OK hvis det gør, men den rykker ikke databasen hen til det navn ej heller nogen besked hvis det ikke findes..

VH
koden12

Jeg lavede det bare om til ADOTable1 så køre tabellen..
Men ikke noget "findes ikke" ... forsat..

VH
koden12

Koden12: Jeg testede det selv og min viste den rette record - ved ikke hvad der er forskelligt.

Nej det ved jeg heller ikke , men den virker fint med ADOTable : ) hos mig..
Kan du komme op med en ide om hvordan det skal se ud med "Findes ikke" når den ikke finder en der ser ens ud (ikke findes) ?
Jeg kan måske tolke lidt på den "gamel"..

VH
koden12

Sådan her?

procedure TfrmMain.Button1Click(Sender: TObject);
var
  sNavn : string;
begin
  sNavn := Inputbox('Søg', 'Skriv et navn:','');
  DM.ADODataSet.IndexFieldNames := 'Name'; // Necessary?
  if not DM.ADODataSet.Locate('Name',sNavn,[loCaseInsensitive]) then
    MessageDlg(sNavn + 'findes ikke!',mtInformation,[mbOK],0);
end;

Mange, mange tak...
Mit program er blevet ret flot.. Jeg forskede også en del også i Rave som rapport og det er faktisk også godt..
Så det viker bare... coll : )

VH
koden12