Sclheife

Dieses Thema Sclheife im Forum "Windows XP Forum" wurde erstellt von Kathrin, 20. Dez. 2005.

Thema: Sclheife Hallo ich habe eine Schleife die mir Datensätze aus 2 Tabellen und innerhalb 2 Spalten liefert. Nun möchte ich den...

  1. 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????




    Code:
        
        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