VBA 问题 哪错了???ODBC, ADODB.Command

[chenxianping1979]

Dim CnStr As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim comd As ADODB.Command
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set comd = CreateObject("adodb.command")

'cn.Open "Driver={Microsoft ODBC for Oracle};Server=V11L30.PRONES;", "SIX", "SIX", -1
' cn.Open "Provider=MSDAORA.1;Password=SIX;User ID=SIX;Data Source=V11L30;Persist Security Info=True"
cn.Open "Driver={Microsoft ODBC for Oracle};Server=V11L30;Uid=SIX;Pwd=SIX;"
comd.ActiveConnection = cn
comd.CommandText = "Inert into TempleTable (ABC) values('abcde')"
comd.CommandType = adCmdText
comd.Execute
Set comd = Nothing
cn.Close
哪错了? 为什么一执行 comd.Execute就出错??

[gudyn]

不知道你的为什么错，但是如果你的SQL语句没写错像下面这样是可以的：
Dim CnStr As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim comd As ADODB.Command
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set comd = CreateObject("adodb.command")

cn.Open "Provider=MSDAORA;Data Source=V11L30;User ID=SIX;Password=SIX"
comd.ActiveConnection = cn
comd.CommandText = "Inert into TempleTable (ABC) values('abcde')"
comd.CommandType = adCmdText
comd.Execute
Set comd = Nothing
cn.Close

[gudyn]

我在Excel中测试过！