AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Kein Datensatz->Fehler abfangen & DBEdit zurückschreiben
Thema durchsuchen
Ansicht
Themen-Optionen

Kein Datensatz->Fehler abfangen & DBEdit zurückschreiben

Ein Thema von daywalker-dj-k · begonnen am 14. Jan 2004 · letzter Beitrag vom 14. Jan 2004
 
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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz