[Fehler] Vb6 MYSQL Connection

Code! :p

Hm.... einfach nur abstürzen ist komisch.. die MSGBOX kommt auch nicht?

Hmm, doch sie kommt, dann läd es noch ein wneig und verreckt dasnn vollends!

Ich werds Morgen mal hier auf meinem heimischen Notebook mit MySQL probieren.
Würde dir für Versuchszwecke übrigens auch raten, MySQL lokal zu installieren.. ;)

Sorry für den Doppelpost...
SOOOOOOOOOOOOOOOOO
Bin jetzt daheim und hab gleich mal ausprobiert.

Es funzt ^^" (mit MySQL)



Folgender Code ist jetzt bei mir drin:

-ACHTUNG.. ich hab im geposteten Code bereits alles wieder auf deine Variablen gestellt.
Lediglich das PW musst du wieder ersetzen. Das einzige was sonst anders zu dem Code ist, den du jetzt haben müsstest ist der Driver. Mein Tip: Kopier den Code, so wie er hier ist 1:1 in die IDE, ersetz das PW und probiers dann nochmal.
Übrigens: Ich hoffe du hast die Tabelle und die Spalte eh angelegt? ^^ -

Code:

---

Private Sub but1_Click()

Dim ergebnis As New ADODB.Recordset
' NEU!!!!!!

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 sCode As String
Dim sDBName As String
' Server Hostname (oder IP)

'BITTE WIEDER DURCH DIE RICHTIGEN DATEN ERSETZEN
sServer = "mysql.lima-city.de"
' Benutzerdaten
sUserName = "USER26252"
sOriginal = "****"
sPassword = "***"

'BITTE BEACHTEN, DASS ICH DIE ZWEI ZEILEN AUSKOMMENTIERT HABE. MIR WAR NICHT
'GANZ KLAR WARUM DU DAS PW FÜR DEN SQL ZUGRIFF MIT EINER INTERNEN ROUTINE
'"VERSCHLÜSSELST"... NOTWENDIG???
'sCode = VernamCode(sOriginal, sPassword)
'sOriginal = VernamCode(sCode, sPassword)


' Datenbank-Name
sDBName = "DB1116949315"
sConn = "DRIVER=MySQL ODBC 3.51 Driver;Server=" & sServer & ";Database=" & sDBName


' Connection öffnen
oConn.Open sConn, sUserName, sOriginal
MsgBox "Funktion wird ausgeführt, trage ein... Bitte warten!"
' Abschicken des Insert-Statements

'UND SO SOLLTE DAS STATEMENT AUSSEHEN, DAMITS FUNZT ;)
Set ergebnis = oConn.Execute("INSERT INTO wake(message) VALUES ('" & inp1.Text & "')")
End Sub

---

Wenn du das jetzt so kopierst und einfügst, danach das PW ersetzt und ausführst sollte es eigentlich funzen... bei mir tuts das.
Wenns das bei dir nicht tut, dann kompilier das Ganze mit DIESEM Code und schick mir das Exe File, damit ich sehen kann obs bei mir auch zu nem Absturz kommt. :)

(hab dir meine Mail-Addy per PN geschickt)