为什么老是出错?
飞峪 2004-10-25 02:15:02 我的程序如下,不知道怎么老是提示说实时错误'-2147217900(80040e14)',
Dim CN As New adodb.Connection
Dim RS As New adodb.Recordset
CN.ConnectionString = "Driver={Microsoft ODBC for Oracle};Server=cgd;Uid=cgd;Pwd=cgd;"
CN.Mode = adModeReadWrite
CN.Open
Dim a
a = Format(Now, "YYYY/MM/DD")
Sql = "insert into ROOM(RO_NUM,RO_NAM,RO_TYP,RO_BU_NUM,RO_FL_NUM,RO_BUI_ARE,RO_UTI_ARE,RO_BUI_TIM,BU_USE,BU_REM)"
Sql = Sql & " VALUES(1,2,3,4,5,6,7,12-六月-2003,9,10)"
CN.Execute Sql