关于ADO的问题,高手请进,谢谢

maclxp 2004-04-29 10:10:20
我现在在一个FORM里放了两个textbox,一个是ID,另一个是密码,还有一个adodc1,这个adodc1连接一个数据库mac.mdb里表guanli,表里两个字段是ID和密码.现在的情况是我在textbox里输入ID和密码,怎样去和数据库里的做比较,该怎样写程序,有哪位高手可以指导一下,谢谢!
...全文
88 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhjyi0526 2004-05-06
  • 打赏
  • 举报
回复
太简单了,我用过n*n次
wea1978 2004-04-29
  • 打赏
  • 举报
回复
数据源作dsn吧.
'定义

dim conn As New ADODB.Connection
dim rst As New ADODB.Recordset
dim sql As String, cn As String

If id.Text = "" Or pwd.Text = "" Then
MsgBox "不能为空",vbInformation, "不能空"
Exit Sub
Else
If rst.State Then rst.Close
sql = "select id,pwd from mispaymentsyle where pwd='" & Trim(pwd.Text) & "'"
rst.Open sql, conn, adOpenKeyset, adLockPessimistic
If rst.EOF = True Then

MsgBox "密码错",vbInformation, "错误. . ."
end if
'ID比较就把字段pwd换成id就可以了.比较对象用id.text
northwolves 2004-04-29
  • 打赏
  • 举报
回复
1. 如果guanli表中 ID字段无所输id,则显示“无此用户!”,要求重输
2 如果guanli表中ID字段有所输id,查询与其匹配密码字段,与所输密码相同则进入下一步,不同则要求重输密码

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧