vb

Standard SQL-SELECT Abfrage

Standard SQL-SELECT Abfrage

Eine allgemeine Standard SQL-Select Abfrage die einfach nicht in mein Kopf will ūüôā

 

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim intID as Integer
Dim strArtikel  as String

strSQL = "SELECT ID, Artikel FROM tblArtikel WHERE ID='" & intID & "'"

Set db = CurrentDb   
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)

If Not rs.EOF Then rs.MoveFirst

Do While Not rs.EOF     
  strArtikel = rs!Artikel 
  rs.MoveNext   
Loop
rs.Close
Set rs = Nothing
Set db = Nothing