Membuat Apps Login With Database VB.NET

assalamualaikum warrahmatullahi wabarakatuh

Yak , kembali dengan saya :D , ini adalah postingan lanjutan dari tutorial yang sebelumnya
yaitu membuat VB.NET apps login without database kali ini IT NETWORKING dikesempatan waktu ini , menshare tutorial membuat VB.NET apps login with database

Requiretment

Untuk software yang saya pakai dalam membuat application ini yaitu micosoft visual studio express
yang bisa sobat IT NETWORKING download di google banyak .

Untuk membuat application login with database diperlukan sebuah software tambahan yang salah saatunya yaitu odbc data source ( download odbc connection di google banyak ) , karena saya menggunakan native odbc . yang berguna untuk menghubungkan database kalian . Dalam menghubungkan suatu database itu , Kita bisa menggunakan berbagai native . untuk postingan kali ini saya menggunakan native odbc connection .

Namun di lain waktu , IT NETWORKING akan mengupload link download pada categories application windows .

Ok selanjutnya kita ke tutorial selanjutnya
langsung saja di simak , pahami , dan kembangkan ^_^ .

Start

Apps login with database

kita buat connection ke database MySql / phpmyadmin kalian , menggunakan odbc ( untuk yang belum tahu caranya bisa ke VB.NET Native odbc for database)
setelah database berhasil connect
barulah lanjut membuat listing code


Imports System.Data.Odbc 
Imports MySql.Data.MySqlClient 
Public Class Form1
      Const DSN = "DSN=yogi-aw"
     Dim yawconnection As OdbcConnection
     Dim dryaw As OdbcDataReader
     Dim yawcmd As OdbcCommand
        Sub koneksi-yogi-aw()
         yawconnection = New OdbcConnection(DSN)
          If yawconnection.State = ConnectionState.Closed Then
             yawconnection.Open()
         Else
             MsgBox("Faild to connect Database Yogi-aw.id " _                    & vbNewLine & "Please check the server ", vbCritical, "Alert System")         End If     End Sub      Private Sub BUTTON_Click(sender As Object, e As EventArgs) Handles BUTTON.Click         Try             If TextBox1.Text = "" Or TextBox2.Text = "" Then                 MsgBox("Username or password not complete ", vbCritical, "Alert Ssytem")             End If              koneksi-yogi-aw()             yawcmd = New OdbcCommand("SELECT * FROM tb_login where username='" + TextBox1.Text + " ' and password = '" + TextBox2.Text + "'", yawconnection)              dryaw = yawcmd.ExecuteReader              dryaw.Read()              If dryaw.HasRows = True Then                 yogi.Show()                 Me.Hide()                 clean()             Else                 MsgBox("Username or password has wrong , please try again ", vbCritical, "Warning !!! ")              End If             connection.Close()          Catch ex As Exception          End Try     End Sub       Private Sub Button5_KeyDown(sender As Object, e As KeyEventArgs) Handles Button5.KeyDown         If e.KeyCode = Keys.Enter Then             e.SuppressKeyPress = True             TextBox3.Clear()         End If     End Sub

Full Source :

Click start dengan pilihan "Debugging Mode"

Done

berikut hasil coba apps login tersebut

berikut saya lampirkan beruapa video tutorial create apps login with database
[ comming soon ] akan saya upload / berikan dikemudian hari

semoga bermanfaat

Jangan lupa nih ... gan , jangan langsung copy paste source code tersebut . Carilah referensi mengenai alur dan maksud dari masing-masing script agar kita paham . Mungkin di lain waktu akan saya bahas untuk penjelasan atas script yang di inputkan :)

jangan lupa follow & follback | subscribe | like and comment

Thanks To
Allah
My Hands
www.yogi-aw.id