vb 中如何让textbox控件里面显示数据库(SQL)的内容?
例如,Textbox1里面显示数据库KH表中的A1Textbox2里面显示数据库KH表中的A2Textbox3里面实现数据库KH表中的A3...
例如,Textbox1里面显示数据库KH表中的A1
Textbox2里面显示数据库KH表中的A2
Textbox3里面实现数据库KH表中的A3 展开
Textbox2里面显示数据库KH表中的A2
Textbox3里面实现数据库KH表中的A3 展开
4个回答
展开全部
1.VB 代码如下:
Private Sub Command1_Click()
Dim adocn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "select * from 表名 where 字段名=" & 名字
adocn.Open
rs.Open strSql, adocn, 3, 3
If rs.EOF And rs.BOF Then
Set rs = Nothing
adocn.Close
MsgBox "查无信息", vbCritical + vbOKOnly, "信息"
Exit Sub
Else
Text1.Text = rs.Fields("想要显示字段名项目")
rs.Close
Set rs = Nothing
adocn.Close
End If
End Sub
Private Sub Command1_Click()
Dim adocn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "select * from 表名 where 字段名=" & 名字
adocn.Open
rs.Open strSql, adocn, 3, 3
If rs.EOF And rs.BOF Then
Set rs = Nothing
adocn.Close
MsgBox "查无信息", vbCritical + vbOKOnly, "信息"
Exit Sub
Else
Text1.Text = rs.Fields("想要显示字段名项目")
rs.Close
Set rs = Nothing
adocn.Close
End If
End Sub
展开全部
TextBox1.text = "(select a1列 from KH where 选出a1条件).tostring";
TextBox2.text = "(select a1列 from KH where 选出a1条件).tostring";
TextBox3.text = "(select a1列 from KH where 选出a1条件).tostring";
这样应该可以
TextBox2.text = "(select a1列 from KH where 选出a1条件).tostring";
TextBox3.text = "(select a1列 from KH where 选出a1条件).tostring";
这样应该可以
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
TextBox1.text = "select A1 from KH";
TextBox2.text = "select A2 from KH";
TextBox3.text = "select A3 from KH";
如果还要加条件在数据库语句后面加。
TextBox2.text = "select A2 from KH";
TextBox3.text = "select A3 from KH";
如果还要加条件在数据库语句后面加。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果是代码查询出来的,就手动赋值,如果绑定数据源,就自动显示
追问
就是我想把显示的信息与登陆的用户账号绑定,就是说假设001这个账户的人登陆了系统,那个人资料里面显示的都是001的信息。代码应该怎么写?
追答
001登录帐户后,一般先读出那几个数据select a1,a2,a3 from kh where user='001'
类似这样的代码,你把三个值读出来赋值即可
,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询