如何在vb text文本框控件中，显示access数据库中的表
Private Sub tianjia() '添加数据.
seta
sql = "select * from [user_info]"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("user_id") = Trim(txt_id.Text)
rs.Fields("user_name") = Trim(txt_name.Text)
rs.Fields("user_age") = Trim(txt_age.Text)
rs.Fields("user_sex") = Trim(cob_sex.Text)
rs.Fields("user_high") = Trim(txt_high.Text)
rs.Update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
个人建议，access数据库用DAO最好，因为有部分的ADO属性在access里不能使用。以下是DAO的内容，楼上的是ADO的内容， '引用DAO，这是必须的 Set con = OpenDatabase(App.Path & "数据库名.mdb") '中间放数据库完整路径就行，如果数据库在程序目录下，直接用 app.Path & "数据库名.mdb" strsql = "select * from 表名 " '读取access 表里的内容 Set rs = con.OpenRecordset(strsql) do until rs.eof text1.text=rs.fields("字段名") '其实就是把字段里面的数据取出来赋给text1 rs.movenext loop 如果还有不明白的，就加qq聊吧
1：Access，建立数据库，数据库命名为Database1.mdb。
（注意：这里的后缀是MDB,如果Access是2007版本的，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式。）
2：数据库建立后就进入了数据表界面，可以输入数据了，输完以后CRRL+S保存，输入表名，这里表名为test，ok，准备工作搞定。
3.打开VB,然后新建标准exe。
4.菜单中找到工程→部件→勾选 ，
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件。
5.选择 ADODC控件和MSHFlexGrid控件，放在窗体的合适位置，如图：
6.设置ADODC控件的属性：
右键窗体内ADODC1控件
1）ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则ok，确定。
2）ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。
7.设置MSHFlexGrid控件的属性：
VB右侧属性表里，找到datasource，选择adodc1.
8.测试效果：
1）菜单→运行→启动（F5),发现显示的数据排列不是我们想要的行数和列数
修改方法：
2）MSHFlexGrid属性→通用→设置行和列，固定行和固定列，设置见图。
3）MSHFlexGrid属性→带区→把列标题的√取消掉，设置见图。
9.修改后的测试效果：
严格来说，用文本框可以显示数据表的某一个字段的值：
方法有两：
方法一：
因为文本框是数据绑定控件（VB6中有不少控件属于数据绑定控件），可以直接帮定到数据表的某个字段。
帮定的方法是：设置它的 DataSource 属性到一个数据源（ADO控件或对象等），接下来设置它的
DataField 属性，从而绑定到需要的字段。
方法二：
在程序代码中显示指定的数据字段内容，例如：使用ADO控件，显示“姓名”字段"；
Text1.text = Adodc1.Recordset.Fields("姓名")
那如何在label控件中显示一个完整的access数据库的表？
在label控件中显示一个完整的access数据库的表？？？？？？
如果表有成千上万条记录，也这样显示啊？
不太可取！！！！
显示表，建议使用网格控件！
如何在vb text文本框控件中，显示access数据库中的表视频
相关评论：
