Einzelnen Beitrag anzeigen

Benutzerbild von Seppel
Seppel

Registriert seit: 14. Jun 2005
139 Beiträge
 
#13

Re: Suchen!

  Alt 26. Nov 2007, 19:17
Hab ma ein Problem und zwar Suchen klappt ja jetzt, aber wenn ich dann die Navibenutze um z.B was neues zu erstellen, dann bekomme ich eine Meldung, ich glaub es leigt an dem Feld ID.
Ich poste ma alles rein.

Ich benutze ADOkomponente, also auch eine Access datenbank.
Der Primärschlüssel is STUID und wird nicht automatisch festgelegt(ein Felher?)
Also kann die ID(STUID) auch ma 1000 statt 1 sein. Ich glaube das ist der Felher, vlt. probiere ich esm a mit ner id und der STUID an sich, aber dann kann ich net mehr nach der STUID suchen oder?

Delphi-Quellcode:
begin
Query1.SQL.Text := 'SELECT * FROM apezdb WHERE STUID ='+id.Text;
//Parameter hab ich weggleassen, haben bei ADO komponente net gefunzt.
Query1.Open;

id.Clear;
name.Clear;
Rasse.clear;p1.Clear;p2.Clear;p3.Clear;m1.Clear;
m2.Clear;m3.Clear;komm.Clear;

id.text := Query1.FieldByName('STUID').asString;
name.Text := Query1.FieldByName('Name').asString;
Rasse.Text := Query1.FieldByName('Rasse').asString;
p1.Text := Query1.FieldByName('Planet1').asString;
p2.Text := Query1.FieldByName('Planet2').asString;
p3.Text := Query1.FieldByName('Planet3').asString;
m1.Text := Query1.FieldByName('Mond1').asString;
m2.Text := Query1.FieldByName('Mond2').asString;
m3.Text := Query1.FieldByName('Mond3').asString;
komm.Text := Query1.FieldByName('Kommentar').asString;

end;
Miniaturansicht angehängter Grafiken
f_161.jpg  
Sebastian
www.seppel.de.pn
  Mit Zitat antworten Zitat