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

maclxp 2004-04-29 10:10:20
我现在在一个FORM里放了两个textbox,一个是ID,另一个是密码,还有一个adodc1,这个adodc1连接一个数据库mac.mdb里表guanli,表里两个字段是ID和密码.现在的情况是我在textbox里输入ID和密码,怎样去和数据库里的做比较,该怎样写程序,有哪位高手可以指导一下,谢谢!
...全文
31 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过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,查询与其匹配密码字段,与所输密码相同则进入下一步,不同则要求重输密码
  • 打赏
  • 举报
回复
相关推荐
发帖
网络编程
加入

1492

社区成员

VB 网络编程
社区管理员
  • 网络编程
申请成为版主
帖子事件
创建了帖子
2004-04-29 10:10
社区公告
暂无公告