Question

vb发现二义性的名称db

做一个用户登录，运行时候发现出现，需要删除哪个求指导我是菜鸟。。。。

Dim strSQL As String '定义一个字符串变量
Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "用户名不能为空！！请输入用户名！", 16, "错误！"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "用户密码不能为空！！请输入用户密码！", 16, "错误！"
Exit Sub
End If
Call SJK(db) '调用数据库连接
strSQL = "Select * form A1 where MC='" & Text1.Text & "'" '数据表连接字符串
RS.Open strSQL, db, 2, 2 '打开数据表
If RS.EOF = True Then '用户名错误
MsgBox "没有这个用户！！请检查后重新输入！", 16, "错误！"
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing
Exit Sub

Else
If Not RS!MM = Text2.Text Then '用户密码错误
MsgBox "用户密码错误！！请检查后重新输入！", 16, "错误！"
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing
Exit Sub
Else '登录成功
'如果有必要，在这里可以添加系统共有变量存储登录人的一些信息
Unload Me '关闭登录窗口
某某系统主页面.Show '转到用户进入的界面
End If
End If

RS.Close
Set RS = Nothing
db.Close
Set db = Nothing
End Sub

Answer 1

定义db为全局变量，并检查是否重复定义了db(既定义了两次已上的db)。

Answer 2

你的程序和数据库中有2个“db”,你把其中的一个换成别的名称就好了。

Answer 3

问题应该出在 Call SJK(db) 上。

追问

这个我知道额，vb上有提示出错的语句所在行。。。可不是很清楚怎么改。。。可以再具体点嘛？

追答

Public Sub SJK()'这里去掉db
db.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\毕业设计\企业数据库.accdb"
db.Open
End Sub

Call SJK() '也去掉DB

Answer 4

在通用声明中private db as adodb.connection