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希望对你能有所帮助!:)
这叫什么绑定呀!不懂!为什么一定要绑定呢?
给你一段代码,自己好生琢磨去吧!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希望对你能有所帮助!:)
我已经写了你上面的了啊我的问题是想把text1(datafiled已设为表中的一个字段)中用户输入的数据传回表里
可是运行时出现:"**字段不能为零长度的字符串"的错误
不知为什末
游标怎末设呀?
access2000zhplovelsy(张少侠) :
好像可以了但是新问题是:Text1.Text里是当前纪录,我要是一改,也出错说
缺少活不正确的键列信息;更新影响到过多的行
然后下一次运行时,数据库里该字段所有值都变成Text1.Text得值了
Adodc1.Recordset.AddNew
if text1.text<>"" then
Adodc1.Recordset.filed("*").value=text1.text
Adodc1.Recordset.Update
end if
这样就不会出现了
再使用addnew方法时。要注意如果数据库中有其他字段,其他字段不允许为null时,出现上述错误!!