SELECT Anweisung Access VBA

[Alex]

Danke dir Alex,

kannst du mir eventuell ein kleines Gerüst anzeigen.

[code land=vb]
Dim Cnn As ADODB.Connection
'
'Innerhalb der Access-Anwendung
'
Set Cnn = Application.CurrentDb.Connection
'
' Ausserhalb Access
'
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0, Data Source=PfadZurDatenbank;"

Dim Rset As New ADODB.Recordset
Set Rset = Cnn.Execute "SELECT..."

Rset.MoveFirst

Do While Not Rset.EOF
    Debug.Print Rset.Fields("Feld1").Value
    Rset.MoveNext
Loop

Rset.Close

[/code]

Nur als Entwurf. Im Prinzip wird es aber so gemacht. Sonst würde ich dir empfehlen ein wenig zu googeln. Es gibt es jede Menge Beispiele im Net zu finden.

Gruß, Alex