Sunday, April 16, 2017

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


  1. 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
  2. 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"
Membuat Apps Login With Database VB.NET


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

2 komentar

Mantepnih artikelnya sukses lah (y) walaupun saya masih kurang-kurang paham :D

kurang paham yang mana gan, sapatau saya bisa bantu mengenai, Membuat Apps Login With Database VB.NET


EmoticonEmoticon