Hallo ich habe eine Schleife die mir Datensätze aus 2 Tabellen und innerhalb 2 Spalten liefert.
Nun möchte ich den ersten Datensatz in eine Textbox laden und falls dieser jedoch schon vorhanden ist einer einer Tabelle die ich zum Speichern benutze soll er den nächsten Datensatz anzeigen.
Kann mir da jemand helfen????
Nun möchte ich den ersten Datensatz in eine Textbox laden und falls dieser jedoch schon vorhanden ist einer einer Tabelle die ich zum Speichern benutze soll er den nächsten Datensatz anzeigen.
Kann mir da jemand helfen????
Quellcode
- Dim rs As ADODB.Recordset
- Dim rsVB As ADODB.Recordset
- Dim SQL As String
- Dim sql1 As String
- Dim i As Long
- Dim min As Integer
- Dim max As Integer
- SQL = " SELECT Min, Max FROM Table "
- Set rsVB = goMandant.oData.rsOpenRecordset(SQL, adOpenForwardOnly, adLockReadOnly)
- Do Until rsVB.EOF
- min = rsMan!Min
- max = rsMan!Max
- For i = min To max
- sql1 = "SELECT Sitzplatznummer FROM Table WHERE Sitzplatznummer= " & i
- Set rs = goMandant.oData.rsOpenRecordset(sql1, adOpenForwardOnly, adLockReadOnly)
- If rs.EOF = True And rs.BOF = True Then
- txtFreierSitzplatz = i
- Else
- If Not rs!Sitzplatznummer = i Then
- txtFreierSitzplatz = i
- End If
- End If
- Else
- Next i
- rsVB.MoveNext
- Loop
