Question

急！！！vb问题 conn.Open conns要求对象。。

我正在编译一个管理程序，代码如下：
Private Sub cmdOK_Click()
strSQL = "select * from 用户 where 用户名 ＝'" & sName & "'" & "and 密码='" & sPas & "'"
Set mrs = coon.Execute(strSQL)
If mrs.EOF = True Then
MsgBox " 密码错误！", vbCritical, "用户登录验证"
try_times = try_times + 1
If try_times >= 3 Then
MsgBoxs "您已经3次尝试进入本系统，均失败，系统将关闭！", vbCritical, "用户登录验证"
End
Else
txtPassword.Text = ""
txtPassword.SetFocus
Exit Sub
End If
End If
MsgBox "登陆成功！", vbCritical, "用户登录验证"
bolAuthority = mrs.Fields("权限")
Form2.Show
Unload Me
End Sub

Private Sub Form_Load()
Dim conns As String
conns = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=c:\Program Files\Microsoft Visual Studio\VB98\Mydata.mdb"

conn.Open conns
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－运行后总提示《conn.Open conns》实时错误424，要求对象，
怎么改程序，希望大家不吝赐教！

Answer 1

conns应该在通用或者模块中进行定义的。否则是不通的，定义为全局变量。

我给你一个我写的登陆代码吧。：

Static nn%
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=XYZADF1230;Data Source=" _
& App.Path & "\单词数据库.mdb;Persist Security Info=False"
rs.Open "select * from 超级用户 where 超级用户= '" & Text1 & "' And 密码 = '" & Text2 & " '", con
If rs.EOF And rs.BOF Then
MsgBox "无该超级用户，请重试登陆，但不得超过三次"
nn = nn + 1

If nn >= 3 Then MsgBox "没有注册，来这里注册吧。": Form2.Show: Form1.Hide
Else

MsgBox "您已成功登陆，可以使用超级用户权限"
username = rs.Fields(0)
End If

rs.Close
con.Close
Set rs = Nothing
Set con = Nothing

Answer 2

conn这个是不是没声明啊？
还有，在conn.Open conns之前，应该先有一句conn.CursorLocation = adUseClient用来说明链接数据库的方式的。

Answer 3

conn没定义?

Answer 4

coon?conn

Answer 5

12