Hallo,
um die Select Befehle in VBA ausführen können, kann eine View in MS SQL erstellt werden und diese anschließend in VBA ausgeführt werden. Dieses Verfahren würde ich bevorzugen.
With Rs
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open "SELECT articleno, ZeugnisID FROM Viewname", Cn
End With
Falls dennoch die Select-Abfrage direkt ausgeführt werden soll, kann folgender Befehl verwendet werden:
With Rs
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open "SELECT max(ID) as ID, articleno, ZeugnisID FROM Zeugnissammlungen group by articleno order by max(ID)", Cn
End With
oder alternativ...
With Rs
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open "Select Daten.ID,Daten.articleno, Daten.ZeugnisID from ( SELECT max(ID) as ID, articleno, ZeugnisID FROM Zeugnissammlungen group by articleno) Daten order by Daten.ID", Cn
End With
LG, Ben
|