Nickles - Das Onlinemagazin zum Mitmachen

Programmieren - alles kontrollieren 4.940 Themen, 20.676 Beiträge

SELECT in variable

logo3 am 29.10.2007, 17:37 / 1 Antworten / Flachansicht

Hallo

ich würde gerne bei der ausführung dieser SQL anweisung das resultat in einer variable setzen.
Bei SELECT COUNT wird das rsultat in einer variable gesetzt aber bei den normalen SELECT weiss ich nicht wie das geht hat irgendjemand eine ahnung

Wenn das resultat in eine variable drin ist, geht ich davon aus, dass die komplete tabelle in die variable dirin ist.

danke

logo3

---------------------------------------------------------------
Dim objDB As DAO.Database
Dim objRS As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT total.vorname, total.alter FROM total WHERE (((total.vorname)= 'peter'));"

Set objDB = CurrentDb
Set objRS = objDB.OpenRecordset(strSQL, , DAO.dbSQLPassThrough)

Call objRS.Close
Set objRS = Nothing
Set objDB = Nothing
---------------------------------

T-Rex

logo3 „SELECT in variable“

30.10.2007, 09:37 Optionen

Dim objDB As DAO.Database
Dim objRS As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT total.vorname, total.alter " & _
"FROM total " & _
"WHERE (UPPER(total.vorname) = '" & UCase$("Peter") & "') " & _
"ORDER BY total.vorname ASC, total.alter DESC;"

Set objDB = CurrentDb
Set objRS = objDB.OpenRecordset(strSQL, , DAO.dbSQLPassThrough)

' Alle Treffer in eine Zeichenkette eintragen,
' die Treffer werden mit einen Zeilenumbruch voneinander getrennt
strSQL = vbNullString
Do While Not objRS.EOF
strSQL = strSQL & objRS.Fields("Vorname").Value & " (" & _
objRS.Fields("Alter").Value & ")" & vbNewLine

Call objRS.MoveNext
Loop

' Letzten Zeilenumbruch entfernen
If Right$(strSQL, Len(vbNewLine)) = vbNewLine Then
strSQL = Left$(strSQL, Len(strSQL) - Len(vbNewLine))
End If

' Ergebnis ausgeben
Debug.Print strSQL

Call objRS.Close
Set objRS = Nothing
Set objDB = Nothing