Set form1.dgAsset.DataSource = Nothing Set rs = New ADODB.Recordset With rs .CursorType = adOpenDynamic .CursorLocation = adUseClient .LockType = adLockPessimistic .Source = "SELECT * FROM tblasset" Set .ActiveConnection = cnnCMMS .Open End With Set form1.dgAsset.DataSource = rs 应该可以的
Rs.CursorLocation = adUseClient '加一句 Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = Rs
Set rs = New ADODB.Recordset
With rs
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "SELECT * FROM tblasset"
Set .ActiveConnection = cnnCMMS
.Open
End With
Set form1.dgAsset.DataSource = rs
应该可以的
Rs.CursorLocation = adUseClient '加一句 Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = Rs