vb按某条件查询access数据库中的信息
现已有一个access数据库数据库里有表名为“账户”的表,表里有“账号”“密码”“操作权限”三个字段,现在我要设计一个窗体,一个TetBox文本框Text1,一个Comm...
现已有一个access数据库
数据库里有表名为“账户”的表,表里有“账号”“密码”“操作权限”三个字段,
现在我要设计一个窗体,一个TetBox文本框 Text1 ,一个CommandButton按钮 Command1 ,
一个Label标签 Label1
我要实现,当在文本框输入数据库中“账号”的记录的时候,按Command1 则会在Label1中显示其“账号”对应的“密码”(或者显示这个记录的所有字段的数据也得)
代码要怎么写?解释一下
高手帮一下,我莱鸟的!好的追加分数 展开
数据库里有表名为“账户”的表,表里有“账号”“密码”“操作权限”三个字段,
现在我要设计一个窗体,一个TetBox文本框 Text1 ,一个CommandButton按钮 Command1 ,
一个Label标签 Label1
我要实现,当在文本框输入数据库中“账号”的记录的时候,按Command1 则会在Label1中显示其“账号”对应的“密码”(或者显示这个记录的所有字段的数据也得)
代码要怎么写?解释一下
高手帮一下,我莱鸟的!好的追加分数 展开
2个回答
展开全部
添加一个adodc控件,用来连接数据库.
Private Sub dcButton1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 账户 where 账号 like '" & Text1.Text & "'"
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
Label1.Caption = Adodc1.Recordset.Fields("密码")
End If
End Sub
Private Sub dcButton1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 账户 where 账号 like '" & Text1.Text & "'"
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
Label1.Caption = Adodc1.Recordset.Fields("密码")
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询