MEMBUAT DATA BASE
Atribut untuk membuat data base
Lalu sambungkan dengan visual studio
Dan membuat project untuk registrasi
Dengan coding di bawah ini :
Imports System.Data.SqlClient
Imports System.Net.Http.Headers
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim con As SqlConnection = New SqlConnection("Data Source=LAPTOP-2FG2PCBN\SQLEXPRESS;Initial Catalog=DB_Regist;Integrated Security=True")
Dim cmd As SqlCommand = New SqlCommand("insert into TB_Regs values ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "')", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
MessageBox.Show("Anda Berhasil Mendaftar, Silahkan Login Kembali", "information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form2.Show()
Me.Hide()
End Sub
End Class
Lalu di lanjut membuat project login
Dengan coding seperti di bawah ini :
Imports Microsoft.VisualBasic.ApplicationServices
Public Class Form2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
If con.State = ConnectionState.Open Then con.Close()
con.Open()
Dim sql As String = "select * from TB_Regs where Username= '" & Trim(TextBox1.Text) & "'"
Dim cmd = New SqlClient.SqlCommand(sql, con)
Dim rdr As SqlClient.SqlDataReader = cmd.ExecuteReader()
If rdr.HasRows = False Then
MsgBox("User Id Tidak Ditemukan!")
TextBox1.Focus()
End If
cmd.Dispose()
rdr.Close()
sql = "select * from TB_Regs where Username = '" & Trim(TextBox1.Text) & "' And Password = '" & Trim(TextBox2.Text) & "'"
cmd = New SqlClient.SqlCommand(sql, con)
rdr = cmd.ExecuteReader()
If rdr.HasRows = False Then
MsgBox("Password Salah!")
TextBox2.Focus()
Exit Sub
Else
Form3.Show()
Me.Hide()
End If
con.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
Di akhiri dengan membuat modul :
Imports System.Data.SqlClient
Module Module1
Dim Constr As String = "Data Source=LAPTOP-2FG2PCBN\SQLEXPRESS;Initial Catalog=DB_Regist;Integrated Security=True"
Public con As New SqlConnection(Constr)
End Module
Sekian Terimakasih 🙏🏼🙏🏼🙏🏼
Comments
Post a Comment