|
我做了一个针对自己的过程,如果设为admoderead,则update方法不能使用,好象是针对自己引用的:
Private Sub 命令2_Click()
Dim conn As New ADODB.Connection
Dim rs As Recordset
conn.Mode = adModeReadWrite
'这里如果设为admoderead,则后面的UPDATA不能完成
conn.Open "provider=microsoft.jet.oledb.4.0;" & _
"data source=C:\Documents and Settings\Administrator\桌面 \WORKHARD\northwind.mdb;"
Set rs = New ADODB.Recordset
rs.Open "雇员", conn, adOpenKeyset, adLockOptimistic
rs.Fields("姓氏") = "lsfzheng"
rs.Update
Debug.Print rs.Fields("姓氏")
rs.Close
End Sub
没有做其它机引用的例子,但从主里来看,是针对自己引用时.
不知道我说明白没有
|
|