VB使用ADO创建查询功能
PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstDimbAsStringb=Text1.TextAdodc1.Re...
Private Sub Command1_Click()Adodc1.Recordset.MoveFirstDim b As Stringb = Text1.TextAdodc1.Recordset.Find ("需求单编号='" & b & "'")If Adodc1.Recordset.EOF = True ThenText1.Text = ""MsgBox "订单不存在，请重新输入", vbOKOnly, "温馨提示"ElseText2.Text = Adodc1.Recordset.Fields("物料名称")Text3.Text = Adodc1.Recordset.Fields("单位")Text4.Text = Adodc1.Recordset.Fields("需求用量")Text5.Text = Adodc1.Recordset.Fields("需求日期")Adodc1.Recordset.MoveFirstEnd IfEnd Sub
程序如上 调用ACCESS中的数据库 但老是报错
老是报错 展开
程序如上 调用ACCESS中的数据库 但老是报错
老是报错 展开
1个回答
展开全部
Adodc1.ConnectionString = ............
Adodc1.RecordSource = "select * from 表"
Adodc1.Refresh
以上三步执行了吗？
Adodc1.RecordSource = "select * from 表"
Adodc1.Refresh
以上三步执行了吗？
追问
具体不太会 我是想根据需求单编号把查询出来的东西显示在对应的文本框中
想用RecordSource.find语句 但是老是报错 不用这个语句其他的我又不会
你能给出具体的查询数据的编程么 非常感谢大神！！！
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
