为什么显示如下信息
Dim ObjConn As ADODB.Connection
Dim ObjRs As ADODB.Recordset
Dim StrConn As String
Dim StrSQL As String
Dim IntI As Integer
Dim SngOldTime As Single
Dim SngTimeOut As Single
SngOldTime = Timer()
Set ObjConn = New ADODB.Connection
StrConn = "Provider=SQLOLEDB;User ID=sa;Password=50zsmsd25;Initial Catalog=test;Data Source=192.168.0.100;"
ObjConn.Open StrConn
If ObjConn Is Nothing Then
MsgBox "无法连接数据库" & vbCrLf & Err.Description, vbCritical + vbOKCancel, "错误"
Exit Sub
End If
For IntI = 1 To 105
StrSQL = "insert into see(name,address)values(" & "'Xu Shanghua" & Str(IntI) & "','SZ" & Str(IntI) & "')"
On Error Resume Next
ObjConn.Execute StrSQL
If Err.Number <> 0 Then
MsgBox "执行SQL发生错误!" & vbCrLf & StrSQL & vbCrLf & "请检查这条SQL语句", vbCritical + vbOKOnly, "错误"
Exit Sub
End If
Next IntI
SngTimeOut = Timer() - SngOldTime
MsgBox "执行成功!" & "共花 " & SngTimeOut & " 秒.", vbInformation + vbOKOnly, "提示"
Set ObjRs = New ADODB.Recordset
ObjRs.Source = "Select * From See"
Set ObjRs.ActiveConnection = ObjConn
ObjRs.CursorType = adOpenKeyset
ObjRs.LockType = adLockOptimistic
ObjRs.Open
If Err.Number <> 0 Then
MsgBox "创建ObjRs对象失败!" & vbCrLf & Err.Description, vbCritical + vbOKOnly, "错误"
Exit Sub
End If
ObjRs.PageSize = 10
MsgBox "ObjRs.PageSize = " & ObjRs.PageSize & vbCrLf & _
"ObjRs.PageCount = " & ObjRs.PageCount & vbCrLf & _
"ObjRs.AbsolutePage = " & ObjRs.AbsolutePage & vbCrLf & _
"ObjRs.EOf = " & CStr(ObjRs.EOF) & vbCrLf & _
"ObjRs.BOF = " & CStr(ObjRs.BOF) & vbCrLf & _
"ObjRs.RecordCount = " & CStr(ObjRs.RecordCount) & vbCrLf & _
"ObjRs.AbsolutePosition = " & CStr(ObjRs.AbsolutePosition)
ObjRs.Close
Set ObjRs = Nothing
ObjConn.Close
Set ObjConn = Nothing
执行如下代码为什么最后显示如下信息:
ObjRs.PageCount=10
ObjRs.AbsolutePage=-1
ObjRs.EOF=false
ObjRs.BOF=false
ObjRs.RecordCount=-1
Obj.AbsolutePosition=-1