| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1757 人关注过本帖
标题:vb+access 用ADODC连接 做一个登录界面,本人菜鸟,求高手看下程序怎么改
取消只看楼主 加入收藏
bnegsh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-5-4
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
vb+access 用ADODC连接 做一个登录界面,本人菜鸟,求高手看下程序怎么改
程序代码:
Private Sub Command1_Click()
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" Then

 Adodc1.RecordSource = "select * from 用户表 where username='" + Trim(Text1.Text) + "' and passwrod='" + Trim(Text2.Text) + "'"

 Adodc1.Refresh
   If Adodc1.Recordset.RecordCount = 1 Then
    Adodc1.Recordset.Close
    frm2.Show
    Me.Hide
   Else
    MsgBox "错误的账号或密码!", vbInformation + vbOKOnly, "错误信息"
    Text2.Text = ""
    Text1.SetFocus
   End If
ElseIf Text1.Text = "" Then

 MsgBox "账号不能为空!", vbInformation + vbOKOnly, "错误信息"

 Text1.SetFocus
Else

 MsgBox "密码不能为空!", vbInformation + vbOKOnly, "错误信息"

 Text2.SetFocus
End If
End Sub



红色为出错部分,显示ADODC1 FORM子句语法错误
2012-05-04 13:22
bnegsh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-5-4
收藏
得分:0 
出错的语句是Adodc1.Refresh
2012-05-04 13:30
bnegsh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-5-4
收藏
得分:0 
回复 3楼 风吹过b
我双击ADODC1 ,代码窗口不出来,弹出  用户类型未定义      求指教
2012-05-04 22:40
bnegsh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-5-4
收藏
得分:0 
回复 5楼 风吹过b
放ADODC控件了啊,与数据库连接测试已成功,一双击ADODC控件就弹出 用户类型为定义
2012-05-06 12:30
快速回复:vb+access 用ADODC连接 做一个登录界面,本人菜鸟,求高手看下程序怎么 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021504 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved