从前面的一个帖子上看到的一个方法

有这么一个语句不甚明了



rs_log.Open sql, conn, adOpenKeyset, adLockPessimistic



还请高人明示:

谢谢!


当然就是那个OPEN语句

可是帮助文档说的OPEN语句结构应该还有一个 for 和 as

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

我还是把全部程序都帖出来吧




Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim sql As String
Dim rs_log As New ADODB.Recordset

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\123.mdb;Persist Security Info=False"
If Trim(Text1.Text) = "" Then ' 判断输入的用户名是否为空
MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Else
sql = "select * from 用户信息 where ID='" & Text1.Text & "'"
rs_log.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_log.EOF = True Then
MsgBox "用户或密码错误!!!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Else ' 检验密码是否正确 用户名和密码通过后，要关闭本窗体并打开主窗体。
If Trim(rs_log.Fields(1)) = Trim(Text2.Text) Then
userID = Text1.Text
userpow = rs_log.Fields(1)
rs_log.Close
Unload Me
main.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
Text2.SetFocus
End If
End If
End If
' 只能输入3次
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
Exit Sub
End Sub






十分感谢


我也想悬赏
奈何也是刚注册没有东西可以赏

那个 userID和 userpow 是在表个索引里建吗?

这是VB+ACCESS做的登录界面


那些应该是数据库是否与数据库里的某个用户一致

我是想问, userID和 userpow是原本输入的时候就用的名称还是索引


谢谢