“DefaultDomain”: 已加载“c:\windows\microsoft.net\framework\v1.1.4322\mscorlib.dll”,未加载符号。
“商场仓库管理系统”: 已加载“F:\作品\vb.net\商场仓库管理系统\商场仓库管理系统\bin\商场仓库管理系统.exe”,符号已加载。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\system.windows.forms\1.0.5000.0__b77a5c561934e089\system.windows.forms.dll”,未加载符号。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll”,未加载符号。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll”,未加载符号。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll”,未加载符号。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\microsoft.visualbasic\7.0.5000.0__b03f5f7f11d50a3a\microsoft.visualbasic.dll”,未加载符号。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll”,未加载符号。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.thunk.dll”,未加载符号。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll”,未加载符号。
“商场仓库管理系统.exe”: 已加载“c:\windows\assembly\gac\mscorlib.resources\1.0.5000.0_zh-chs_b77a5c561934e089\mscorlib.resources.dll”,未加载符号。
程序“[1016] 商场仓库管理系统.exe”已退出,返回值为 0 (0x0)。
调试后,有这样的问题,可以运行,但是注册不了,有异常,新手不会问问题,请见谅!代码如下!书上的!
我用IF语句实行,不过出现问题就是mycom.ExecuteNonQuery() 这句!
Imports System.Data
Imports System.Data.SqlClient
Public Class registeruser
Inherits System.Windows.Forms.Form
..................
Private Sub btadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btadd.Click
Try
Dim comstr As String
If cmbpurview.Text = "一般用户" Then
If txtpassword.Text = txtconfirmpassword.Text Then
comstr = "insert into " & cmbpurview.Text & " values('" & txtusername.Text & " ','" & CChar(txtpassword.Text) & " ')"
'定义一个SQL语句,并初始化
Dim mycom As New SqlCommand(comstr, SqlConnection)
SqlConnection.Open()
mycom.ExecuteNonQuery() '执行命令
SqlConnection.Close()
MsgBox("一般用户注册成功!")
Else
MsgBox("两次密码输入不相同!")
txtpassword.Text = ""
txtconfirmpassword.Text = ""
txtpassword.Focus() '把焦点落在密码上面
End If
ElseIf cmbpurview.Text = "管理员" Then
If txtpassword.Text = txtconfirmpassword.Text And txtsuperpassword.Text = "bp0306022" Then
comstr = "insert into " & cmbpurview.Text & " values('" & txtusername.Text & " ','" & CChar(txtpassword.Text) & "')"
Dim mycom As New SqlCommand(comstr, SqlConnection)
SqlConnection.Open()
mycom.ExecuteNonQuery() '执行命令
MsgBox("管理员注册成功!")
ElseIf txtpassword.Text <> txtconfirmpassword.Text Then
MsgBox("两次密码输入不相同!")
txtpassword.Text = ""
txtconfirmpassword.Text = ""
txtpassword.Focus() '把焦点落在密码上面
Else
MsgBox("注册码不正确,请联系管理员")
txtpassword.Text = ""
txtconfirmpassword.Text = ""
txtsuperpassword.Text = ""
txtpassword.Focus() '把焦点落在密码上面
End If
Else
MsgBox("权限错误!")
End If
Catch ex As Exception
MsgBox("该用户已经存在,请选另一个用户名!")
txtusername.Text = ""
txtusername.Focus()
Finally
SqlConnection.Close()
End Try
End Sub
End Class