首页上一页 1 下一页尾页 1 条记录 1/1页
你好:请问一下连接数据库问题
发表在VB答疑区
2008-11-09
是否精华
是
否
版块置顶:
是
否
你好:
我连接数据库时出错 右击ado控件------属性
用“ODBC数据源"连接时是可以正确进入的
但使用“连接字符串”连接,运行时却弹出“from子句语法错误”单击确定弹出“对象‘refresh’的方法‘iadodc’失败是什么原因?
源程序:仿照《vb数据库开发自学手册》一书中的车辆管理系统的登陆程序
Private Sub cmdok_Click()
Dim tim As Integer
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from user where 用户='" + use.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "输入错误!", , "宿舍管理系统"
ElseIf Adodc1.Recordset.RecordCount > 0 Then
If use.Text <> "" And password.Text <> "" And password.Text = Adodc1.Recordset.Fields("密码") Then
Load MDIForm1
MDIForm1.Show
op = Adodc1.Recordset.Fields("用户")
Unload Me
Else
If tim = 3 Then
myval = MsgBox("系统无法启动!", 0, "宿舍管理系统")
If myval = vbOK Then End
End If
If use.Text = "" Then
MsgBox ("请输入用户名!")
use.SetFocus
Else
If use.Text <> Adodc1.Recordset.Fields("用户") Then
MsgBox ("查无此用户,请从新输入用户名!")
use.SetFocus
Else
If password.Text = "" Then
MsgBox ("请输入密码")
password.SetFocus
Else
If password.Text <> Adodc1.Recordset.Fields("密码") Then
MsgBox ("密码错误,请从新输入!")
tim = tim + 1
password.SetFocus
End If
End If
End If
End If
End If
End If
End Sub
我连接数据库时出错 右击ado控件------属性
用“ODBC数据源"连接时是可以正确进入的
但使用“连接字符串”连接,运行时却弹出“from子句语法错误”单击确定弹出“对象‘refresh’的方法‘iadodc’失败是什么原因?
源程序:仿照《vb数据库开发自学手册》一书中的车辆管理系统的登陆程序
Private Sub cmdok_Click()
Dim tim As Integer
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from user where 用户='" + use.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "输入错误!", , "宿舍管理系统"
ElseIf Adodc1.Recordset.RecordCount > 0 Then
If use.Text <> "" And password.Text <> "" And password.Text = Adodc1.Recordset.Fields("密码") Then
Load MDIForm1
MDIForm1.Show
op = Adodc1.Recordset.Fields("用户")
Unload Me
Else
If tim = 3 Then
myval = MsgBox("系统无法启动!", 0, "宿舍管理系统")
If myval = vbOK Then End
End If
If use.Text = "" Then
MsgBox ("请输入用户名!")
use.SetFocus
Else
If use.Text <> Adodc1.Recordset.Fields("用户") Then
MsgBox ("查无此用户,请从新输入用户名!")
use.SetFocus
Else
If password.Text = "" Then
MsgBox ("请输入密码")
password.SetFocus
Else
If password.Text <> Adodc1.Recordset.Fields("密码") Then
MsgBox ("密码错误,请从新输入!")
tim = tim + 1
password.SetFocus
End If
End If
End If
End If
End If
End If
End Sub