MySQL-Commands ausführen

[hugamann]

Hallo,

ich möchte per VB 6.0 einige Datenbank-Befehle ausführen.
Wie ich bereits gelesen habe, funktioniert das mit dem Befehl: ADODB.Command

Ich habe mir auch schon einen kleinen Code zusammengebastelt, der normalerweise (das connecten) funktioniert, allerdings nicht das Ausführen von Befehlen.

Set conn = New ADODB.Connection
Dim count As Integer

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=192.168.62.54;" _
            & "DATABASE=nukewar;" _
            & "UID=hugamann;" _
            & "PWD=bugamann;" _
            & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

conn.CursorLocation = adUseClient

conn.Open

Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset

In einem Tutorial habe ich folgendes gefunden:

Dim Cmd As New ADODB.Command
Cmd.ActiveConnection = Cn

Dim i As Long

Cmd.ActiveConnection = Cn
Cmd.CommandType = adCmdText
Cmd.CommandText = "DELETE FROM tblName WHERE Alter > 80"
Cmd.Execute i
MsgBox i

Wenn ich das ausführe, dann kommt der Fehler an der Stelle mit dem Cn (Cmd.ActiveConnection = Cn).
Ab da gehts dann nicht weiter.

Mache ich irgendwas falsch ? Wo liegt mein Fehler, danke für Eure Hilfe.

hugamann

 

[spirit]

Hallöchen

Schau mal hier: http://www.tutorials.de/forum/showthread.php?t=173584&highlight=mysql