Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

SELECT in variable

logo3 / 1 Antworten / Baumansicht Nickles

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
---------------------------------


bei Antwort benachrichtigen
T-Rex logo3 „SELECT in variable“
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
 GrüßeT-Rex 
bei Antwort benachrichtigen