Zugriff auf Accessdaten von Excel

Private Sub Abfragen_Click() Dim strDB As String Dim StrTAB As String Dim objcon As ADODB.Connection Dim rst As ADODB.Recordset Dim Zeile As Long strDB = ThisWorkbook.Path & "\Aktionen.accdb" StrTAB = "Daten" Set objcon = New ADODB.Connection objcon.Open "Provider.ACE.OLEDB.12.0;Data Scource=" & strDB Set rst = New ADODB.Recordset rst.Open " Select Ak_Datum_Start, AK_Datum_Ende from tblAktionen where Ak_Titel ='"Range("B4")"' _ End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

- Dim objcon As ADODB.Connection und Set objcon = New ADODB.Connection gehören zur Zugriffs-Methode 'early binding' und erwartet einen gesetzen Verweis, wie von Hansueli erwähnt (Vba-Editor: Extras - Verweise) - objcon.Open "Provider.ACE.OLEDB.12.0;Data Scource=" & strDB wird bei der Methode 'late binding' benutzt - Beides gleichzeitig ist immer ungesund - ... ='"Range("B4")"'" muß so geschrieben werden: ... = '" & Range("B4").Value & "';" das Semikolon ist dabei das Kennzeichen, daß der SQL-String zu Ende ist und gehöhrt da auch hin

Hallo Stefan,
bei mir läuft das so:


Sub Abfragen_Click()
Dim strDB As String, strTAB As String, strCon As String, strSQL As String
Dim objCon As Object, objRst As Object
strDB = ThisWorkbook.Path & "\Aktionen.accdb"
strTAB = "tblAktionen"
'late binding --> keine gesetzten Vba-Verweise erforderlich
Set objCon = CreateObject("ADODB.CONNECTION")
Set objRst = CreateObject("ADODB.Recordset")
'den Treiber bekanntgeben
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB & _
";Persist Security Info=False;"
objCon.Open strCon
strSQL = "Select Ak_Datum_Start, Ak_Datum_Ende From  " & strTAB & _
" Where Ak_Titel ='" & Tabelle1.Range("B3").Value & "';"
With objRst
.ActiveConnection = objCon
.CursorLocation = 3  'adUseClient
.CursorType = 3      'adOpenStatic
.LockType = 1        'adLockReadOnly
.Open strSQL
End With
If (Not objRst.EOF) Or (Not objRst.bof) Then
objRst.MoveLast
If objRst.RecordCount > 1 Then
MsgBox "Sorry..., aber es gibt mehr als 1 Datensatz mit dem Aktionsnamen '" & _
Tabelle1.Range("B3").Value & "'!", 48 + vbMsgBoxSetForeground, "Hinweis..."
Else
Tabelle1.Range("B5:B6").ClearContents
Tabelle1.Range("B5").Value = objRst!Ak_Datum_Start.Value
Tabelle1.Range("B6").Value = objRst!Ak_Datum_Ende.Value
End If
Else
MsgBox "Sorry, aber der Aktionsname '" & Tabelle1.Range("B3").Value & _
"' existiert nicht in der DB!", 16 + vbMsgBoxSetForeground, "Hinweis..."
End If
objRst.Close: objCon.Close
Set objRst = Nothing: Set objCon = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Zugriff auf Accessdaten von Excel

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread