Access

You are here: S-Networks > Blog > Applikationen und Programme > Access

Standard SQL-SELECT Abfrage

Site Admin Access, SQL, VBA No Comments
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)

Site Admin Access, Programmierung, SQL, VBA No Comments
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