太新的手求助!VB6+access,别人的登陆代码,运行时出错。
access数据库:hy.mdb表名:sysname 字段1:name 字段2:pass 字段3:quan 全是文本型
在坛子里找到的别人写的图书管理系统,我照抄下来,运行登陆窗口里提示错误:from 子句语法错误
就是这句: rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic 被标成黄色
我实在看不明白,请各位老师赐教!
已经配置了本机的ODBC数据源
在工程--引用下--选中microsoft ActiveX Data Objects2.0 Library
添加了一个模块
Module1代码如下:
Public conn As New ADODB.Connection '标记连接对象
Public userID As String ' 标记当前用户ID
Public find As Boolean ' 标记查询
Public sqlfind As String '查询语句
Public rs_data1 As New ADODB.Recordset
Public findok As Boolean
Public frmdata As Boolean
Public Const keyenter = 13 ' enter键的ASCII码
form代码如下:
Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
If txtuser.Text = "" Then ' 判断输入的用户名是否为空
MsgBox "请输入用户名", vbOKOnly + vbExclamation, ""
txtuser.SetFocus
Else
sql = "select * from sysname where name=" & txtuser.Text & ""
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic ---点调试后,这句标成黄色了。
If rs_login.EOF = True Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
txtuser.SetFocus
Else
If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
userID = txtuser.Text
userpow = rs_login.Fields(2)
Unload Me
main.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
txtpwd.SetFocus
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
Exit Sub
End Sub
Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=d:\xiehui\hy.mdb"
conn.Open connectionstring
cnt = 0
End Sub
屏幕截图怎样才能帖上来呀?
[ 本帖最后由 zzq70 于 2012-12-7 11:42 编辑 ]