为什么x总是0

Question

Private ADORS As ADODB.Recordset
Private adoconn As ADODB.Connection
private AA as string
Private x As Long
Private Sub Command1_Click()
On Error Resume Next
AA = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"
adoconn.Open AA
ADORS.Open "zuozhe", adoconnadoconn.Execute ("count to" & " " & "x")  可能是问题语句
MsgBox xADORS.Close
adoconn.Close
End Sub
Private Sub Form_Load()
Set ADORS = New ADODB.Recordset
Set adoconn = New ADODB.Connection
End Sub为什么x总是0

Answer 1

adoconn.CursorLocation = adUseClient
adoconn.Open AA
ADORS.Open "zuozhe", adoconn
x=ADORS.recordcount
MsgBox x

Answer 2

这为大哥  还是不行运行结果 x=-1  
另外谁能告诉我怎么用sql  关键是怎么声明引用  谢谢

Answer 3

Public Cn As Connection’声明库Set Cn = New ADODB.Connection
connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\1.mdb;Persist Security Info=False"
 Cn.Open connectstring '打开数据库                  打开数据表
                Dim Rs As Recordset
                Dim strSql As String
                Set Rs = New ADODB.Recordset
                Rs.CursorLocation = adUseClient
                strSql = "SELECT * FROM TEMP " (TEMP为表名)
                Rs.Open strSq, Cn, adOpenStatic, adLockOptimistic
               
                If Rs.RecordCount > 0 Then
                   MsgBox Rs.RecordCount 
                   Rs.MoveFirst
                   Do Until Rs.EOF
                      
    Rs.MoveNext '下一个
                   Loop
                End If
                Rs.Close
                Set Rs = Nothing  '释放该对象关闭数据表
                关闭数据库
                 Cn.Close
                 Set Cn = Nothing  '释放该对象

Answer 4

Private ADORS As ADODB.Recordset
Private adoconn As ADODB.Connection
private AA as string
Private x As Long
Private Sub Command1_Click()
On Error Resume Next
Set ADORS = New ADODB.Recordset
Set adoconn = New ADODB.ConnectionAA = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"
adoconn.Open AA
ADORS.Open "zuozhe", adoconn,3,3'adoconn.Execute ("count to" & " " & "x")  这句话没有道理MsgBox xADORS.Close
adoconn.Close
End Sub