VB recordset问题
来源:百度知道 编辑:UC知道 时间:2024/06/06 05:24:03
cn = New ADODB.Connection
rs = New ADODB.Recordset
cn.ConnectionString = "Driver={SQL Server}; Server=(local);UID=sa;PWD=123456;Database=dataset"
cn.ConnectionTimeout = 30
cn.Open()
m = TextBox1.Text.Trim()
n = TextBox2.Text.Trim()
s = "select * from admin where user_ID='" & m & "' and mima='" & n & "';"
rs.Open(s, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdText)
得出的rs.RecordCount=-1?????
rs = New ADODB.Recordset
cn.ConnectionString = "Driver={SQL Server}; Server=(local);UID=sa;PWD=123456;Database=dataset"
cn.ConnectionTimeout = 30
cn.Open()
m = TextBox1.Text.Trim()
n = TextBox2.Text.Trim()
s = "select * from admin where user_ID='" & m & "' and mima='" & n & "';"
rs.Open(s, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdText)
得出的rs.RecordCount=-1?????
rs.Open(s, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdText)
这句话写的不对,应该写可读可写才能使用rs.recordcount
建议通过
s = "select count(*) from admin where user_ID='" & m & "' and mima='" & n & "';"
………………
………………
然后通过rs.fields(1) 来得到recordcount
因为有些ado版本或者在某些模式下 rs.RecordCount 不起作用^^
所以该值为-1
找不到记录吧