VB如何使用ADO方法查询数据表里的一段数据
用控件简单.
前提条件要把adodc控件正常连接的数据库上
datagrid控件绑定到adodc控件上
Private Sub Command1_Click()
'连接数据库
Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\数据库.mdb＂
'查询
Adodc1.RecordSource = ＂select * from 表 where 姓名 like '＂ & Text1.Text & ＂' and 专业 like '＂ & Text2.Text & ＂'＂
Adodc1.Refresh
End Sub
VB怎么用ADO控件连接数据库用代码连接
先引用ADO：工程--引用--选择MS ActiveX Data Objects
代码：
Dim Access_Con As Connection
Set Access_Con = New Connection
Access_Con.ConnectionString = ＂Provider=Microsoft.jet.oledb.4.0;data source=＂ & App_Path & ＂\FHL数据.mdb;＂
Access_Con.Open
Dim rs As Recordset
Set rs = New Recordset
rs.Open ＂select * from 用户管理＂， Access_Con
''''查询结果将在rs中，可以把rs绑定在datagrid里查看数据等
在VB中用ADO控件连接Access数据库
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider，然后按要连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
ECSHOP仿优购鞋子商城整站源码，程序基于ECSHOP 2.7.3 UFT8版本制作，适合服装，鞋子，家居等商城使用。目前程序未添加广告位，请自行在网站后台进行添加。具体添加方法，请查看SHOPEX5站点的相关教程。 安装方法：1。访问 ：域名/install2. 按照程序提示进行安装.3.安装完成后,登陆网站后台.选择数据库管理--数据库备份--数据库还原.，导入之前的数据库。4.后台-模板管
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用＂SELECT * FROM TabelName＂作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
以下为代码实例：
Private Sub Form_Load()
Text1 = ＂＂
With Adodc1
Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False＂
Adodc1.RecordSource = ＂select name from b1 order by name＂
Adodc1.Refresh
DataGrid1.Refresh
End With
End Sub
Private Sub Text1_Change()
Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False＂
Adodc1.RecordSource = ＂select name from b1 where name >='＂ & Text1 & ＂' order by name＂
Adodc1.Refresh'对查询更新
DataGrid1.Refresh
End Sub
