UC知道VB数据库登陆查询问题？？
来源：百度知道 编辑：UC知道 时间：2024/07/05 03:25:01
我用的是ADODC控件，连接的是：Access数据库
然后表名是：系统登陆模块
两个字段，一个是：仓管员 另外一个是：密码
Private Sub Command1_Click()
Dim sql As String
Dim jilu As New Adodc.Recordset
sql = "select * from 系统登陆模块 where 仓管员='" & Trim(Text1.Text) & "'" And "密码='" & Trim(Text2.Text) & "'"
If jilu.EOF = True Then
MsgBox "没有这个用户", , "系统登陆提示"
Else
Unload Me
Form2.Show
End If
End Sub
首先我通过ADODC控件手动连接到数据库里去了，测试了也成功，同时我的引擎也是Jet4.0的 也正确，我想这个 就没必要再写代码到里面去了吧
大家就在我原来基础上改下吧
然后表名是：系统登陆模块
两个字段，一个是：仓管员 另外一个是：密码
Private Sub Command1_Click()
Dim sql As String
Dim jilu As New Adodc.Recordset
sql = "select * from 系统登陆模块 where 仓管员='" & Trim(Text1.Text) & "'" And "密码='" & Trim(Text2.Text) & "'"
If jilu.EOF = True Then
MsgBox "没有这个用户", , "系统登陆提示"
Else
Unload Me
Form2.Show
End If
End Sub
首先我通过ADODC控件手动连接到数据库里去了，测试了也成功，同时我的引擎也是Jet4.0的 也正确，我想这个 就没必要再写代码到里面去了吧
大家就在我原来基础上改下吧
不知道你要求什么
不知道你说的是不是把控件放到代码里？
用到过的控件都要跟程序的，放在同一目录下
不明白你想怎样？
貌似这条 Select 语句有问题.
" And "密码='" ...
改成sql = "select * from 系统登陆模块 where 仓管员='" & Trim(Text1.Text) & "'" "And 密码='" & Trim(Text2.Text) & "'"
变化: "And 密码='"