Einzelnen Beitrag anzeigen

Benutzerbild von trifid
trifid

Registriert seit: 12. Sep 2003
297 Beiträge
 
#8

Re: Kein Datensatz->Fehler abfangen & DBEdit zurücksc

  Alt 14. Jan 2004, 23:09
Hallo,


Zitat:
ich lese 14 felder aus der db aus und packe sie in dbedits.
machst Du das manuell ? normalerweise funktioniert das über die dbedit.datasource-verbindung
datasource ist mit dataset dataset mit connection.

Zitat:
ich erhalte beim starten der prozedur allerdings immer die fehlermeldung, dass das feld, welches in dbedit14 geschrieben werden soll, nicht gefunden werden kann. wenn ich noch ein edit hinzufüge, dann wird das 15. feld nicht gefunden. also immer das letzte. woran kann das liegen.
source, würde hier weiterhelfen
nochmals,
auf dein form ist ein DataSource (ds) und ein ADODataSet (ads) und n DBedit (dbe)
ads hat connection
ads.active = true
ds ist mit ads verbunden
dbe.datasource ist mit ds verbunden
dbe.datafield ist feld1
dbe9.datasource ist mit ds verbunden
dbe9.datafield ist feld9

Zitat:
wie muss ich eigenltich die ADOquery einbinden? habs jetzt einfach mit der connection gemacht. oder muss ich auf datasource zurückgreifen?
sorry ich habe mich mit den ADOquery verschrieben und meinte ADOdataset
aber jetzt muss ich noch etwas mehr erzählen
Du brauchst ein ADOdataset für den 'SELECT'
und ein anderes für den 'COUNT'
ach, vielleicht hast du deswegen keine felder mehr

Code:
ADOConnection1.Connected := True;

ADODataSet1.Close;
ADODataSet1.CommandText := 'SELECT Count(*) as Anzahl FROM kunden WHERE KDNR=''' +Edit2.Text+ ''';';
ADODataSet1.Open;
n := ADODataSet1.FieldByName('Name1').asInteger;
if n > 0 then
begin
   ADODataSet2.Close;
   ADODataSet2.CommandText := 'SELECT Count(*) as Anzahl FROM kunden WHERE KDNR=''' +Edit2.Text+ ''';';
   ADODataSet2.Open;
end else begin
   Label20.Caption := 'nein';
end;
das ADODataSet2 ist mit deinen Datasource und den DBedit's verbunden
  Mit Zitat antworten Zitat