vb 中如何让textbox控件里面显示数据库(SQL)的内容?

例如,Textbox1里面显示数据库KH表中的A1
Textbox2里面显示数据库KH表中的A2
Textbox3里面实现数据库KH表中的A3

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
温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2017-09-18
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";
这样应该可以本回答被提问者采纳
第2个回答  2012-07-04
TextBox1.text = "select A1 from KH";
TextBox2.text = "select A2 from KH";
TextBox3.text = "select A3 from KH";
如果还要加条件在数据库语句后面加。本回答被网友采纳
第3个回答  2012-07-04
如果是代码查询出来的,就手动赋值,如果绑定数据源,就自动显示追问

就是我想把显示的信息与登陆的用户账号绑定,就是说假设001这个账户的人登陆了系统,那个人资料里面显示的都是001的信息。代码应该怎么写?

追答

001登录帐户后,一般先读出那几个数据select a1,a2,a3 from kh where user='001'
类似这样的代码,你把三个值读出来赋值即可
,

vb中如何让文本框和数据库中的数据关联
1.在窗体上添加一个TextBox控件(Text1),一个Data控件(Data1);2.设置Data1的DatabaseName为数据库文件,设置RecordSource为需要关联的表;3.设置Text1的DataSource为Data1,设置DataField为需要关联的列名.注:以上方法仅使用与Access,Excel等,但不能用于连接SQL Server....

vb 查询sql中数据,赋值给textbox 怎么写?
Set rs = cn.Execute("select a,b from 表名 where id ='" & Text1.Text & "'")'上面是把text1的结果 赋值给sql语句 dim str ,str1 as string str=rs("a")'将查询出来的结果赋值给变量str str1=rs("b")text2.text= str & str1 '将变量赋值str 和 str1 给text2 ...

VB中richtextbox控件显示文本
Private Sub Command1_Click()Dim text As String, i As Long, indent As String RichTextBox1.text = String(140, "试") '这句你实验后去掉 indent = String(4, 32)text = RichTextBox1.text RichTextBox1.text = ""For i = 1 To Len(text) Step 100 RichTextBox1.text = RichTe...

SQL如何读取数据到TEXTBOX中
在菜单的Data->Add new data source中加入新的数据库也就是你的数据库,然后通过自动生成的DataSet控件来获取数据库的Object来获取数据,这个有点麻烦,需要找本书或者详细说明看下用法

VB怎样使用多参数数据库函数让结果显示在文本框中?
sql as string = "select K,sum(COL1),avg(COL2)from J where N1=n1 and N2=n2 and N3=n3 group by K"COL1是你要求和的字段,COL2是你要求平均的字段,你可以继续加 执行这句sql返回的结果就是你要的东西了 例如 K COL1 COL2 N1 N2 N3 1 1 1 1 1 1 1 2 2 1 1 1 2 1 ...

VB中如何使用ADODB把TEXTBOX的数据写入数据库的某一个表的字段中
msgbox "本次操作影响的行数:"& n '查询上面插入的数据:sql="select * from tb_name where fld_char='"& trim(text1) &"' and fld_num="& val(text2)set rs=cn.execute(sql)'打印结果 while not rs.eof debug.pring format(rs!fld_char) & space(1) & format(rs!fld_num)rs....

VB如何把文件内容显示在文本框中?
VB6.0可以使用TextBok控件或RichTextBox控件实现将读入文本文件显示于控件中。TextBox 控件有时也称作编辑字段或者编辑控件,显示设计时输入的用户输入的、或运行时在代码中赋予控件的信息。为了在 TextBox 控件中显示多行文本,要将 MultiLine 属性设置为 True。如果多行 TextBox 没有水平滚动条,那么...

在VB中,怎样对SQL数据库里面的数据进行操作?
使用text1.text=rs.file(0)就可以把文本框于查询结果帮定起来 如果要对数据库进行修这时用以下代码:db.Execute (<SQL语句--如"insert into student(sno,sname) value("","")">)方法2,工程--部件--选择microsoft data bound grid control 5.0 然后在窗体中添加左边工具栏的 DATA 和DBGRID ...

用VS连接SQL Server时,怎样在textbox里面显示数据库中的一个表格有多 ...
你sql中取出的是数据表的行数。然后你直接用executescaler返回首行首列就是你要的行数。。int num=cmd.executescaler();即可。 然后 textbox.Text=num.tostring();

通过SqlDataSource控件用TextBox中的内容更新SQL数据库中的记录
这是整个SQL文。2个单引号括起来的内容作为数据更新了。要是程序中拼接SQL字符串。倒是可以按照你前面写的那样:G_SQL= "UPDATE user SET password = '" + TextBox3.Text + "'"然后直接提交SQL。这是没问题的。一楼说的有问题:对于数据库不存在的数据进行更新的时候才能用addnew 。这里明显记录...

相似回答