У меня проблема с регистрационной формой, которую я пытаюсь отправить в базу данных (добавить новую запись), используя предоставленные данные, но она не работает. Большое спасибо
Вот пользовательский интерфейс:
Вот мой код:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim nama, uname, password, email, jk As String
Dim idusr As Integer
nama = TextBox1.Text
uname = TextBox2.Text
password = TextBox3.Text
email = TextBox5.Text
jk = ComboBox1.SelectedValue
Randomize()
' The program will generate a number from 0 to 50
idusr = Int(Rnd() * 50) + 1
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
MsgBox("Please Fill All The Box First !!!")
ElseIf TextBox3.Text <> TextBox4.Text Or TextBox3.TextLength <= 8 Then
MsgBox("Password do not match or missing !!!")
Else
Dim dbsource As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Michael\Tugas Materi Kuliah\VB\TA\DBUtama.accdb"
Dim conn = New OleDbConnection(dbsource)
Dim str = "Insert into [User]([IDUSR],[Nama],[Uname],[Pass],[Jenis Kelamin],[Email]) Values ('" & idusr & "','" & nama & "','" & uname & "','" & password & "','" & jk & "','" & email & "') ;"
Dim cmd As OleDbCommand = New OleDbCommand(str, conn)
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
Catch ex As Exception
MsgBox("Something broke, i know its you !!")
End Try
End If
End Sub
и база данных:
