Tipp 0282 MySQL-Datenbanken ansprechen
Autor/Einsender:
Datum:
  Julien Gedeon
26.10.2002
Entwicklungsumgebung:   VB 6
Dieses Programm zeigt, wie man auf MySQL-Datenbankserver zugreifen und die Eigenschaften einer Datenbank ermitteln kann. Da es mit ADO nicht ohne weiteres möglich ist, direkt auf einen MySQL-Server zuzugreifen, geschieht dies in diesem Beispiel via MyODBC. Diese Schnittstelle muss auf dem Server installiert sein. Infos und Download von MyODBC gibt es hier: MyODBC - the MySQL ODBC driver.
Ohne ADO kommt man aber auch hier nicht aus, ADO greift auf MyODBC zu, letzteres erstellt die eigentliche Verbindung zum Datenbankserver.
 
Option Explicit

Private Connection As Connection
Private Prop As Property

Private Sub cmd_show_Click()
  On Local Error GoTo errhandler

  Set Connection = New Connection
  Connection.ConnectionString = _
        "Provider=MSDASQL;Driver=MySQL;" & _
        "Server=" & CStr(hostname) & ";UID=" & CStr(username) & _
        ";PWD=" & CStr(password) & ";database=" & CStr(dbname) & _
        ";Option=16386"
  Connection.Open

  Info.Text = "MyInfo"
  Info.Text = Info.Text & vbCrLf & "Hostname: " & CStr(hostname)
  Info.Text = Info.Text & vbCrLf & "Username: " & CStr(username)
  Info.Text = Info.Text & vbCrLf & "Passwort: " & CStr(password)

  If Not CStr(dbname) = "" Then
    Info.Text = Info.Text & vbCrLf & "Datenbankname: " & _
            CStr(dbname)
  End If

  Info.Text = Info.Text & vbCrLf

  For Each Prop In Connection.Properties
    Info.Text = Info.Text & vbCrLf
    Info.Text = Info.Text & Prop.Name & " = " & Prop.Value
  Next

Exit Sub

errhandler:
  MsgBox "Es konnte keine Verbindung zur Datenbank " & _
        "hergestellt werden. Überprüfen sie Usernamen / " & _
        "Passwort, den Datenbanknamen und evtl. ob eine " & _
        "Internet- oder Netzwerkverbindung besteht. " & _
        "Vergewissern Sie sich, dass sie die erforderlichen " & _
        "Zugriffsrechte besitzen. Weiterhin muss auf dem " & _
        "Datenbankserver MyODBC installiert sein. Fragen sie " & _
        "im Zweifelsfall den Administrator. " & _
        "Falls ein Firewall auf dem Server benutzt wird, " & _
        "muss dieser Anfragen über den Port 3306 erlauben.", _
        vbCritical Or vbOKOnly, "Fehler"
End Sub
 
Hinweis
Um diesen Tipp ausführen zu können, muss die Microsoft ActivX Data Objects 2.x Library in das Projekt als Verweis eingebunden werden.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (3,6 kB) Downloads bisher: [ 5395 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 4. Juni 2011