VB 6.0数据库查询代码不会,求指教!

我想要在查询处的3个text中输入钢级、外径和壁厚然后对数据库里面的数据查询我用的就是ADO连接的MDB数据库还有那个datagrid控件没学过数据库不太会弄谁能帮帮我,... 我想要在查询处的3个text中输入钢级、外径和壁厚然后对数据库里面的数据查询 我用的就是ADO连接的MDB数据库还有那个datagrid控件 没学过数据库不太会弄 谁能帮帮我,弄好了给你们发红包好不好?谢谢啦 查询到了我想让控件的指针直到满足要求的位置,没有就给个提示 计算高手都来帮我看看吧!感谢啦 展开
 我来答
逢微多希慕
2019-06-23 · TA获得超过3667个赞
知道小有建树答主
回答量:3024
采纳率:26%
帮助的人:469万
展开全部
下面的代码基于以下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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式