vb连接ACCESS数据库insert into问题

Question

代码如下：
 Dim cn1 As New ADODB.Connection
 Dim rs1 As New ADODB.Recordset
Dim dogid As Integer
            dogid = 11602
            cn1.Open "Driver={Microsoft Access Driver (*.mdb)};
            DBQ=e:\data\data\hf2.mdb"
            Set rs1 = cn1.Execute("insert into 加密狗ID values (dogid,0,'""','""')")
            cn1.Close
出现的错误是参数不足，期待是一
此 加密狗ID 表 前两个列是数值型，后两个是整型为何会出现这种错误呢

Answer 1

Set rs1 = cn1.Execute("insert into 加密狗ID values (dogid,0,'""','""')") 
删除Set rs1 = 

Answer 2

……你把insert语句前后的括号去掉

Answer 3

整型也是数值型.
Set rs1 = cn1.Execute("insert into 加密狗ID(字段名1,字段名2) values (dogid,0)") 

Answer 4

整型不用'' ,上面的写法是指定需要写入的字段.否则可以写:
Set rs1 = cn1.Execute("insert into 加密狗ID values (dogid,0,0,0)") 
这样后面默认添加了两个0

Answer 5

晕,没注意你的dogid
Set rs1 = cn1.Execute("insert into 加密狗ID(字段名1,字段名2) values (" & dogid & ",0)") 
 
 

Answer 6

http://download.csdn.net/source/1498324