Question

VB中使用data控件显示access数据库中内容

Private Sub Form_Load()
Data3.DatabaseName = App.Path + "\tushu1.mdb" '这是设置data3控件数据库的路径
Data3.RecordSource = "denglu" '这个是选择数据库中的表

Text1.DataSource = "Data3" '这是个文本框控件设置数据源
Text2.DataSource = "Data3"
Text3.DataSource = "Data3"
Text1.Text = Data3.Recordset.Fields("用户名")
Text2.Text = Data3.Recordset.Fields("密码")
Text3.Text = Data3.Recordset.Fields("密码")

End Sub
那个data控件的属性我想用代码实现，大大们帮我看看上面的代码错到哪了？

Answer 1

记住：在
Data3.DatabaseName = App.Path + "\tushu1.mdb" '这是设置data3控件数据库的路径
Data3.RecordSource = "denglu" '这个是选择数据库中的表
后面不要忘记刷新；
Data3.Refresh
另外，你既然用了
Text1.Text = Data3.Recordset.Fields("用户名")
Text2.Text = Data3.Recordset.Fields("密码")
Text3.Text = Data3.Recordset.Fields("密码")
那前面的三行是多余的了
Text1.DataSource = "Data3" '这是个文本框控件设置数据源
Text2.DataSource = "Data3"
Text3.DataSource = "Data3"
要么这样：
Text1.DataSource = "Data3" '这是个文本框控件设置数据源
Text2.DataSource = "Data3"
Text3.DataSource = "Data3"
Text1.DataField = "用户名"
Text2.DataField = "密码"
Text3.DataField = "密码"

追问

Text1.DataSource = "Data3"
这一句显示未找到方法或数据源．我也加刷新了，好像是路径上面写的不对，就是找不到数据源，另外那个数据库我在另一个窗体也用过还能用吗？

追答

你这样检查程序，先删除其余，只留3行代码：
Data3.DatabaseName = App.Path + "\tushu1.mdb" '这是设置data3控件数据库的路径
Data3.RecordSource = "denglu" '这个是选择数据库中的表
Data3.Refresh
执行看看，有问题吗？如有，就是出在前2行，如没有，就找后面的问题．
我查了一下，text控件要绑定到data，只能在设计时绑定，不能用语句命令，所以问题出在这里．
你就着留以上三行代码，然后回到窗体，选择text1,然后在属性窗口，设置它的DataSource，选data3,再设置属性DataField为 用户名，OK了

Answer 2

Text1.DataSource = "Data3" '这是个文本框控件设置数据源
Text2.DataSource = "Data3"
Text3.DataSource = "Data3"
这一堆前面应该加SET，这种技术落后十年以上了，改用ADO吧

Answer 3

你是没有刷新，因为你的Data3是在load里初始化的，不会自动刷新记录
Data3.RecordSource = "denglu" '这个是选择数据库中的表
Data3.Refresh '这里加句