各位大侠，在添加数据的时候总会覆盖第一个记录

Question

各位大侠，在添加数据的时候总会覆盖第一个记录，怎么办连接的是ACCESS请指教用的是Adodc.add   

Answer 1

我用的是ado
你试试这样做，引用ado 
    Dim Con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set Con = New ADODB.Connection
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
    Con.Open strCon
    Set rs = New ADODB.Recordset
    '添加记录
    strsql="select * from table"
    rs.Open strsql, Con, adOpenKeyset, adLockOptimistic      
    rs.addnew
       rs!字段1=text1.text
       rs!字段2=text2.text
       ........
    rs.update
    rs.close
    set rs=nothing
    '修改记录
    strsql="select * from table where id=1"
    rs.Open strsql, Con, adOpenKeyset, adLockOptimistic      
       rs!字段1=text1.text
       rs!字段2=text2.text
       ........
    rs.update
    rs.close
    set rs=nothing
        
    '删除记录
    strsql="delete from table where id=1"
    rs.Open strsql, Con, adOpenKeyset, adLockOptimistic      
       

Answer 2

缺这句：
adodc1.recordset.addnew

Answer 3

adodc1.recordset.addnew
对,就说每插入一行的时候,要先要插入一行新的数据才可以
然后后面的操作就OK了