我用一个简单SQL语句查询出一个结果集合,怎么样才能看到其中记录的个数呢?
解决方案 »
- vb读写当前Excel表中单个活动单元格的值
- VB实现在一个简得语音比较的算法!
- 我用tabstrip,发现frame2不能正常显示,谁来解决以下?
- 如何确定是根结点
- 请问sqlserver2000中bit类型值怎样表示
- 在vb中怎么使用access2000数据库中的用户和组的帐号?
- 如何使用ADODB对象把一个表保存到Excel格式的?
- lihonggen请进,多问1句
- ?这是我的第一个发布的软件,请指教!http://www.csdn.net/cnshare/soft/10/10423.shtm
- ??如何控制放在同一位置不同控件的层次?并且各控件要交替运行!!
- 如何捕获系统关机事件?
- 怎样判断用Shell调用的Dos的命令还在运行?
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim res As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=chat1.MDB;jet oledb:database password=haha"
Set res = New ADODB.Recordset
res.Open "select * from name", cnn, 1, 3
Text1.Text = res.RecordCount
Set res = Nothing
Set cnn = Nothing
End Sub
以上代码经过调试。
你再试一试!!!
Dim res As New ADODB.Recordset
cnn.open "连接串"
res.Open "表名",cnn,..,..,adcmdtable
Megbox res.recordcount
res.close
'在工程中引用“Microsoft Actives Database Object 2.6 library”
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.MDB"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient '必须加上这句
rs.Open "select * from name", cnn, 1, 3
Debug.Print rs.RecordCount
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
我试过了,但是调试时报错说: variable not defined ,recordset 被高亮显示
------------------------------------------recordset 是你所用的记录集合,你别直接用它啊