VB 数据库查询的 简单问题

输出符合条件的名字可用DATALIST控件或DATAGRID控件显示,请参考下列代码:

Option Explicit
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
'将下行的数据库改为你自己的数据库路径和名称(这里用ACCESS数据)
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ldgz\jly.mdb;Persist Security Info=False"
db.Open
rs.CursorLocation = adUseClient
'将下行的数据表你自己的数据表白字段改成你自己表中的字段
rs.Open "select * from jishijilu where gyh_riqi='1011-051112' ", db, adOpenStatic, adLockReadOnly ''
Set DataGrid1.DataSource = rs
End Sub

strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=shudian;Data Source=." '连接字符串
Dim cn As New ADODB.Connection '声明连接变量
Dim rs As New Recordset '声明记录集
SQL = "select name,age from person where age<=20"
cn.Open strConn '打开数据库
Set rs = cn.ExecuteSQL(SQL) '执行查询语句
rs.Close '关闭记录集
cn.Close '关闭数据库