Question

在vb中如何得到access表中某一字段的最大值

Answer 1

方法一：
1，按照该字段降序排列，首记录的该字段就是最大值。
方法二：
利用SQL 的函数，Max()
Select Max(字段名) As AAAA From 表名
返回的记录集，只有一条记录、一个字段AAA，该记录的该字段值就是所求

追问

我用的adodoc datagrid 控件啊， 你再给我看看吧

追答

假设你用的控件名是ADODC1,
'注意：字段名用实际的字段名（你说的某一字段），表名用实际的表名

你加一个临时按钮，在其单击事件里用下面代码，试试就知道了。

‘前提，是你的数据库连接成功了，（datagrid里看到记录了）
Adodc1.RecordSource = "Select Max(字段名) As AAAA From 表名"
Adodc1.Refresh
Msgbox Adodc1.Recordset.Fields("AAAA")

追问

总提示from语法错误时怎么回事呀
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\cxlast.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select Max(序号) As AAAA From 病人资料卡"
Adodc1.Refresh
MsgBox Adodc1.Recordset.Fields("AAAA")
我想把这个记录显示在text中
text31.text=。。。

追答

你先试试下面:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\cxlast.mdb;Persist Security Info=False"
Adodc1.RecordSource = "病人资料卡"
Adodc1.Refresh
MsgBox Adodc1.Recordset.Fields("序号")
有结果吗?

追问

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select Max(序号) As AAAA from 病人资料卡"
Adodc1.Refresh
'MsgBox Adodc1.Recordset.Fields("AAAA")
Text31.Text = Adodc1.Recordset.Fields("AAAA")
要加上第一条语句，现在可以求出来最大值了，但是加上这几段后。程序运行到后面的时候就会出错，删了这段就好了。为什么呀？方便加个qq帮帮我吗？292812832

追答

我加你QQ了!
你把第1句改成
Adodc4.CommandType = adCmdUnknown
试试看

Answer 2

调用max函数