Standard SQL-SELECT Abfrage

14.12.2015 13:06 | Gajamugan Kandiah | Keine Kommentare

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

 

Kommentar schreiben

Kommentar

Time limit is exhausted. Please reload CAPTCHA.