为什么x总是0

[doudoushen]

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", adoconn

adoconn.Execute ("count to" & " " & "x") 可能是问题语句
MsgBox x

ADORS.Close
adoconn.Close
End Sub


Private Sub Form_Load()
Set ADORS = New ADODB.Recordset
Set adoconn = New ADODB.Connection
End Sub

为什么x总是0

[zsgzsgzsg]

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

[落伍者]

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.Connection

AA = "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 x

ADORS.Close
adoconn.Close
End Sub

[doudoushen]

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

[liangfang]

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 '释放该对象