Hallo Community, ich hab ein problem beim abfragen einer MySQL Datenbank von VB aus… Ich hab schon jede menge ausprobiert aber finde keinen fehler… Vieleicht sieht Ihn ja einer oder eine von euch hier…
PS: Das schreiben mit INSERT INTO klappt ausgezeichnet - die verbindung steht also… Hab die stelle die beim Fehler angezeigt wird mit * markiert und den Fehlertext druntergesetzt…
Würde mich freuen wenn Ihr helfen könnt…
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim name As New ADODB.Recordset
Dim test As String
Dim oConn As New ADODB.Connection
Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sOriginal As String
Dim sDBName As String
Dim oRS As ADODB.Recordset
oRS = New ADODB.Recordset
test = TextBox1.Text
’ Server Hostname (oder IP)
sServer = „127.0.0.1“
’ Benutzerdaten
sUserName = „++++“
sOriginal = „++++“
sPassword = „++++“
’ Datenbank-Name
sDBName = „cry“
sConn = „DRIVER=MySQL ODBC 3.51 Driver;Server=“ & sServer & „;Database=“ & sDBName
’ Connection öffnen
oConn.Open(sConn, sUserName, sOriginal)
MsgBox(„Einen moment " & test & " wird in der Datenbank abgelegt…“)
’ Abschicken des Insert-Befehls
oConn.Execute(„INSERT INTO nutzer (code) VALUE (’“ & test & „’);“)
’ Abschicken des Select-Befehls
oRS.Open(„SELECT name FROM nutzer Where code = 001;“, oConn)
***test = oRS(„name“)***
Label1.Text = test
End Sub
Ok, bekomme nun diese Fehlermeldung :
Unable to cast COM object of type ‚System.__ComObject‘ to class type ‚System.String‘. Instances of types that represent COM components cannot be cast to types that do not represent COM components; however they can be cast to interfaces as long as the underlying COM component supports QueryInterface calls for the IID of the interface.
An der Stelle die ich in *** *** gefasst habe…