AW: Vorwärtsschritt durch ADO DB
10.05.2021 17:18:36
Ronald
Ich muß das Thema nochmal aufrühren, da ich glaube, daß ich ein Verständnisproblem habe. Wenn dies gelöst ist, ist wahrscheinlich alles gelöst.
Nochmal zum Aufwärmen: ich lade also aus der DB wie folgt:
Call a_DB_Verbindung_aufbauen
Call b_SQL_Abfrage_PrivatKd
Call c_Handling_der_Datensätze
...
Public Sub a_DB_Verbindung_aufbauen()
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Softwerk ERP\SoftWERK_ERP.mdb;Persist Security Info=False;"
End Sub
...
Public Sub b_SQL_Abfrage_PrivatKd()
strQuery = "SELECT * FROM tKunden WHERE fKdNummer=" & "'" & strAusgewaehlterDatensatz_KV & "'"
Set rs = cn.Execute(strQuery)
End Sub
...
Public Sub c_Handling_der_Datensätze()
Dim i As Integer
i = 1
Do While Not rs.EOF
frmMain.txtKundennummer_KV.Value = rs.Fields("fKdNummer").Value
frmMain.cboStatus_KV.Value = rs.Fields("fKdStatus").Value
frmMain.txtKundeSeit_KV.Value = rs.Fields("fKdKundeSeit").Value
frmMain.txtEintragsdatum_KV.Value = rs.Fields("fKdEintragsdatum").Value
frmMain.txtAenderungsdatum_KV.Value = rs.Fields("fKdAenderungsdatum").Value
frmMain.txtDomain_KV.Value = rs.Fields("fKdDomain").Value
frmMain.cboKategorie_KV.Value = rs.Fields("fKdKategorie").Value
frmMain.txtOrt_KV.Value = rs.Fields("fKdOrt").Value
frmMain.txtAnrede_KV.Value = rs.Fields("fKdAnrede").Value
frmMain.txtNachname_KV.Value = rs.Fields("fKdNachname").Value
frmMain.txtVorname_KV.Value = rs.Fields("fKdVorname").Value
frmMain.txtVorname2_KV.Value = rs.Fields("fKdVorname2").Value
rs.MoveNext
i = i + 1
Loop
End Sub
Und jetzt noch der Code fürs Vorwärts- und Rückwärtsschalten:
Private Sub cmdDSVorwaerts_KV_Click()
If Not rs.EOF Then
rs.MoveNext
End If
End Sub
Private Sub cmdDSRueckwaerts_KV_Click()
If Not rs.BOF Then
rs.MovePrevious
End If
End Sub
Ich habe das Gefühl, daß es zwar beispielsweise rückwärts springt, aber nichts anzeigt. Also dachte ich, ich müsse nochmals neu zuweisen.
Das sähe dann so aus:
Private Sub cmdDSVorwaerts_KV_Click()
'Call mod_1_Kundenverwaltung.Datensatz_vorwaerts_springen_KV
If Not rs.EOF Then
rs.MoveNext
frmMain.txtKundennummer_KV.Value = rs.Fields("fKdNummer").Value
frmMain.cboStatus_KV.Value = rs.Fields("fKdStatus").Value
frmMain.txtKundeSeit_KV.Value = rs.Fields("fKdKundeSeit").Value
frmMain.txtEintragsdatum_KV.Value = rs.Fields("fKdEintragsdatum").Value
frmMain.txtAenderungsdatum_KV.Value = rs.Fields("fKdAenderungsdatum").Value
frmMain.txtDomain_KV.Value = rs.Fields("fKdDomain").Value
frmMain.cboKategorie_KV.Value = rs.Fields("fKdKategorie").Value
frmMain.txtOrt_KV.Value = rs.Fields("fKdOrt").Value
frmMain.txtAnrede_KV.Value = rs.Fields("fKdAnrede").Value
frmMain.txtNachname_KV.Value = rs.Fields("fKdNachname").Value
frmMain.txtVorname_KV.Value = rs.Fields("fKdVorname").Value
frmMain.txtVorname2_KV.Value = rs.Fields("fKdVorname2").Value
ElseIf rs.EOF = True Then
MsgBox "EOF erreicht"
End If
End Sub
Er meckert zwar nicht, aber es zeigt auch keinen neuen Datensatz an. Also habe ich das Gefühl, etwas grundsätzlich falsch gemacht zu haben,
auf was ich nicht komme. Wie Schuppen vor den Augen.
Wäre schön, wenn mir hierbei jemand helfen könnte.
Danke im Voraus.
Gruß Ronald