Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1284to1288
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
Inhaltsverzeichnis

Daten aus Access Datenbank holen

Daten aus Access Datenbank holen
30.10.2012 13:05:07
Climbi
Hallo,
ich möchte Daten aus einer Access Datanbank importieren und dann unter Excel
weiter bearbeiten.
Die Ausleseaktion sollte von Excel aus gehen.
Im Internet bin ich auf ADO gestoßen und habe auch ein kleines
Beispiel gefunden. (ADO und VBA). Leider klappt das nicht, das umfangreiche VBA Script bleibt ohne Fehlermeldung plötzlich stehen.
Prinzipiell kenne ich mich mit VBA schon ein wenig aus, aber diese Befehle habe ich großteils nicht verstanden.
Fürs erste würde es mir ausreichen, wenn ich mal ein einfaches, funktionierendes Beispiel hätte.
Ich hoffe mir kann jemand weiter helfen.
Vielen Dank im Voraus
Gruß Climbi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Access Datenbank holen
30.10.2012 18:15:10
Luschi
Hallo Climbi,
stell doch mal Dein gefundenes Beispiel hier rein, dann schauen wir mal.
Gruß von Luschi
aus klein-Paris

AW: Daten aus Access Datenbank holen
31.10.2012 11:46:13
Climbi
Hallo Luschi,
anbei der von mir gefundene Code.
Mit diesem Code sollte es möglich sein gezielt Daten aus der Datenbank auszulesen.
Es klappt jedoch leider nicht.
Vorbemerkung:
Angenommen, es gibt eine Access-Datenbank namens VEREIN.MDB, die eine Tabelle namens "Mitglieder" enthält. Diese Tabelle verfügt unter anderen über die Felder "Nachname", "Vorname", "PLZ" und "Ort". Nun sollen in Excel die Daten eines Vereinsmitglieds mit dem Nachnamen "Müller" auswertet werden.
Um überhaupt mit ADO arbeiten zu können, muss man einen Verweis auf die entsprechende Objektbibliothek einrichten. Extras-Verweise im VBA Editor. "Microsoft ActiveX Data Objects 2.x Library"
Private Const DBPATH = "C:\Datenbanken\Verein.mdb"
Private Const RECORDSOURCE = "Mitglieder"
Private Const CONNSTRING = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DBPATH & ";"
Function HoleDaten _
(SucheNach, _
InFeld As String, _
AusgabeFeld As String)
Dim adoConn As ADODB.Connection
Dim adoRecset As ADODB.Recordset
Dim strSQL As String
If IsDate(SucheNach) Then
SucheNach = "#" & Day(SucheNach) & "/" & _
Month(SucheNach) & "/" & Year(SucheNach) & "#"
ElseIf IsNumeric(SucheNach) Then
SucheNach = Str(SucheNach)
Else
SucheNach = Chr(39) & SucheNach & Chr(39)
End If
Set adoConn = New ADODB.Connection
adoConn.Open CONNSTRING
strSQL = "SELECT * FROM " & RECORDSOURCE & ";"
Set adoRecset = New ADODB.Recordset
With adoRecset
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open strSQL, adoConn
End With
With adoRecset
.MoveFirst
.Find "[" & InFeld & "]=" & SucheNach         -->  Hier bleibt der Code ohne Fehlermeldung  _
stehen
If .EOF Or .BOF Then
HoleDaten = "Keine Daten"
Else
HoleDaten = .Fields(AusgabeFeld).Value
End If
End With
adoRecset.Close
adoConn.Close
Set adoRecset = Nothing
Set adoConn = Nothing
End Function

Anzeige
AW: Daten aus Access Datenbank holen
31.10.2012 13:56:22
Luschi
Hallo
Diese Vba-Zeile mußt Du ändern:
SucheNach = Chr(39) & SucheNach & Chr(39)
in
SucheNach = Chr(34) & SucheNach & Chr(34)
Gruß von Luschi
aus klein-Paris

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige