vb数据库编程实例

下面的代码基于以下4点假设：

1，控件的名称分别是：

3个文本框从上到下：Text1、Text2、Text3

ADO控件名为：Adodc1，网格控件名为：DataGrid1

2，根据你给出的图片，字段[钢级]为字符类型、[外径]和[壁厚]为数值类型。

3，你的数据库文件名为“数据库.mdb”,且已经保存在与本工程文件同一个文件夹里。

4，你所使用的数据表名为“钢材数据表”

那么，在[查询]按钮的单击事件里，编写如下代码就可以实现你的要求：

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="

&

App.Path

&

"\数据库.mdb;Persist

Security

Info=False"

Adodc1.RecordSource

=

"select

*

From

钢材数据表

Where

钢级='"

&

Text1.text

&

"'

And

外径="

&

trext2.text

&

"

And

壁厚="

&

text3.text

Adodc1.Refresh

If

Not

(Adodc1.Recordset.EOF

And

Adodc1.Recordset.BOF)

Then

　Set

DataGrid1.DataSource

=

Adodc1

Else

　MsgBox

"没找到！"

End

If