ErrorAddUser....?

agen45

02-06-2013 05:32

ErrorAddUser....?

gan, tolongin ane.....

ane lagi coba buat Form "Add User", dengan form yang simple, hanya ada "username, password, dan verifikasi password", tapi error

Spoiler for Syntac ane:

Private Sub CmdSimpan_Click(sender As Object, e As EventArgs) Handles CmdSimpan.Click
Koneksi()
If TxtUsername.Text = "" Or TxtPassword.Text = "" Or TxtVPassword.Text = "" Then
MsgBox("Lengkapi data Anda terlebih dahulu")
Call Reload()
ElseIf TxtPassword.Text <> TxtVPassword.Text Then
MsgBox("Verifikasi Password Anda salah")
TxtPassword.Text = ""
TxtVPassword.Text = ""
TxtPassword.Focus()
Else
cmd = New OleDbCommand("Select * from Login where Username = '" & TxtUsername.Text & "'", Conn)
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
MsgBox("Username sudah ada, silahkan masukkan Username baru", vbInformation, "ADD USER ERROR")
Call Reload()
Else
Dim sqltambah As String = "insert into Login (Username,Password) Values('" & TxtUsername.Text & "', '" & TxtPassword.Text & "')"
cmd = New OleDbCommand(sqltambah, Conn)
cmd.ExecuteNonQuery()
End If
End If
End Sub
End Class

Spoiler for Form ane gan:

Spoiler for Errornya gan:

678

Kutip

Balasan

Komentar yang asik ya

Komunitas Pilihan