不要采用绑定链接表的方法来实现修改,采用ADO的方法来实现显示数据和保存数据.
一、显示数据:
Private Sub Form_Load()
Dim strConn As String
Dim strsql As String
Dim Cnxn As ADODB.Connection
Dim rst As ADODB.Recordset
strConn = Forms!usysfrmlogin!LabConn.Caption
Set Cnxn = New ADODB.Connection
Cnxn.Open strConn
Set rst = New ADODB.Recordset
strsql = "select * from tblmemberinfor where mid='" & selectstr & "'"
rst.CursorLocation = adUseClient '本地游标
rst.Open strsql, strConn
rst.MoveFirst
Me.myName = rst("mName")
Me.mSex = rst("mSex")
Me.cartNum = rst("cartNum")
Me.cardID = rst("cardID")
Me.mDate = rst("mDate")
Me.mAmoun = rst("mAmoun")
Me.mConversion = rst("mConversion")
rst.Close
Cnxn.Close
Set rst = Nothing
Set Cnxn = Nothing
end sub
二、保存数据:
Dim strConn As String
Dim strsql As String
Dim Cnxn As ADODB.Connection
Dim rstMember As ADODB.Recordset
strConn = Forms!usysfrmlogin!LabConn.Caption
Set Cnxn = New ADODB.Connection
Cnxn.Open strConn
Set rstMember = New ADODB.Recordset
strsql = "select * from tblmemberinfor where mid='" & selectstr & "'"
rstMember.Open strsql, Cnxn, adOpenKeyset, adLockOptimistic
rstMember.MoveFirst
rstMember("mName") = Me.myName
rstMember("mSex") = Me.mSex
rstMember("cartNum") = Me.cartNum
rstMember("cardID") = Me.cardID
rstMember("mDate") = Me.mDate
rstMember("mAmoun") = Me.mAmoun
rstMember("mConversion") = Me.mConversion
rstMember.Update
rstMember.Close
Cnxn.Close
Set rstMember = Nothing
Set Cnxn = Nothing