Cara membuat form login vb. net dengan menggunakan koneksi ODBC

Pada kesempatan kali ini, saya akan share tentang cara Membuat Form Login Di Vb.Net dengan menggunakan koneksi ODBC. Form Login adalah form yang digunakan sebagai pengaman atau penyaring user, apabila di form login user memasukan id dan passwordnya dengan benar maka program akan lanjut ke form berikutnya, tapi apabila di form login user memasukan id dan passwordnya salah akan ada pemberitahuan dari program tersebut. Dan biasanya dalam membuat form login hanya  berisi dua buah kolom text  yaitu  id dan Password.

Buatlah Project  baru  dengan dua buah form dan satu module. Langsung saja kita bikin form pertama, di properties  ganti  dengan flogin dan text nya ganti dengan login. Tampilanya seperti pada gambar diatas diatas. Kemudian klik dua kali pada button login dan ketikan koding di bawah ini.

Imports System.Data.Odbc
Public Class Form_Login

    Dim CMD As New OdbcCommand
    Dim RD As OdbcDataReader

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txt_username.Text = "" Or txt_password.Text = "" Then
            MsgBox("data login belum lengkap")

        Else

            Call Koneksi()
            CMD = New OdbcCommand("select * from t_admin where username='" & txt_username.Text & "' and password='" & txt_password.Text & "'", con)
            RD = CMD.ExecuteReader
            RD.Read()
            If RD.HasRows Then
                Form_master.Show()

            Else
                MsgBox("Kode Admin atau Password salah")
            End If

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Read more »

Cara Koneksi Visual Studio (2010) / Vb.Net ke SQL dengan menggunakan ODBC

Perangkat Lunak Yang Diperlukan :

     1.  Xampp

     2.  mysql-connector-odbc-3.51.30-win32

     3. Visual Studio 2010

Langkah –Langkah :

      1. Buat database dengan nama db_mahasiswa

      2.  Buat tabel dengan nama mahasiswa

Field	Type	Size
Nim	Int	8
Nama	Varchar	25
Agama	Varchar	10
prodi	varchar	25

3. Desain form seperti berikut :

 4. Buat modul baru dengan cara klik menu Project pilih Add Module

 5. Ketikkan script berikut kedalam module

Imports System.Data.Odbc

Module Module1

    Public con As New OdbcConnection

    Public daData As New OdbcDataAdapter

    Public dsData As New DataSet

    Public Query As String

    Sub Koneksi()

        Dim str As String

        str = "driver={MySql ODBC 3.51 Driver};Database=db_mahasiswa;server=localhost;uid=root;password=;"

        con = New OdbcConnection(str)

        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

    End Sub

End Module

  6.  Pada Form1 ketikkan script berikut di General

Imports System.Data.Odbc

  

 7. Masukkan script berikut (untuk menampilkan data mahasiswa dan untuk membersihkan form) di    dalam Public Class Form1

  

  Sub TampilDataMahasiswa()

        'untuk menampilkan data mahasiswa

        Query = "select * from mahasiswa " 'Perintah SQL untuk menampilkan data mahasiswa dari tabel mahasiswa

        daData = New OdbcDataAdapter(Query, con)

        dsData = New DataSet

        daData.Fill(dsData)

        DataGridView1.DataSource = dsData.Tables(0)

  End Sub

  Sub BersihMahasiswa()

        'bersih

        txtnim.Text = ""

        txtnama.Text = ""

        txtagama.Text = ""

        txtprodi.Text = ""

        txtnim.Focus() 'fokus ke nim

  End Sub

  8.  Ketikkan script berikut di Form Load ( Double klik di form)

Call Koneksi()

Call TampilDataMahasiswa()

   9.  Ketikkkan Script berikut di tombol Simpan

        Dim nim As Integer

        Dim nama, agama, prodi As String

        nim = Val(txtnim.Text)

        nama = txtnama.Text

        agama = txtagama.Text

        prodi = txtprodi.Text

        Query = "insert into mahasiswa(nim, nama, agama, prodi) values ('" & nim & "','" & nama & "','" & agama & "','" & prodi & "')"

        daData = New OdbcDataAdapter(Query, con)

        dsData = New DataSet

        daData.Fill(dsData)

        MsgBox("Data sudah berhasil disimpan")

        Call TampilDataMahasiswa()

        Call BersihMahasiswa()

  10.   Ketikkkan Script berikut untuk melakukan pencarian data, double click pada txtpencarian, kemudian pilih KeyPress

                Masukkan Script Berikut :

        If e.KeyChar = Chr(13) Then

            'lakukan pencarian berdasarkan nim atau nama

            Query = "select * from mahasiswa where nim like '%" & txtpencarian.Text & "%' OR nama like '%" & txtpencarian.Text & "%'"

            daData = New OdbcDataAdapter(Query, con)

            dsData = New DataSet

            daData.Fill(dsData)

            If dsData.Tables(0).Rows.Count > 0 Then

                DataGridView1.DataSource = dsData.Tables(0)

                txtnim.Text = dsData.Tables(0).Rows(0).Item("nim")

                txtnama.Text = dsData.Tables(0).Rows(0).Item("nama")

                txtagama.Text = dsData.Tables(0).Rows(0).Item("agama")

                txtprodi.Text = dsData.Tables(0).Rows(0).Item("prodi")

            Else

                MsgBox("Data tidak ketemu")

                DataGridView1.DataSource = dsData.Tables(0)

            End If

        End If

  11.   Ketikkkan Script berikut untuk melakukan perubahan data di tombol ubah

        Query = "update mahasiswa set nama='" & txtnama.Text & "',agama='" & txtagama.Text & "',prodi='" & txtprodi.Text & "' where nim='" & txtnim.Text & "'"

        daData = New OdbcDataAdapter(Query, con)

        dsData = New DataSet

        daData.Fill(dsData)

        Call TampilDataMahasiswa()

        MsgBox("Data Sudah diUbah") 

12.   Ketikkan script berikut untuk menghapus data di tombol hapus

        Query = "delete from mahasiswa where nim='" & txtnim.Text & "'"

        daData = New OdbcDataAdapter(Query, con)

        dsData = New DataSet

        daData.Fill(dsData)

        Call TampilDataMahasiswa()

        MsgBox("Data Sudah dihapus")

13.   Ketikkan script berikut di tombol bersih

        Call BersihMahasiswa()

        Call TampilDataMahasiswa()

Read more »