试试吧!肯定没问题, 这种方式我做过许多项目。Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sqlstr As StringPrivate Sub Command1_Click() rs.ActiveConnection = cn sqlstr = "select * from info" rs.CursorLocation = adUseClient rs.CursorType = adOpenStatic rs.LockType = adLockOptimistic rs.Open sqlstr Set DataGrid1.DataSource = rs End SubPrivate Sub Form_Load() sqlstr = "driver={microsoft access driver (*.mdb)};dbq=\\srv011\d\ex.mdb;pwd=;uid=admini" cn.ConnectionString = sqlstr cn.Open End Sub
即:RS.CURSORLOCATION=ADUSECLIENT
2.access已经设了共享,但当别的拥护打开后,本机无法更改,显示为只读对象。
access数据库不支持多用户同时连接
难道access真的不支持多用户同时操作?不能将其放在局域网中供多用户使用?
只要一个用户打开,其他用户就无法操作
例如:CNN.OPEN STRNAME,"用户名"," 密码"
试试看!
Dim rs As New ADODB.Recordset
Dim sqlstr As StringPrivate Sub Command1_Click()
rs.ActiveConnection = cn
sqlstr = "select * from info"
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open sqlstr
Set DataGrid1.DataSource = rs
End SubPrivate Sub Form_Load()
sqlstr = "driver={microsoft access driver (*.mdb)};dbq=\\srv011\d\ex.mdb;pwd=;uid=admini"
cn.ConnectionString = sqlstr
cn.Open
End Sub