数据库问题!救命!在线等!谢谢!

starsrainmzl 2004-05-11 02:51:50
我定义了一个Module 中的一些申明包含连接数据库
我能够登陆,但不能在运行状态下添加用户,对话框提示是添加成功。数据库中没有。
修改密码窗体,也不能正常运行,在加有*处报错,“实时错误:‘91’,变量未定义.
还有我那UserName 是接受登陆窗体中的用户名的,但它在修改窗体中值为空
请各位高手指点
Public gintStoremode As Integer '商品设置全局变量
Public gintSupportmode As Integer '供应商设置全局变量
Public gintDepartmentmode As Integer '部门设置全局变量
Public gintPersonnelmode As Integer '业务员设置全局变量
Public gintMagazinemode As Integer '仓库设置全局变量
Public gintStoretypemode As Integer '商品类别
Public gintZCmode As Integer
Public gintSalemode As Integer
Public gintInmode As Integer
Public UserName As String

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockBatchOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & "条记录"
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误:" & Err.Description
Resume ExecuteSQL_Exit

End Function

Public Function ConnectString() As String
ConnectString = "FileDSN=Store_Manigerment.dsn;UID=sa;PWD="

End Function
Public Sub EnterToTab(Keyasc As Integer)
If Keyasc = 13 Then
SendKeys "{TAB}"
End If

End Sub
//////////////////////////////////////////
添加用户窗体

Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
If Trim(Text1(0).Text) = "" Then
MsgBox "请输入用户名称!@_@", vbOKOnly + vbExclamation, "警告"
Exit Sub
Text1(0).SetFocus
Else
txtSQL = "select * from user_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
While (mrc.EOF = False)
If Trim(mrc.Fields(0)) = Trim(Text1(0)) Then
MsgBox "用户以存在,请重新输入用户名!^_^", vbOKOnly + vbExclamation, "警告"
Text1(0).SetFocus
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Exit Sub
Else
mrc.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

mrc.AddNew
mrc.Fields(0) = Trim(Text1(0).Text)
mrc.Fields(1) = Trim(Text1(1).Text)
mrc.Update
mrc.Close
Me.Hide
MsgBox "添加用户成功!", vbOKOnly + vbExclamation, "添加用户"
' Unload Me
End If
End If

End Sub
////////////////////////////////////////////
修改密码心窗体
Private Sub cmdOK_Click()
Dim MsgText As String
Dim txtSQL As String
Dim mrc As ADODB.Recordset
If Trim(Text1(0).Text) <> Trim(Text1(1).Text) Then
MsgBox "密码输入不正确!", vbOKOnly + vbExclamation, "警告"
Text1(0).SetFocus
Text1(0).Text = ""
Text1(1).Text = ""
Else
txtSQL = "select * from uer_Info where user_id = '" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
* mrc.Fields(1) = Trim(Text1(1).Text)
mrc.Update
mrc.Close
MsgBox "密码修改成功!", vbOKOnly + vbExclamation, "修改成功"
Unload Me
End If

End Sub
/////////////////////////////////////////////////
...全文
100 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2004-05-11
  • 打赏
  • 举报
回复
Dim mrc As New ADODB.Recordset

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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