VB数据库查询

虽然不推荐，你可以试下放到公共变量里传递

全局变量当然可以保留值

模块

Public

TestRS

As

ADODB.Recordset

窗体1

Set

TestRS

=

rs

窗体2

MsgBox

TestRS.RecordCount

1.一个简单的查询的例子：

'*定义一个连接

Dim Conn As ADODB.Connection

'*定义一个记录集

Dim mrc As ADODB.Recordset

'*分别实例化

Set Conn = New ADODB.Connection

set mrc =New ADODB.Recordset

'*定义一个连接字符串

dim ConnectString as string

ConnectString="provider=microsoft.jet.oledb.4.0data source=" &App.Path &"\data\数据库名.mdbjet oledb:database password=数据库密码"

'*打开连接

Conn1.Open ConnectString

'*定义游标位置

Conn1.CursorLocation = adUseClient

'*查询记录集(从student表中找出名子为"张三"的记录)

mrc.open "select * from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic

'*现在你已经得到了你想要查询的记录集了，那就是mrc

'*你可以把此记录集与DataGrid榜定，用datagrid显示你查询的记录

set me.datagrid.datasource=mrc

---