ACCESS数据库不能插入数据问题

Question

我先打开一记录集MRC，用它的属性ADDNEW增加一记录，然后UPDATE，程序就提示出错“字段太少而不能接收所要添加的数据的数量，试着插入或粘贴较少的数据“。代码如下：
 txtsQl = "select * from table_name"
           Set mrc = ExecuteSQL(txtsQl, Msgtext)
           dutyid = mrc.Fields(4)
            mrc.AddNew
            mrc.Fields(1) = "kjj"‘字符类型
            mrc.Fields(2) = "1999-01-01"日期类型
            mrc.Fields(3) = "1999-01-01"日期类型
             mrc.Fields(4) = dutyid数字类型
            mrc.Fields(5) = 0数字类型
            mrc.Fields(6) = Trim(txtUserName.Text)"‘字符类型
            mrc.Fields(7) = Trim(txtPassword.Text)"‘字符类型
            mrc.Fields(8) = 0货币类型
            mrc.Fields(9) = 0货币类型
           mrc.Update

Answer 1

试着减少几个字段看看是那个字段的问题或者用sql语句

Answer 2

支持楼上的，你从fields(0）开始跟踪。

Answer 3

各位领导，不用ADDNEW语句，直接更改当前的记录如何？

Answer 4

dim sql as string
dim rs as new adodb.recordset sql = "select * from table_name"
rs.cursorlocation=aduseclient
rs.open sql,conn,1,3            mrc.AddNew
            mrc.Fields(1).value = "kjj"‘字符类型
            mrc.Fields(2).value = "1999-01-01"日期类型
            mrc.Fields(3).value = "1999-01-01"日期类型
             mrc.Fields(4).value = dutyid数字类型
            mrc.Fields(5).value = 0数字类型
            mrc.Fields(6).value = Trim(txtUserName.Text)"‘字符类型
            mrc.Fields(7).value = Trim(txtPassword.Text)"‘字符类型
            mrc.Fields(8).value = 0货币类型
            mrc.Fields(9).value = 0货币类型
           mrc.Update字段的數據類型要與你的賦值時的數據類型一致

Answer 5

有可能是你的数据库中有关键字的原因~也说不定~
建议语句前面加入
On Error Goto Err_Executedim sql as string
dim rs as new adodb.recordset sql = "select * from table_name"
rs.cursorlocation=aduseclient
rs.open sql,conn,1,3            mrc.AddNew
            mrc.Fields(1).value = "kjj"‘字符类型
            mrc.Fields(2).value = "1999-01-01"日期类型
            mrc.Fields(3).value = "1999-01-01"日期类型
             mrc.Fields(4).value = dutyid数字类型
            mrc.Fields(5).value = 0数字类型
            mrc.Fields(6).value = Trim(txtUserName.Text)"‘字符类型
            mrc.Fields(7).value = Trim(txtPassword.Text)"‘字符类型
            mrc.Fields(8).value = 0货币类型
            mrc.Fields(9).value = 0货币类型
           mrc.Update         exit subErr_Execute:
    msgbox Err.Description & vblf & "更新语句出错!"看看提示什么错误再把错误贴出来，在说~

Answer 6

mrc.AddNew
            mrc.Fields(0).value = "kjj"‘字符类型
            mrc.Fields(1).value = "1999-01-01"日期类型
            mrc.Fields(2).value = "1999-01-01"日期类型
            mrc.Fields(3).value = dutyid数字类型
            mrc.Fields(4).value = 0数字类型
            mrc.Fields(5).value = Trim(txtUserName.Text)"‘字符类型
            mrc.Fields(6).value = Trim(txtPassword.Text)"‘字符类型
            mrc.Fields(7).value = 0货币类型
            mrc.Fields(8).value = 0货币类型
            mrc.Update