| Forum: Visual Basic |
Thema:
Re: Richtige Variablendeklaration und Datenübertragung |
Von:
Christian Drache (
21.02.2005 10:43) |
Private Sub mySelect()
' Microsoft DAO 3.6 Object Library muss aktiviert sein:
' sein Extras -> Verweise...
'Datenbank öffnen
Dim Db As Database
Dim dbFile As String
'Pfad angeben
dbFile = "\\server\Unterverzeichnis\MeineDatenbank.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
'Recordset auf Basis einer SQL-Abfrage erstellen und öffnen
Dim SQL As String
Dim rs As Recordset
'Abfrage über SQL-String vorbeiten
SQL = "SELECT * FROM T_MeineTabelle 'Tabelle angeben
Set rs = Db.OpenRecordset(SQL)
'wenn die Ergebnisliste Datensätze enthält
'werden sie hier ausgegeben
If rs.RecordCount > 0 Then
While Not rs.EOF
'alle Datenfelder der Spalte werden ausgegben
debug.print rs("Spaltenname_der_T_MeineTabelle")
rs.MoveNext
Wend
End If
End Sub
===================================
So kannst Du die Daten aus der DB auslesen u. entsprechend Deinen Makro-Variablen zuweisen, welche Du dann in Dein Word-Dok eingetragen kannst!
Vergiss aber den Verweis in Deinem VBA-Editor nicht:
Microsoft DAO 3.6 Object Library muss aktiviert sein:
sein Extras -> Verweise...
cu
Chris
cu Chris
http://www.way2drache.de
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
