请帮我看看这段代码

Question

可能　是rs.Open strsel, , adOpenDynamic, adLockBatchOptimistic, 1
出现了错误，“cnn"这个参数还是要的吧！
　你可以试着用database和recordset 对象呀！

Answer 1

adLockBatchOptimistic好像要用updatebatch吧
要不就不要用开放式批锁定了吧
adLockOptimistic

Answer 2

cnn不能用默认的参数，必须改光标类型等等我记不太清了。

Answer 3

还是用"insert into"得了，我觉得还规范点！！1

Answer 4

'既然向identify记录中插入新值，为什么用identify字段来筛选记录集呢，又不是更改字段内容。dim strSql as string
Set cnn = New ADODB.Connection
set db as new adodb.database cnn.ConnectionString  "Provider=Microsoft.Jet.OLEDB.4.0;Data    Source=F:\project\vb\lzzl\lzzl.mdb;Persist Security Info=False"
            cnn.OpenstrSql="insert into resume (identify,bianhao,startdate,enddate,bureau,position,wittness)values(1,6,'" & cdate(txtsdate.text) & "','" & cdate(txtedate.text) & "','" & txtbureau.text & "','" & txtpos.text & "','" & txtwit.text & "';"cnn.execute strsql

Answer 5

Thanks to all
我先将插入代码修改如下，调试通过
If curstate = "add" Then
            
            empid = frmmain.subAdodc.Recordset.Fields(0)
            curbianhao = frmmain.subAdodc.Recordset.RecordCount + 1
            d1 = CDate(txtsdate.Text)
            d2 = CDate(txtedate.Text)
            strsel = "INSERT INTO resume VALUES(" & empid & "," &  curbianhao & ",'" & d1 & "','" & d2 & "','" & txtbureau.Text & "','" & txtpos.Text & "','" & txtwit.Text & "')"
            cnn.Execute strsel
            On Error GoTo InsertError
            MsgBox "记录已添加", vbOKOnly
 Else
            d1 = CDate(txtsdate.Text)
            d2 = CDate(txtedate.Text)
            curbianhao = frmmain.subAdodc.Recordset.Fields("bianhao")
            strsel = "UPDATE resume set startdate='" & d1 & "',enddate='" & d2 & "',bureau='" & txtbureau.Text & "',position='" & txtpos.Text & "',wittness='" & txtwit.Text & "'"
            strsel = strsel + "where (bianhao=" & curbianhao & ")"
            cnn.Execute strsel
            On Error GoTo ModifyErr
            MsgBox "记录已被修改", vbOKOnly
        End If但是有碰到新的问题，用UPDATE 修改记录时，语句的语法不正确，可是我看MSDN和书上都是这么写的呀。

Answer 6

不是空格问题
如果只对一个字段修改就不会出错，如改成
  strsel = "UPDATE resume set startdate='" & d1 & "'"
  strsel=strsel+" where ...."
就能更新的。