Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Access Tabellen auswerten

Access Tabellen auswerten
24.06.2004 14:53:58
rene
hallo zusammen
ich hoffe mir kann jemand helfen
mein problem besteht darin das ich mehrere Tabellen(Access) in excel auswerten muss
1.ich brauch nicht alles aus den tabelle (habe schon abfragen erstellt)
2.angenommen die db enthält kunden wie zb
Name Vorname hat gekauft Umsatz
Meier Mann Schoko 19,95
Meier Frau vanille 20,05
Schulz Es Schoko 5,03
Meier Mann Vanille 5,000
diese db ist für ein jahr und ich habe 5 davon
es sollte dann etwa sowas rauskommen
Name Vorname hat gekauft SummeUmsatzjahr1 SummeU...
ich habe schon die recherche bemüht aber ich versteh bloss bahnhof
vielen dank im voraus
gruß rene

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
danke (mach mich gleich auf die suche)(OT.
25.06.2004 08:24:23
Rene
oT.
doch noch was
25.06.2004 09:27:48
Rene
hallo
ich habe folgenden code gefunden
Dim con As ADODB.Connection
Dim datei As String
Dim fld As Field
Dim rs As ADODB.Recordset
Dim spalte As Long
Dim accTab As String
Dim ws As Worksheet
Dim zeile As Long
accTab = "DB-regio"
' (1) Verbindung zur Datenbank herstellen
datei = ThisWorkbook.Path & "\DB-Regio01.mdb"
Set con = New ADODB.Connection
con.Open ConnectionString:= _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & datei
' (2) Recordset erstellen

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open Source:=accTab, _
ActiveConnection:=con, _
CursorType:=adOpenKeyset, _
LockType:=adLockReadOnly, _
Options:=adCmdTableDirect
' (3) Recordset auflisten
' (3a) Tabellenblatt vorbereiten
Set ws = ThisWorkbook.Worksheets("Tabelle1")
ws.UsedRange.ClearContents
' (3b) Spaltenüberschriften schreiben
spalte = 1
For Each fld In rs.Fields
ws.Cells(1, spalte) = fld.Name
spalte = spalte + 1
Next fld
' (3c) Sätze des Recordsets auflisten
If Not (rs.BOF And rs.EOF) Then
' Recordset ist nicht leer
rs.MoveFirst
zeile = 2
Do Until rs.EOF
spalte = 1
For Each fld In rs.Fields
ws.Cells(zeile, spalte) = fld
spalte = spalte + 1
Next fld
rs.MoveNext
zeile = zeile + 1
Loop
End If
' (3d) Tabellenblatt formatieren
ws.UsedRange.Columns.AutoFit
' (4) Recordset und Verbindung schließen
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
habe aber das problem das ich hier noch ne abfrage unterbringen muss
ich weiss aber net in welchen teil und ob ich was ändern muss
vielen dank rene
Anzeige
AW: doch noch was
Nike
Hi,
das is ein View auf ne Tabelle, keine Query,
such mal in Google noch mit Querydef da sollte sich was finden lassen...
Bye
Nike
AW: doch noch was
25.06.2004 11:42:04
Rene
hallo
hab was gefunden
aber wie kann ich in einer schleife sagen das er die nächste datenbank öffnen und selektieren soll
also von E:\Re01 auf E\Re02 und so weiter
Querry = "SELECT .... "FROM `E:\Re01`.`Re` ....
danke gruß rene
erledigt oT danke nochmal
25.06.2004 12:11:45
Rene
oT

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige