Code:
Private Sub Button_Submit_Click(sender As System.Object, e As System.EventArgs) Handles Button_Submit.Click
Submit.Submit()
Dim Connection As New OleDbConnection(_conString)
Dim DataReader As OleDbDataReader
Dim Command As New OleDbCommand
Dim Query As String
Connection.Open()
Query = "INSERT INTO LOGIN(user_name, password, user_type, firstname, lastname, email, address) values ( ?,?,?,?,?,?,?)"
'Command.Connection = Connection
'Command.CommandText = Query
DataReader = Command.ExecuteReader()
Command.Parameters.AddWithValue("User_Name", TextBox_UserName.Text)
Command.Parameters.AddWithValue("Password", TextBox_Password.Text)
Command.Parameters.AddWithValue("User_Type", TextBox_Usertype.Text)
Command.Parameters.AddWithValue("FirstName", TextBox_FirstName.Text)
Command.Parameters.AddWithValue("LastName", TextBox_LastName.Text)
Command.Parameters.AddWithValue("Email", TextBox_Email.Text)
Command.Parameters.AddWithValue("Address", TextBox_Address.Text)
'Command.ExecuteNonQuery()
MessageBox.Show("Added Successful")
Try
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Connection.Close()
End Try
End Sub
End Class
Comment