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.
In einem Tutorial habe ich folgendes gefunden:
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
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.
Code:
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:
Code:
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