title image


Smiley Re: SQL-Statement klappt nicht
So jetzt hab ich mal mit den Parametern die Inhalte der Datenbank den einzelnen Feldern auf meinem Formular zugewiesen und zwar mit folgendem Source:



******************************************************

procedure Tfrm_Kunden.FormShow(Sender: TObject);

begin

//Verbindungen herstellen

qry_ReDaten.ConnectionString:=ADO_Provider;

//qry_ReDaten.Open;

qry_KDNR.ConnectionString:=ADO_Provider;

//qry_KDNR.Open;

qry_Daten_lesen.ConnectionString:=ADO_Provider;

qry_Daten_lesen.Close;

qry_Daten_lesen.SQL.Add('SELECT * FROM kunden ORDER BY kdnr');

qry_Daten_lesen.Open;

qry_daten_lesen.Last;

Daten_lesen;

end;



procedure Tfrm_Kunden.Daten_lesen;

begin

//Überprüfen ob es schon Kunden gibt wenn ja dann lies sie aus

if (self.qry_daten_lesen.Recordset.RecordCount > 0) and (self.qry_daten_lesen['KDNR'] Null) then

begin

lbl_Kdnr.Caption:=qry_Daten_lesen.FieldByName('KDNR').AsString;

Ed_Nachname.Text:=qry_daten_lesen.FieldByName('Nachname').AsString;

Ed_Vorname.Text:=qry_daten_lesen.FieldByName('Vorname').AsString;

Ed_Strasse.Text:=qry_daten_lesen.FieldByName('Strasse').AsString;

Ed_PLZ.Text:=qry_daten_lesen.FieldByName('PLZ').AsString;

Ed_Ort.Text:=qry_daten_lesen.FieldByName('Ort').AsString;

Ed_Telefon.Text:=qry_daten_lesen.FieldByName('Telefon').AsString;

Ed_Fax.Text:=qry_daten_lesen.FieldByName('Fax').AsString;

Ed_Email.Text:=qry_daten_lesen.FieldByName('Email').AsString;

Ed_Mobil.Text:=qry_daten_lesen.FieldByName('Mobil').AsString;

Ed_Bank.Text:=qry_daten_lesen.FieldByName('Bank').AsString;

Ed_BLZ.Text:=qry_daten_lesen.FieldByName('BLZ').AsString;

Ed_KtoNr.Text:=qry_daten_lesen.FieldByName('KTONR').AsString;

dtp_Geb.Date:=qry_daten_lesen.FieldByName('Geb').AsDateTime;

Memo_Kunden.Text:=qry_daten_lesen.FieldByName('Memo').AsString;

cb_Schuhkunde.Checked:=qry_Daten_lesen.FieldByName('Schuhkunde').AsBoolean;

cb_Repkunde.Checked:=qry_Daten_lesen.FieldByName('Reperaturkunde').AsBoolean;

Ed_Status.Text:=qry_Daten_lesen.FieldByName('Status').AsString;

dtp_Ebest.Date:=qry_Daten_lesen.FieldByName('Ebest').AsDateTime;

dtp_Lbest.Date:=qry_Daten_lesen.FieldByName('Lbest').AsDateTime;

end;

end;

**************************************************************



aber leider bekomme ich immer noch die Fehlermeldung:

Fehler aus einem aus mehjreren Schritten bestehenddn Vorgang.

Es ist also wieder was in der Zuweisung falsch.

Aber leider weiß ich nicht was.



Gruß

Gabi



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: