zugriff mit vb6 auf mySql

[Luda]

Hallo, ich habe ein VB6- prog. geschrieben das auf eine my-sqldb zugreift. Dies habe ich dann mit access und odbc verknüpft und habe dann ganz normal mit ado darauf zugegriffen. Was auch funktioniert.
jetzt möchte ich aber eine direkte verbindung zum My sqlserver erstellen. Dies klappt aber leider nicht. Mit asp kann ich auf ihn zugreifen.
Weiss da jemand bescheit
Gruß Luda
Option Explicit
Public cn As ADODB.Connection
Private Sub Form_Activate()
Dim rs As ADODB.Recordset, sql As String
sql = "select * from kunde where ku_nr = 62"
Set cn = db_connect
Set rs = db_recordset(cn, sql)
End Sub

Public Function db_connect() As ADODB.Connection
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=MSDASQL;Driver=MySQL ODBC 3.51 Driver;" & _
"Server=" & CStr("245.122.108.232") & ";UID=" & CStr("a_auto") & _
";PWD=" & CStr("test") & ";database=" & CStr("test") & _
";Option=16386"
cn.Open


Set db_connect = cn
End Function
Public Function db_recordset(cn As ADODB.Connection, sql As String) As ADODB.Recordset

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.Source = sql
.ActiveConnection = cn
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open 'hier entsteht der Fehler
End With

Set db_recordset = rs
End Function

 

[Thomas Darimont]

Servus!

Schau dir mal hier: http://www.vbmysql.com/articles/visual-basic_mysql/blobaccessvb.html den Sample Code an ...

Gruß Tom