Hi
ich schon wieder,
habe ein älteres thema benutzt um eine verbindung mit VB 6.0 zu einer mysql db herstellen zu können. Soweit so gut aber ich bekomme immer eine Fehlermeldung.
ich habe alles step by step gemacht aber hier mal mein code:
Private Sub Command1_Click()
Dim rcs As New Recordset
rcs.Open "SELECT * FROM kunden"
Do While Not rcs.EOF
MsgBox rcs!testfeld
rcs.MoveNext
Loop
End Sub
Private Sub Command2_Click()
Dim conpubs As New ADODB.Connection
conpubs.ConnectionString = "DSN=mysqlversuch; SERVER=81.169.174.53; DATABASE=franktestdb; UID=; PWD="
conpubs.CursorLocation = adUseClient
conpubs.Open
If Err.Number <> 0 Then
MsgBox "Fehler beim Verbinden"
End If
End Sub
Die Fehlermeldung lautet:
Die Vernindung kann nicht verwendet werden, um diesen Vorgang auszuführen. Sie ist entweder geschlossen oder in diesem zusammenhang ungültig.
Sie erscheint wenn ich mir die daten anzeigen lassen will.
was könnte das sein???
danke schonmal für die Hilfe
pepo
ich schon wieder,
habe ein älteres thema benutzt um eine verbindung mit VB 6.0 zu einer mysql db herstellen zu können. Soweit so gut aber ich bekomme immer eine Fehlermeldung.
ich habe alles step by step gemacht aber hier mal mein code:
Private Sub Command1_Click()
Dim rcs As New Recordset
rcs.Open "SELECT * FROM kunden"
Do While Not rcs.EOF
MsgBox rcs!testfeld
rcs.MoveNext
Loop
End Sub
Private Sub Command2_Click()
Dim conpubs As New ADODB.Connection
conpubs.ConnectionString = "DSN=mysqlversuch; SERVER=81.169.174.53; DATABASE=franktestdb; UID=; PWD="
conpubs.CursorLocation = adUseClient
conpubs.Open
If Err.Number <> 0 Then
MsgBox "Fehler beim Verbinden"
End If
End Sub
Die Fehlermeldung lautet:
Die Vernindung kann nicht verwendet werden, um diesen Vorgang auszuführen. Sie ist entweder geschlossen oder in diesem zusammenhang ungültig.
Sie erscheint wenn ich mir die daten anzeigen lassen will.
was könnte das sein???
danke schonmal für die Hilfe
pepo