16,552
社区成员
发帖
与我相关
我的任务
分享
Dim rst As ADODB.Recordset
rst = New ADODB.Recordset
Dim num As Integer
Dim sqlStr As String
sqlStr = "select count(deptcode) from department where deptcode='" & deptcode.Text.Trim & "'"
rst.Open(sqlStr, Conn, 1, 1)
num = Convert.ToInt32(rst.Fields())
Dim oRecordset As New ADODB.Recordset
oRecordset.MaxRecords