发布于 2011-07-28 08:32:33
6楼
2、打开记录集
Dim strSQL
Dim rsTmp
strSQL = "Select * From MyTable"
Set rsTmp = CreateObject("ADODB.Recordset")
Set rsTmp.ActiveConnection = MyConn
With rsTmp
.CursorLocation = 3 'adUseClient
.CursorType = 3 'adOpenStatic
.LockType = 1 'adLockReadOnly
.Source = strSQL
.Open
End With
无论成与败,无论甜与苦,我还是我。