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

 

Anzahl Datensätze auslesen (RecordSet.Count)

Anzahl Datensätze auslesen (RecordSet.Count)

Um die richtige Anzahl Datens√§tze von Abfragen zu bekommen kann folgende SQL Befehl ben√ľtzt werden.

Dim strsql As String 
Dim rs As DAO.Recordset 
Dim db As DAO.DATABASE 
Dim anzahl As Long 

strsql = "SELECT * FROM tbl_Pruefkatalog WHERE Standard = True" 
Set db = CurrentDb 
Set rs = db.OpenRecordset(strsql, dbOpenDynaset) 
rs.MoveLast 
anzahl = rs.RecordCount 
rs.Close: Set rs = Nothing 
db.Close: Set db = Nothing