奇怪阿！没有错误提示，但是却没有插入纪录，addnew难题

'创建虚拟记录集
    Set vRs = New ADODB.Recordset
    
    With vRs
        .Open "select * from 任务人员组成 where 1=2", Conn, adOpenStatic, adLockBatchOptimistic
        .AddNew
        .Fields(1) = TextNo
        .Fields(2) = Left(roleCbo.Text, InStr(roleCbo.Text, "-") - 1)
        .Fields(3) = Left(userCbo.Text, InStr(userCbo.Text, "-") - 1)
        .Fields(4) = "admin"
        .Update
        .Close
    End With

解决方案 »

  1.   

    请检查一下你的SQL语句，其他好象没有问题
      

  2.   

    '这样试试 
      Set vRs = New ADODB.Recordset
        
        With vRs
            .Open "任务人员组成", Conn, adOpenKeyset, adLockBatchOptimistic,adcmdtable
            .AddNew
            .Fields(1) = TextNo
            .Fields(2) = Left(roleCbo.Text, InStr(roleCbo.Text, "-") - 1)
            .Fields(3) = Left(userCbo.Text, InStr(userCbo.Text, "-") - 1)
            .Fields(4) = "admin"
            .Update
            .Close
        End With
      

  3.   

    插入数据的话去掉WHERE子句
    修改数据的话去掉AddNew