select max(字段名) from 表名 当然,前提先定义ado记录集,连接串,连接对象,然后将字段内容放到文本框中,这个一两句讲不清的,要看书的。
需要引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library) Private Sub Command1_Click() Dim cn As New ADODB.Connection, rs As New ADODB.Recordset '混合验证方式的连接: 'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名" '集成验证的连接: cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名" cn.Open rs.CursorLocation = adUseClient '设置客户端游标 rs.Open "select max(你要找的列名) from 表名称", cn, 3, 2 If rs.BOF And rs.EOF Then MsgBox "数据表里没有记录!" Exit Sub End If Text1.Text = rs(0) '把找到的数据显示到Text1里 End Sub
dim rs as new adodb.recordset rs.open "select max(字段名) as maxNum from 表名" text1=rs!maxNum
当然,前提先定义ado记录集,连接串,连接对象,然后将字段内容放到文本框中,这个一两句讲不清的,要看书的。
Private Sub Command1_Click()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
'混合验证方式的连接:
'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"
'集成验证的连接:
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
cn.Open
rs.CursorLocation = adUseClient '设置客户端游标
rs.Open "select max(你要找的列名) from 表名称", cn, 3, 2
If rs.BOF And rs.EOF Then
MsgBox "数据表里没有记录!"
Exit Sub
End If
Text1.Text = rs(0) '把找到的数据显示到Text1里
End Sub
rs.open "select max(字段名) as maxNum from 表名"
text1=rs!maxNum