小弟在作一个小系统,用的是vb+sql server
遇到了一点问题,不知那位仁兄可以帮忙看一下 谢谢先!
问题出现在以下代码 光标出现在红色地方
Private Sub Form_Load()
Dim rst As ADODB.Recordset
Dim rights As String
Dim sTokens() As String
Dim msg As String
'查找权限
SQL = "select 权限 from 用户信息表 where 用户ID='" & UserId & " ' "
Set rst = SelectSQL(SQL, msg)
If rst.RecordCount > 0 Then
rights = Trim(rst.Fields(0))
rst.Close
Else
MsgBox ("没有用户信息！")
Exit Sub
End If
'设置权限
机构设置.Enabled = InStr(rights, "机构设置")
学籍管理.Enabled = InStr(rights, "学籍管理")
课程管理.Enabled = InStr(rights, "课程管理")
成绩管理.Enabled = InStr(rights, "成绩管理")
奖惩管理.Enabled = InStr(rights, "奖惩管理")
系统管理.Enabled = InStr(rights, "系统管理")
End Sub

你的问题没说清楚是什么错误呢?
好像没有看见你的服务器名称!
SQL server 不知道支不支持RecordCount,这个我没用过.但access数据库的RecordCount就是有记录也返回-1

返回-1那是因为你的游标类型没有设置正确而已.

而lz的问题.
我想主要是因为SelectSQL过程返回的问题.
有N个大学生都是用SelectSQL或ExecuteSQL过程.
有N个都是返回时出错.
有N个都是受书本影响或网络代码影响.

我不知道初期能从书本或者网络代码以外的途径学习到！

回楼主的问题：你的msg库没有连接，判断查询是否有数据可以用 if rst.bof and rst.eof then

嗯 是啊 我就是参考书上的案例编的
我是因为课程需要作系统而现学的vb+SQL server 是有些问题搞不懂的。
可是这个问题该怎么解决呢？

这就是提示的错误

不好意思 刚才没有看清四楼大哥的最后一句话，我试着在有错误那句后添加 你的那句话 提示仍然如上图，不过光标落在了你给我的那句话上了

这样改
Private Sub Form_Load()

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String

conn.CursorLocation = adUseClient
conn.ConnectionString = "driver={SQL Server};" & _
"server=服务器名;uid=用户名;pwd=密码;database=数据库"
conn.ConnectionTimeout = 60
conn.Open
sql = "select 权限 from 用户信息表 where 用户ID='" & UserId & " ' "
rst.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
If rst.RecordCount >0 then

[此贴子已经被作者于2007-10-19 10:56:14编辑过]

recordset 只是一个结果集.

我也只会用笨方法，你可以加上下面的试试：

dim ado_con as adodb.connection

set ado_con = new adodb.connection

ado_con.commandtimeout=50000

ado_con.connectionstring=" 你连接数据库的代码 "

ado_con.open

......你的语句

最后要加上ado_con.close

Set rst = SelectSQL(SQL, msg) 我没这么用过，可以改成 set rst=ado_con.execute(sql)

我按七楼的大哥说得做了
刚才那个问题解决啦 可是接着就又出现了问题 调试时光标停留在conn.open那一行，而提示的错误为
如图


我又不知道怎么解决了

[此贴子已经被作者于2007-10-20 13:18:01编辑过]

不好意思 我又运行了一便 有出现了下面的提示
如图

你看看该怎么办？