| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1030 人关注过本帖
标题:[求助]vb中添加用户模块代码显示User附近有语法错误
只看楼主 加入收藏
qvril
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-12
收藏
 问题点数:0 回复次数:2 
[求助]vb中添加用户模块代码显示User附近有语法错误

用VB做的一个添加用户的模块.代码是:
Private Sub cmdOK_Click()
On Error GoTo DealError
Dim txtSQL As String
Dim MsgText As String
Dim objRs As New Recordset
Dim objCn As New Connection
With objCn
.Provider = "SQLOLEDB"
strSQL = "User ID=sa;PWD=123;Server=(local);database=计算机组成原理"
.ConnectionString = strSQL
.Open '打开连接
End With
If ThisUserName <> "Admin" Then
'判断用户的权限
MsgBox "只有超级管理员才有此权限!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If Trim(Text1(0).Text) = "" Then
'判断用户名输入是否为空
MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "警告"
Exit Sub
Text1(0).SetFocus
Else
txtSQL = "select * from 用户信息"
Set objRs.ActiveConnection = objCn
objRs.Open (strSQL)
While (objRs.EOF = False)
If Trim(objRs.Fields(0)) = Trim(Text1(0)) Then
'判断是否有重复记录
MsgBox "用户已经存在,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
Text1(0).SetFocus
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Exit Sub
Else
objRs.MoveNext
End If
Wend
End If
If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then
'判断两次所输入的密码是否一致
MsgBox "两次输入密码不一样,请确认!", vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Text1(2).Text = ""
Exit Sub
Else
If Text1(1).Text = "" Then
'判断密码输入是否为空
MsgBox "密码不能为空!", vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Text1(2).Text = ""
Else
objRs.AddNew
'添加用户
objRs.Fields(0) = Trim(Text1(0).Text)
objRs.Fields(1) = Trim(Text1(1).Text)
If OpComm.Value = True Then
objRs.Fields(2) = 0
Else
objRs.Fields(2) = 1
End If
Set objRs = Nothing
objCn.Update
objCn.Close
Me.Hide
MsgBox "添加用户成功!", vbOKOnly + vbExclamation, "添加用户"
End If
End If
DealError:
ShowError "程序执行出错,错误信息如下:" & vbCrLf & Err.Description
End Sub

每次运行都出错啊.说是User附近有语法错误.我是刚学的VB好多都不懂,头都大拉
请各位帮帮忙吧.谢谢咯


搜索更多相关主题的帖子: 模块 User 语法 计算机 Dim 
2007-05-12 21:03
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 

''


快上课了……
2007-05-12 21:58
qvril
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-12
收藏
得分:0 
汗.....怎么没人回答啊
2007-05-13 13:57
快速回复:[求助]vb中添加用户模块代码显示User附近有语法错误
数据加载中...
 
   



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

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