Question

VB里，想将SQL某一表里某一字段值中的最大值取出使用，请问该怎么写代码呢

如题，有一项为自动累加的序号，SQL里能实现么，还是用VB好，最好有代码哦，谢谢

Answer 1

select max(字段名) from 表名

字段名和表名替换成你自己的就OK

追问

赋给变量，怎么操作？

追答

VB不熟呀
select max(字段名) as 最大ID from 表名

Cmd.CommandText = "select max(字段名) as maxID from 表名"
set rst=cmd.execute
mm=rst("maxID").value

类似这样吧

追问

我是用ADODC控件连接，类似 ADODC.RECORDSET.FIELDS("字段名")这样的，其它方式不太熟，呵呵，

追答

dim result as int
sql = "select max(字段名) as maxID from 表名"
rs.open sql, myconn, 3,3,1 '假设rs和myconn已经定义好和初始化好。
result = rs("maxID") '在这里赋值。

是这样吗？

Answer 2

Set mConn = New ADODB.Connection
Set mrs = New ADODB.Recordset

mConn.Open "Provider=sqloledb;Password=dili1server@;Persist Security INfo = True;" _
& "User ID = sa;Initial Catalog = bqerp;Data Source =192.168.20.1;Connect Timeout=30"

sCmd = " select top 1 某字段名 from 某表名 order by 某字段名 desc"
Call openmrs
If mrs.EOF = false Then
结果变量=mrs(0)
end if