![]() |
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
|
|
|
|
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: [ 5550 ]
|
|
|