VB6: Auf MySQL Server zugreifen

mitti_fe50c0 · 29. September 2006 um 10:40

Hallo,

Ich muss per VB6 Programm auf einen MYSQL Server (der auf Windows läuft) zugreifen!
Ziel ist es per .exe Datei Tabellen Datensätzen etc. erstellen!
Kennt jemand ein solches Programm oder kann mir jmd sagen wie ich das angehen muss damit ich das Programm selber coden kann?

Ich danke für Eure Hilfe!

mfg

Patrick

M_L_ · 29. September 2006 um 10:49

Auch hallo.

Kennt jemand ein solches Programm oder kann mir :jmd sagen wie
ich das angehen muss damit ich das Programm selber :coden kann?

http://www.vb-magazin.de @ MySQL
Aber ein konkretes Beispiel war da auf die Schnelle nicht zu finden…

mfg M.L.

mitti_fe50c0 · 29. September 2006 um 11:19

Hallo,

Leider hilft mir die Seite nicht wirklich weiter!
Ich weiß ich nicht wie ich eine Connection mit VB6 auf einen MySQL Server erstellen/einrichten kann.
In VB.NET wüssten wir es!

mfg

Patrick

PS: Bis 14 Uhr sollte es fertig seien

Thomas_Franke_ad9be5 · 29. September 2006 um 11:32

Hallo Patrick,

Ich muss per VB6 Programm auf einen MYSQL Server (der auf
Windows läuft) zugreifen!
Ziel ist es per .exe Datei Tabellen Datensätzen etc.
erstellen!
Kennt jemand ein solches Programm oder kann mir jmd sagen wie
ich das angehen muss damit ich das Programm selber coden kann?

Als erstes den ODBC-Treiber für mysql downloaden und auf dem PC, auf dem
später das Programm eingesetzt werden soll, installieren.
http://dev.mysql.com/downloads/connector/odbc/3.51.html

Anschliessend steht Dir eine ODBC-Datenquelle zur Verfügung,
auf die Du mit allen von VB unterstützen Möglichkeiten
(Steuerelemente, DAO, ADO und wie sie alle heissen)
zugreiffen kannst.

Ggf. ist auch ein aktueller MDAC von MS hilfreich:
http://www.microsoft.com/downloads/details.aspx?disp…

Für das folgende Beispiel einen Verweis auf die „Microsoft
ActiveX Data Objects 2.x Library“ einfügen.

Anschliessend kann ein

 Dim cn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
 Dim Query As String
 Dim conf\_DB\_ConnectionString as String

 Const const\_mySQLDriver = "{MySQL ODBC 3.51 Driver}"
 Const const\_mySQLServer = "127.0.0.1"
 Const const\_mySQLDatabase = "myDatabase"
 Const const\_mySQLUser = "root"
 Const const\_mySQLPassword = ""
 Const const\_mySQLOption = "16384"

 conf\_DB\_ConnectionString = "DRIVER=" & conf\_DBmySQLDriver & ";" & \_
 "SERVER=" & conf\_DBmySQLServer & ";" & \_
 "DATABASE=" & conf\_DBmySQLDatabase & ";" & \_
 "USER=" & conf\_DBmySQLUser & ";" & \_
 "PASSWORD=" & conf\_DBmySQLPassword & ";" & \_
 "OPTION=" & conf\_DBmySQLOption & ";"

 Set cn = New ADODB.Connection
 Set rs = New ADODB.Recordset

 Query = "SELECT \* FROM myTable ORDER BY myField DESC"
 rs.Open Query, cn

 While Not(rs.EOF)
 Debug.Print rs.Fields("myField").Value
 rs.MoveNext
 Wend

 rs.Close
 cn.Close

genutzt werden, um beliebige SQL-Queries auszuführen.

Gruss
Thomas

mitti_fe50c0 · 29. September 2006 um 12:08

Als erstes den ODBC-Treiber für mysql downloaden und auf dem
PC, auf dem
später das Programm eingesetzt werden soll, installieren.
http://dev.mysql.com/downloads/connector/odbc/3.51.html

Anschliessend steht Dir eine ODBC-Datenquelle zur Verfügung,
auf die Du mit allen von VB unterstützen Möglichkeiten
(Steuerelemente, DAO, ADO und wie sie alle heissen)
zugreiffen kannst.

Ggf. ist auch ein aktueller MDAC von MS hilfreich:
http://www.microsoft.com/downloads/details.aspx?disp…

Für das folgende Beispiel einen Verweis auf die „Microsoft
ActiveX Data Objects 2.x Library“ einfügen.

Anschliessend kann ein

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Query As String
Dim conf_DB_ConnectionString as String

Const const_mySQLDriver = „{MySQL ODBC 3.51 Driver}“
Const const_mySQLServer = „127.0.0.1“
Const const_mySQLDatabase = „myDatabase“
Const const_mySQLUser = „root“
Const const_mySQLPassword = „“
Const const_mySQLOption = „16384“

conf_DB_ConnectionString = „DRIVER=“ & conf_DBmySQLDriver &
„;“ & _
„SERVER=“ & conf_DBmySQLServer & „;“ & _
„DATABASE=“ & conf_DBmySQLDatabase & „;“ & _
„USER=“ & conf_DBmySQLUser & „;“ & _
„PASSWORD=“ & conf_DBmySQLPassword & „;“ & _
„OPTION=“ & conf_DBmySQLOption & „;“

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

Query = „SELECT * FROM myTable ORDER BY myField DESC“
rs.Open Query, cn

While Not(rs.EOF)
Debug.Print rs.Fields(„myField“).Value
rs.MoveNext
Wend

rs.Close
cn.Close

genutzt werden, um beliebige SQL-Queries auszuführen.

Gruss
Thomas

Hallo Thomas,

Ein ganz großes DANKESCHÖN an dich!

mfg

Patrick

mitti_fe50c0 · 29. September 2006 um 13:15

Hallo,

du hattest einige Fehler in deinem Code hier die verbesserte Variante!

Private Sub Command1_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Query As String
Dim conf_DB_ConnectionString As String

Const const_mySQLDriver = „{MySQL ODBC 3.51 Driver}“
Const const_mySQLServer = „eure Server ip“
Const const_mySQLDatabase = „euere Datenbank“
Const const_mySQLUser = „euer User“
Const const_mySQLPassword = „euer Password“
Const const_mySQLOption = „16384“

'Hier war der Fehler:
conf_DB_ConnectionString = „DRIVER=“ & const_mySQLDriver & „;“ & _
„SERVER=“ & const_mySQLServer & „;“ & _
„DATABASE=“ & const_mySQLDatabase & „;“ & _
„USER=“ & const_mySQLUser & „;“ & _
„PASSWORD=“ & const_mySQLPassword & „;“ & _
„OPTION=“ & const_mySQLOption & „;“

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

Query = „SELECT * FROM localForm ORDER BY strFormMC DESC“
cn.Open ([conf_DB_ConnectionString]) 'Hier war auch ein Fehler
rs.Open Query, cn

While Not (rs.EOF)
Debug.Print rs.Fields(„strFormMC“).Value
rs.MoveNext
Wend

rs.Close
cn.Close

End Sub

mfg

Patrick