Ich möchte zwei Datensätze mit dem If Befehl direkt miteinander vergleichen. Und nicht erst mit Movenext zum nächsten Datensatz springen. Hier nun der umständliche Code:
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "PROVIDER=MSDASQL;dsn=Zeiterfassung;uid=;pwd=;"
Set Rs = New ADODB.Recordset
With Rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "select Feld1,Feld2 from Test"
.Open
End With
A$ = Rs!Feld1
Rs.MoveNext
B$ = Rs!Feld1
Rs.MoveLast
If A$ = B$ Then Stop
End Sub
Geht dies auch einfacher ?
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "PROVIDER=MSDASQL;dsn=Zeiterfassung;uid=;pwd=;"
Set Rs = New ADODB.Recordset
With Rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "select Feld1,Feld2 from Test"
.Open
End With
A$ = Rs!Feld1
Rs.MoveNext
B$ = Rs!Feld1
Rs.MoveLast
If A$ = B$ Then Stop
End Sub
Geht dies auch einfacher ?