| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1255 人关注过本帖
标题:VB与SQL连接问题,出问题。请教高手帮忙指点,谢谢。
只看楼主 加入收藏
lijifeng
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-3-16
收藏
 问题点数:0 回复次数:19 
VB与SQL连接问题,出问题。请教高手帮忙指点,谢谢。

本代码也就是 本人的毕业论文。设计课题是:为电力公司做的::温湿度监控器,我主要做 的是 vb与sql的连接。
功能是在sql表中查到用户名和密码。如果输入正确,就进去主界面,现在第一步都做不了。希望高手帮忙。谢谢
Private Sub Command1_Click()
Dim txtSQL As String, txt1SQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Text1.Text = ""

If Trim(Text1.Text = "") Then
MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
txtSQL = "select * from wsd where 用户名 = '" & Text1.Text & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(Text2.Text) Then
OK = True
mrc.Close
Me.Hide
Text1.Text = Trim(Text1.Text)


Else
MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
End If

End Sub

搜索更多相关主题的帖子: SQL 毕业论文 String 
2007-03-16 14:43
lijifeng
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-3-16
收藏
得分:0 

运行不了。。希望高手指点

2007-03-16 14:44
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
没看到你在哪连接了数据库.

我的msn: myfend@
2007-03-16 14:45
lijifeng
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-3-16
收藏
得分:0 
txtSQL = "select * from wsd where 用户名 = '" & Text1.Text & "'"
应该是从这吧。。上面的 wsd 就是在数据库中建用户名的标。
2007-03-16 14:47
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
没看到你在哪连接了数据库.

我的msn: myfend@
2007-03-16 14:48
lijifeng
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-3-16
收藏
得分:0 
应该怎么写啊。本人 水平低,学vb基础差,请教哈啊。。
2007-03-16 14:49
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
那请你先把基础搞好了.再做.看看ado对象.

我的msn: myfend@
2007-03-16 14:53
lijifeng
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-3-16
收藏
得分:0 
来不及了。。。啊。。。。。
2007-03-16 14:54
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
现在是3月中..到5月6月交毕业设计..还有很长时间.

我的msn: myfend@
2007-03-16 14:56
lijifeng
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-3-16
收藏
得分:0 
不是的啊。我们4月初答辩,还要做毕业论文。现在什么都不会,,急啊。。5555555555

2007-03-16 14:58
快速回复:VB与SQL连接问题,出问题。请教高手帮忙指点,谢谢。
数据加载中...
 
   



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

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