Habe schon stunden damit verbracht in irgendwelchen Foren zu suchen und habe immer nur Müll gefunden.
Versuche aus einer MySQL DB etwas auszulesen.
Habe folgendes versucht.
Versuch 1
Das hat nicht geklappt.
Dann habe ich es mit folgendem versucht:
da sagt er mir nur:
rs.RecordCount = 0
hat jemand mal einen vernünftigen lösungsweg ohne auf irgendwelche links zu verweiden ?
Versuche aus einer MySQL DB etwas auszulesen.
Habe folgendes versucht.
Versuch 1
Code:
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim count As Integer
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=hugamann;" _
& "DATABASE=datenbank;" _
& "UID=hugamann;" _
& "PWD=bugamann;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
conn.CursorLocation = adUseClient
On Error GoTo ms
conn.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tabelle", conn, adOpenStatic, adLockOptimistic
rs.Filter = "feld ='" & Text1.Text & "'"
rs.Filter = "feld2 ='" & Text2.Text & "'"
count = rs.RecordCount
If count = 2 Then
MsgBox "Geht Super ! :) :) :) :)"
Else
MsgBox ("XX")
End If
Exit Sub
ms:
MsgBox "Keine Verbindung zum Internet gefunden"
End Sub
Das hat nicht geklappt.
Dann habe ich es mit folgendem versucht:
Code:
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim count As Integer
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=hugamann;" _
& "DATABASE=datenbank;" _
& "UID=hugamann;" _
& "PWD=bugamann;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
conn.CursorLocation = adUseClient
On Error GoTo ms
conn.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tabelle", conn, adOpenStatic, adLockOptimistic
rs!feld = Text1.Text
rs!feld2 = Text2.Text
count = rs.RecordCount
If count = 2 Then
MsgBox "Geht Super ! :) :) :) :)"
Else
MsgBox ("XX")
End If
Exit Sub
ms:
MsgBox "Keine Verbindung zum Internet gefunden"
End Sub
da sagt er mir nur:
rs.RecordCount = 0
hat jemand mal einen vernünftigen lösungsweg ohne auf irgendwelche links zu verweiden ?