Set expRecord = Adodc1.Recordset
这叫什么绑定呀!不懂!为什么一定要绑定呢?
给你一段代码,自己好生琢磨去吧!Private Sub mnuFileQuit_Click()
    Dim Irow As Integer, strTmp As String
    Dim RsTmp As New ADODB.Recordset
    
    For Irow = 0 To Dgd结果.Columns.Count - 1
        strTmp = IIf(Len(strTmp) = 0, "", strTmp & ";") & Dgd结果.Columns(Irow).Width
    Next
    With RsTmp
        If .State = 1 Then .Close
        .CursorLocation = adUseClient
        .Open "select * from 票据目录 where 关键字='width'", cnnkj, adOpenKeyset, adLockOptimistic
        If .RecordCount = 0 Then
            .AddNew
            !编号 = "105"
            !关键字 = "width"
            !名称 = "胃镜室"
        End If
        !数据源 = strTmp
        cnnkj.BeginTrans
            .UpdateBatch adAffectCurrent
        cnnkj.CommitTrans
    End With
    On Error Resume Next
    Unload Me
End Sub希望对你能有所帮助!:)

解决方案 »

  1.   

    不是啊
    我已经写了你上面的了啊我的问题是想把text1(datafiled已设为表中的一个字段)中用户输入的数据传回表里
    可是运行时出现:"**字段不能为零长度的字符串"的错误
    不知为什末
      

  2.   

    expRecord.Fields("姓名") = trim(Text1.Text )
      

  3.   

    检查数据表中字段的设置。在ACCESS里有这个问题,是因为数据表中的字段被设置成为“不允许长度为0的字符串”。
      

  4.   

    dreammaker(世界因我而存在) :
    游标怎末设呀?
    access2000zhplovelsy(张少侠) :
    好像可以了但是新问题是:Text1.Text里是当前纪录,我要是一改,也出错说
    缺少活不正确的键列信息;更新影响到过多的行
    然后下一次运行时,数据库里该字段所有值都变成Text1.Text得值了
      

  5.   

    woliuliudada(嘟嘟) 说的是对的,在ACCESS 里头,文本数据的属性“允许空字符串”被设置为“否”,给成为“是”就可以解决问题了。
      

  6.   

    你在设计数据库时允许字段为NULL就可以了,或在程序中设置:
    Adodc1.Recordset.AddNew
    if text1.text<>"" then
    Adodc1.Recordset.filed("*").value=text1.text
    Adodc1.Recordset.Update
    end if
    这样就不会出现了
      

  7.   

    expRecord.Fields("姓名") = Text1.Text &""另外,增加最好用insert into,修改用update,删除用delete from
      

  8.   

    我地答案:
    再使用addnew方法时。要注意如果数据库中有其他字段,其他字段不允许为null时,出现上述错误!!