Office: (Office 2013) VBA Code für Connectionstring (ODBC 8.0 Driver)

Chaotikos · 14. August 2018

Hallo zusammen,

ich verzweifle grad da ich nix aktueles finde.
Wie verbinde ich richtig mit dem ODBC Treiber?

Hab im ODBC-Datenquellen-Adminstrator (64-Bit) unter Treiber folgende:
MySQL ODBC 8.0 ANSI Driver (Version 8.00.12.00)
MySQL ODBC 8.0 Unicode Driver (Version 8.00.12.00)
gefunden, aber die nimmt er nicht wenn ich für str_Datenbank folgendes nehme: "MySQL ODBC 8.0 ANSI Driver" auch das andere klappt nicht.

Ich stehe auf dem Schlauch.

Code:

Sub DatenVomSQLServerBeziehen()
' #################################################################################
' Zuvor bitte die Library:
' --> Microsoft ActiveX Data Objects 2.8 Library
' aktivieren!
' #################################################################################

' Allgemeine Deklaration:
'Logindaten
Dim str_Servername As String
Dim str_Benutzer As String
Dim str_Passwort As String
Dim str_Datenbank As String
Dim str_ODBCTreiber As String

str_Servername = LoginDaten.Range("B2").Value
str_Benutzer = LoginDaten.Range("B3").Value
str_Passwort = LoginDaten.Range("B4").Value
str_Datenbank = LoginDaten.Range("B5").Value
str_ODBCTreiber = LoginDaten.Range("B6").Value

'Verbindung deklarieren als ADO (DAO wäre mehr für MsAccess)
Dim oConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field

Dim mysql As String
Dim row As Integer
Dim Col As Integer
' Dim ws As ThisWorkbook
' Set ws = ThisWorkbook

' Dim WS As Worksheet
' Set WS = Worksheets("Sheet1")

Application.ScreenUpdating = False
' ActiveSheet.Unprotect
Set oConn = New ADODB.Connection
Set rs = New ADODB.Recordset

'###############################################################################
' MySQL - Anweisung ab hier:

mysql = "Describe MeineTabelle;"

'###############################################################################

' Verbindung zu Datenbank herstellen:
'================================================================================================================
oConn.ConnectionString = "Driver={" & str_ODBCTreiber & "}" & _
";server=" & str_Servername & _
";uid=" & str_Benutzer & _
";pwd=" & str_Passwort & _
";database=" & str_Datenbank
oConn.ConnectionTimeout = 30
oConn.Open

' Verbindung Verbindungsaufbau feststellen
If oConn.State = adStateOpen Then
MsgBox "Verbindung zur Datenbank erfolgreich!"
Else
MsgBox "Verbindung zur Datenbank fehlgeschlagen"
End If

'================================================================================================================

' SQL Code auf Datenbank anwenden und öffnen des Recordset (Virtuelle Tabelle in den Zwischenspeicher legen):
rs.Open mysql, oConn

'Abfangroutine für leeren Recordset:
If rs.EOF Then
MsgBox "Kein Datensatz gefunden!" 'EOF = End Of File
rs.Close
oConn.Close
Exit Sub
End If

' #####################################################################################
' Tabelle erstellen in Excel aus MySQL Datenbank mittels eines SQL Codes (mysql)
' #####################################################################################
' Zielposition um die gefilterte Tabelle (siehe: mysql) aus der Datenbank zu erstellen:
row = 8
Col = 2
' Überschrift zeile erstellen:
For Each fld In rs.Fields
Output.Cells(row, Col).Value = fld.Name
Col = Col + 1
Next
rs.MoveFirst
row = row + 1
' Tabelle füllen mit Datenreihen
Do While Not rs.EOF
Col = 1
For Each fld In rs.Fields
Output.Cells(row, Col).Value = fld
Col = Col + 1
Next
row = row + 1
rs.MoveNext
Loop

' Verbindung zu Datenbank schliessen (Wichtig!)
'================================================================================================================
rs.Close
oConn.Close
'================================================================================================================

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Storax · 16. August 2018

Schon mal hier geschaut

Office: (Office 2013) VBA Code für Connectionstring (ODBC 8.0 Driver)

VBA Code für Connectionstring (ODBC 8.0 Driver)

VBA Code für Connectionstring (ODBC 8.0 Driver)

VBA Code für Connectionstring (ODBC 8.0 Driver) - Similar Threads - VBA Code Connectionstring

Per Hyperlink ausgeblendetes Blatt einblenden

VBA Code für Zeilen ausblenden einblenden mit JA/Nein

VBA Code ohne ergebnis

VBA Code Anpassen "Wert Einfügen statt Formel"

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

VBA Code " Zeilenhöhe bei Verb. Zellen Funktioniert fasst"

PDF mit Namen,Datum speichern im Zielordner