Question

怎样在VB中实现SQL语言的查询？

用到什么控件？
怎么样和数据库连接？
希望能够举个实例，我是新手
有源码最好
user830316兄，你的方法怎么样才能把数据库中的信息被TEXT获取到呢？

Answer 1

在VB6中可用ADO及DATAGRID控件，用如下语句可更灵活：
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

数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。上面的原代码基于ADODC控件和DATAGRID控件的灵活应用。具体做法：
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
以上不知是否说清楚？SQL查询语言多写多用就会熟练，以上供提问者参考。

Answer 2

我说的是用ADO连接的 不用添加控件，只有代码。这个对于数据的修改操作比较方便。但不便与察看数据。

Set Coon = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBMDB.mdb;"'DBMDB.mdb为数据库文件名字，必须放在工程文件同目录下

Coon.Open Connstr
Set rs = CreateObject("ADODB.recordset")
Sql = "select * from 表名"
rs.Open Sql, Coon, 1, 3
'下面为添加数据（新建纪录）
rs.addnew
rs("字段名")=1
rs("字段名")=1
rs("字段名")=1
…………
rs.update
'下面为删除数据
rs.delete

'下面为关闭连接
rs.close
set rs=nothing

Answer 3

补充1楼:

TEXT1.TEXT = rs("字段名") '这样就让文本框收到了.

Answer 4

3