代码出错请高手指教!!!

在吹的风　发表于：2008-04-29 00:15:59 　

复制

Private Sub Command6_Click()

Dim strpassword, strusername As String

Dim flag As Integer

Dim record As ADODB.Recordset

flag = 0

openrecord "select * from 管理员资料", record //　　调试到这条出错,,请高手指教一下!!!
Do Until record.EOF 　　　提示：子过程或函数未定义

strusername = record("用户名")

strpassword = record("密码")

If UCase(Me.Text2.Value) <> UCase(strusername) Then

record.MoveNext

Else

flag = 1

Exit Do

End If

Loop

If flag = 0 Then

Me.Text2.Value = ""

Me.Text4.Value = ""

Me.Text2.SetFocus

Command6.Enabled = False

Exit Sub

Else

If UCase(Me.Text4.Value) <> UCase(strpassword) Then

MsgBox ("密码错误,请重新输入")

Me.Text4.Value = ""

Me.Text4.SetFocus

Command6.Enabled = False

Exit Sub

End If

DoCmd.Close

DoCmd.OpenForm "系统界面"

End Sub

Top

钱玉炜发表于：2008-04-29 07:55:34

openrecord "select * from 管理员资料", record 没有这种写法

定义个连接

dim conn as new adodb.connection

record.open "select * from 管理员资料",conn,adOpenKeyset, adLockOptimistic

可以试下上面的

Top

在吹的风发表于：2008-04-29 10:33:32

谢谢版主指点!!

我把以上代码改成版主所写的代码,调试时提示:

运行时错误‘91’：

对象变量或 With 块变量未设置

指标指向:record.open "select * from 管理员资料", conn, adOpenKeyset, adLockOptimistic

Private Sub Command6_Click()

Dim strpassword, strusername As String

Dim flag As Integer

Dim record As ADODB.Recordset

Dim conn As New ADODB.Connection

flag = 0

record.open "select * from 管理员资料", conn, adOpenKeyset, adLockOptimistic

Do Until record.EOF

strusername = record("用户名")

strpassword = record("密码")

If UCase(Me.Text2.Value) <> UCase(strusername) Then

record.MoveNext

Else

flag = 1

Exit Do

End If

Loop

If flag = 0 Then

Me.Text2.Value = ""

Me.Text4.Value = ""

Me.Text2.SetFocus

Command6.Enabled = False

Exit Sub

Else

If UCase(Me.Text4.Value) <> UCase(strpassword) Then

MsgBox ("密码错误,请重新输入")

Me.Text4.Value = ""

Me.Text4.SetFocus

Command6.Enabled = False

Exit Sub

End If

DoCmd.Close

DoCmd.OpenForm "系统界面"

End Sub

Top

钱玉炜发表于：2008-04-29 16:44:40

加一句

conn=currentproject.connection

Top

在吹的风发表于：2008-04-29 17:34:52

还是老样子

Top

在吹的风发表于：2008-04-29 17:35:41

希望版主能提供一个进行与数据库验证的代码!!!谢谢!!

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

代码出错请高手指教!!!