您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

在textbox控件里加载access数据库的一个表的一个属性的一个值呢？（在线等）

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

在textbox控件里加载access数据库的一个表的一个属性的一个值呢？（在线等）[无满意答案结贴,结贴人:yanyusi]

发表于：2007-11-20 20:01:57 楼主

我已经学会如何在vb2005中，加载access数据库了，但是，问题来了，我如何在vb里面的textbox空间里面显示我查找的表中的其中一个属性的属性值呢

发表于：2007-11-20 20:23:321楼得分:0

vb 6
dim strsql as string
dim rst as new adodb.recordset
strsql = "select * from table where conditions"
rst.open strsql,cnn
textbox.text = rst（i)
set rst = nothing

发表于：2007-11-21 09:50:392楼得分:0

你问的我不太明白。你用的什么方法连接的数据库？
是在textbox的text属性里显示值吗？要显示的属性值是指什么属性的值？是数据库中的一个表字段里的一个值还是……举个例子！

发表于：2007-11-22 20:42:393楼得分:0

太感谢你了，黑领，谢谢你能耐心解答我的问题，
private sub form1_load（…) handles mybase.load
dim strconn as string '定义连接字符串
strconn = "provider=microsoft.jet.oledb.4.0;data source=e:\isep\vb.net2005\test\no10\student.mdb"
dim objconn as new oledbconnection（strconn) '创建连接对象
objconn.open（) '打开连接
dim strsql = "select * from 基本情况" '设置sql语句
dim objadapter as new oledbdataadapter（strsql, objconn) '创建数据适配器对象objadapter
objconn.close（) '关闭连接
dim objdataset as new dataset '定义数据集对象
objadapter.fill（objdataset, "基本情况") '填充数据集
datagridview1.datasource = objdataset.tables（"基本情况") '将数据绑定到网格
end sub
这是绑定在网格里，我现在就是想在textbox那个框里面绑数据库的一张表里面的其中一个属性的一个值，比如，学生表的名字，一个叫“王”的人
请指教

发表于：2007-11-23 14:33:064楼得分:0

真遗憾，由于本人电脑出了问题，暂时无法帮你解决了，因为本人也是新手．得试才能确保成功．所以，报歉！

发表于：2007-11-23 19:09:385楼得分:0

呵呵，已经很感谢你了！

发表于：2007-11-26 18:01:226楼得分:0

已经有解决的办法了，很简单，
imports system.data
imports system.data.oledb

public class form3

'下面内容是公共变量，在后面多个事件中都要访问这些变量。

'定义数据库连接对象
dim oledbconnectionstring as string = "provider = microsoft.jet.oledb.4.0 ;data source=d:\student.mdb"
dim oledbconnection1 as new oledbconnection（oledbconnectionstring)

'定义数据适配器对象
dim sqlstring as string = "select *from 基本情况"
dim oledbdataadapter1 as new oledbdataadapter（sqlstring, oledbconnection1)

'定义数据集对象
dim dataset1 as new dataset

'定义绑定源对象，它的position属性用于确定控件所绑定的位置（绑定到第几条记录）
dim bindingsource1 as bindingsource

'定义绑定位置变量，第一条记录位置是0
dim position1 as integer

private sub form3_load（byval sender as system.object, byval e as system.eventargs) handles mybase.load

'用数据适配器对象填充数据集
oledbconnection1.open（)
oledbdataadapter1.fill（dataset1, "基本情况")
oledbconnection1.close（)

'为绑定源对象赋值
bindingsource1 = new bindingsource（dataset1, "基本情况")

'将控件绑定到绑定源对象，默认第0条记录
textbox1.databindings.add（"text", bindingsource1, "姓名")
textbox2.databindings.add（"text", bindingsource1, "性别")
textbox3.databindings.add（"text", bindingsource1, "学号")
textbox4.databindings.add（"text", bindingsource1, "出生年月")
textbox5.databindings.add（"text", bindingsource1, "专业")

'为绑定位置变量赋值（bindingcontext是控件的属性，表示“绑定内容”)
'position1 = me.bindingcontext（dataset1, "基本情况").position

end sub

其他资讯