16,722
社区成员




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