新人求助,网上找的代码,运行时出错
网上找的VB+ACCESS登陆Private Sub Command1_Click()
Adodc1.RecordSource = "select * from sysname where user_name='" & Text1.Text & "'" ‘数据库名为sysname
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "NO USER_NAME"
Else
If Text2.Text = Adodc1.Recordset.Fields("user_password") Then
Form1.Show 0
Unload Me
Else
MsgBox "password err"
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
End Sub
我只是把数据库改了,运行时出错。
from 子句语法错误
实时错误 '-2147217900 (80040E14)
对象'refresh'的方法'IAdodc'失败
Adodc1.refresh 这一行变成黄色
[ 本帖最后由 zzq70 于 2012-12-5 16:23 编辑 ]