TUTORIAL MEMBUAT
LOGIN SIMPEL DAN MUDAH DENGAN VB DAN SQL SERVER
Login merupakan elemen penting
dati program, maka saya disini akan membahas tutorial dasar membut login dengan
vb dan database SQL Server Pertama,buat
databasenya terlebih dahulu, seperti pada gambar berikut ini :
Jadi Username :sigit
Password :Dwi
Setelah itu buka vb dan buat design-nya, untuk design contoh
saya sebagai berikut :
Lalu tambahkan module untuk connect dengan database,untuk
syntaxnya seperti di bawah ini(beberapa di sesuaikan dengan PC masing-masing) :
Imports System.Data.SqlClient
Module Module1
Public conn As SqlConnection
Public cmd As SqlCommand
Public DR As SqlDataReader
Public DA As SqlDataAdapter
Public Query As String
Public DS As DataSet
Sub koneksi()
conn = New SqlConnection
conn.ConnectionString = "data source=SIGIT-DWI; initial catalog=db_saya;
integrated security=true"
Try
If
conn.State = ConnectionState.Closed
Then
conn.Open()
MsgBox("Koneksi
berhasil")
End
If
Catch ex As Exception
MsgBox("Koneksi Gagal")
End Try
End Sub
End Module
Setelah module selesai, masukkan coding agar button dapat
berfungsi untuk menyimpan data, snytax-nya sebagai berikut :
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call koneksi()
cmd = New SqlCommand("select * from
tb_login where nama='" & TextBox1.Text & "' AND pass='" & TextBox2.Text & "'", conn)
DR = cmd.ExecuteReader
DR.Read()
If Not DR.HasRows Then
MsgBox("Login Gagal, Tekan
Enter Untuk Mengulang!")
Exit Sub
Else
MsgBox("Login Berhasil, Tekan
Enter Untuk Lanjut!")
Me.Visible
= False
Form2.Show()
End If
DR.Close()
End Sub
End Class
Berikut merupakan tutorial
mudah membuat Login dengan VB, Selamat mencoba dan semoga bermanfaat...
Postingan
EmoticonEmoticon