Hi guys I'm Indrajeet Roy, and I have a problem with a piece of code I am trying write in VB.net. I am using Visual Studio 2010 as my IDE.
The basic idea behind the form and the coding I am trying to do is to create a username, password and an access level number in an SQL Database I call VBDB.
The problem I have is that for some reason, when I execute the actual command to create the user, it tries to convert the password to int datatype!!
I am also posting the code for the form and the function below:
The code on the form is as follows:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Acc_Lvl As Integer Dim user, passwd, var As String passwd = "" user = NameBox.Text If (String.Compare(PassBox.Text, PassBox2.Text)) = 0 Then passwd = PassBox.Text Else MsgBox("Password and Re Enter password fields don't match") End If var = ListBox1.SelectedItem Select Case var Case "Level 1 ( ACCESS EVERYTHING)" Acc_Lvl = 1 Case "Level 2 (CAN NOT ADD AND DELETE USER)" Acc_Lvl = 2 Case "Level3 (CAN ONLY USE THE ORDERS PAGE AND VIEW THE BILLS)" Acc_Lvl = 3 End Select AddUserFun(Acc_Lvl, user, passwd) MsgBox("The User has been created")
The function is as follows:
Function AddUserFun(ByRef user, ByRef pass, ByRef acclvl) As Integer Dim i As Integer Try Dim conn As New SqlClient.SqlConnection("Server=.\SQLSERVER;AttachDbFilename=C:\Program Files\Microsoft SQL Server\MSSQL10_50.SQLSERVER\MSSQL\DATA\VBDB.mdf;Database=VBDB; Trusted_Connection=Yes;") Dim addusr As New SqlClient.SqlCommand addusr.CommandText = "INSERT INTO dbo.Users VALUES('" & user & "','" & pass & "','" & acclvl & "')" addusr.CommandType = CommandType.Text addusr.Connection = conn conn.Open() addusr.ExecuteNonQuery() conn.Close() Catch ex As Exception MsgBox(ex.Message) i = 1 End Try i = 0 Return i End Function
Please take a look at my coding and tell me where I'm making the error. This is my final semester project and this little thing is holding the whole thing up!!