Question

vb连接access数据库问题 （如何在一个文本框中显示数据库最后一行某一列的数据）

本人新手 用的是adodc控件连接
如何让窗体运行后 text1 内显示数据库 最后一行 第三列的数据内容

Answer 1

首先设置好Adodc1（你建立的Adodc控件名称）的connet属性为access,DatabaseName属性为你数据库的名称，还有RecordSource属性。然后设置text1的DataSource属性为Adodc1,DataField属性为你数据库第三列的字段名称（表中的每一列称为一字段）以上是设置部分
下面是代码部分：
'窗体变量声明
Dim WithEvents adoPrimaryRS As Recordset '声明记录集对象
'在窗体的加载事件中创建ADO对象
Private Sub Form_Load()
On Error GoTo GoError
Set adoPrimaryRS=New Recordset'创建记录集对象实例
Set text1.DataSource=adoPrimaryRS
adoPrimaryRS.MoveLast'定位于最后一条记录
Exit Sub
GoErorr:
Msgbox Err.Description
End Sub
若你不设置Adodc的属性可以将下面的代码放在语句Private Sub Form_Load()下面也是一样的
Dim db As Connection '声明连接对象
Set db =New Connection'创建连接对象实例
db.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=在此填上你数据文件的全路径地址"

Answer 2

Adodc1.Recordset.Move (Adodc1.Recordset.RecordCount - 3)
text1.Text = Adodc1.Recordset.Fields(3)

追问

不对啊 哥们 这样的话 总是显示 你把行和列搞反了
应该怎么写？
比如说
1.0 2.1 3.2 4.5
2.1 3.6 4.7 8.0
2.2 3.6 5.8 7.9
我要显示的是最后一行第三列的那个5.8

追答

Adodc1.Recordset.Move (Adodc1.Recordset.RecordCount )
text1.Text = Adodc1.Recordset.Fields(3)

Answer 3

就是一个Table
用javascript控制它的colspan 就可以啦