Hallo Leute!
Habe 2 Formulare
1 = Hauptformular, wo der Kunde dann erscheinen soll mit all seinen Daten
2 = Kundensuche, wo ich den jeweiligen Kunden suche
für die suche habe ich folgenden code:
<PRE>
procedure TKundensuche.SuchenClick(Sender: TObject);
var
txt : string;
begin
txt := 'select Nachname, Vorname from Kundendaten where Nachname like ';
txt := txt + QuotedStr(edit1.text + '%');
txt := txt + ' or Vorname like ' + QuotedStr(edit1.text + '%');
ADODataSet1.active := False;
ADODataSet1.CommandText := txt;
ADODataSet1.active := True;
end;
</PRE>
für die übernahme auf das Hauptformular habe ich diesen code
<PRE>
procedure TKundensuche.DBGrid1DblClick(Sender: TObject);
begin
with Kundendaten.ADODataSet2 do begin
Kundendaten.ADODataSet2.active := false;
Kundendaten.ADODataSet2.CommandText := 'select * from Kundendaten where Kunden-Nr = ' +
QuotedStr(ADODataSet1.FieldByName('Kunden-Nr') .AsString);
Kundendaten.ADODataSet2.active := true;
end;
end;
</PRE>
Wenn ich jetzt einen Kunden suchen will kommt folgende Fehlermeldung:
ADODataSet1 Kunden-Nr nicht gefunden.
An was kann das liegen?
PS: Das Feld Kunden-Nr existiert in der Datenbank
------------------
Grüße, Andi
Habe 2 Formulare
1 = Hauptformular, wo der Kunde dann erscheinen soll mit all seinen Daten
2 = Kundensuche, wo ich den jeweiligen Kunden suche
für die suche habe ich folgenden code:
<PRE>
procedure TKundensuche.SuchenClick(Sender: TObject);
var
txt : string;
begin
txt := 'select Nachname, Vorname from Kundendaten where Nachname like ';
txt := txt + QuotedStr(edit1.text + '%');
txt := txt + ' or Vorname like ' + QuotedStr(edit1.text + '%');
ADODataSet1.active := False;
ADODataSet1.CommandText := txt;
ADODataSet1.active := True;
end;
</PRE>
für die übernahme auf das Hauptformular habe ich diesen code
<PRE>
procedure TKundensuche.DBGrid1DblClick(Sender: TObject);
begin
with Kundendaten.ADODataSet2 do begin
Kundendaten.ADODataSet2.active := false;
Kundendaten.ADODataSet2.CommandText := 'select * from Kundendaten where Kunden-Nr = ' +
QuotedStr(ADODataSet1.FieldByName('Kunden-Nr') .AsString);
Kundendaten.ADODataSet2.active := true;
end;
end;
</PRE>
Wenn ich jetzt einen Kunden suchen will kommt folgende Fehlermeldung:
ADODataSet1 Kunden-Nr nicht gefunden.
An was kann das liegen?
PS: Das Feld Kunden-Nr existiert in der Datenbank
------------------
Grüße, Andi
Comment