VB如何向mysql插值？总是出错！

Question

Dim smConnString  As String
    smConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;PORT=3306;DATABASE=dstore;USER=root;PASSWORD=111111;OPTION=3;"
         Dim rs2 As New ADODB.Recordset
    Dim connm As New ADODB.Connection
    connm.Open smConnString rs2.Open "INSERT INTO fenzu (username, unit) VALUES('1', '1')", connm
       Set rs2 = Nothing
   Set connm = Nothing

Answer 1

connm.execute  "INSERT INTO fenzu (username, unit) VALUES('1', '1')"

Answer 2

mysql我没用过，你首选要保证连接上了数据库
连接字符串参考：http://www.connectionstrings.com/

Answer 3

错误提示：[MySQL][ odbc 3.51 Driver][MYSQLID-5.0.27-COMMUNITY-NT]Duplicate entry ‘1’ for key 1

Answer 4

错误在：rs2.Open "INSERT INTO fenzu (username, unit) VALUES('1', '1')", connm

Answer 5

rs是记录集，是返回查询结果插入数据要用connm的execute方法：
connm.execute "INSERT INTO fenzu (username, unit) VALUES('1', '1')"如果 unit是数值类型字段的话，SQL语句中的值不要用''号
connm.execute  "INSERT INTO fenzu (username, unit) VALUES('1',1)"