vb 在文本框中输入数值，点击查询，在下面几个文本框中查询出数据库中该信息。
比如Access数据库，数据库名成绩，表名学生情况表，输入学号点查询，在下面几个文本框中显示学号，姓名，籍贯，等信息，用ado控件...
比如Access数据库，数据库名成绩，表名学生情况表，输入学号点查询，在下面几个文本框中显示学号，姓名，籍贯，等信息，用ado控件
展开
2个回答
展开全部
Private Sub Command1_Click()
With Adodc1
.RecordSource = "select * from [你的表名] where [学号]='" & Text1.Text & "'"
.Refresh
Text2.Text = .Recordset("[学号]")
Text3.Text = IIf(IsNull(.Recordset(["姓名"])), "没有姓名", .Recordset(["姓名"]))
Text4.Text = IIf(IsNull(.Recordset(["籍贯"])), "没留籍贯", .Recordset(["籍贯"]))
End With
End Sub
With Adodc1
.RecordSource = "select * from [你的表名] where [学号]='" & Text1.Text & "'"
.Refresh
Text2.Text = .Recordset("[学号]")
Text3.Text = IIf(IsNull(.Recordset(["姓名"])), "没有姓名", .Recordset(["姓名"]))
Text4.Text = IIf(IsNull(.Recordset(["籍贯"])), "没留籍贯", .Recordset(["籍贯"]))
End With
End Sub
追问
出错，外部名未定义
追答
笔误了，(.Recordset(["姓名"]))这里，把中括号放在引号内，或者把中括号先取掉。以下同
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
百事牛
2024-10-22 广告
百事牛是共享提供商，我们提供可靠有效的服务，适当合理的授权费有利于的继续更新优化。同样的事情，同样的方法，百事牛团队十年磨一剑，始终至聚焦在密码恢复领域，深耕于此，我们已研制出有别于其他公司的算法和运算模式， 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
展开全部
用ADO控件，你不是说了嘛，绑定数据源
追问
查询按钮的代码怎么写？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
