Membuat Form Login VB.net dengan Database Access (Koneksi VB.net dengan Database Access)

Langkah-langkah membuat Membuat Form Login VB.net dengan Database Access .

100% work 

pendahauluan

banyak form login tapi rata" tidak bisa setelah saya coba" dan saya menemukan cara mudah serta
penjelasan logic aplikasinya . =)

1. Membuat Form (Menggunakan VB.net / visual basic 2010)
2. Membuat Database (Access 2003/2007)
3. Mengkoneksikan VB.net/ visual basic 2010 ke Access
4. Membuat syntax .

1.Membuat Form (Menggunakan VB.net / visual basic 2010)

1. Buka Visual Basic 2010
2. Save dengan Nama LOGIN
3. Tentukan Lokasi Penyimpanan (contoh D:\)
4. Buat form 2 form (Form Login dan Form Kosong)

NB: Guna dari Form kosong adalah untuk mengetest apabila form login berhasil masuk akan tampil form kosong tersebut .

ini adalah contoh form login buatan saya :D
sebenernya ga musti harus seperti itu .
anda cukup membuatnya sederhana

1 buah groupbox ~> beri nama pada text (Masukan Nama Dan Password)
di dalam groupbox anda beri :

2 buah Label = Nama dan Password
2 buah textbox = textbox1 dan textbox2
2 buah button = Login dan Batal

Nama control	Propertis	Nilai
Groupbox1	Name	Masukan Nama Dan Password
Textbox1	Name	TxtNama
TextBox2	Name	TxtPassword
Label1	Text	Nama
Label2	Text	Password
button1	Name	CmdLogin
	Text	Login
button2	Name	CmdBatal
	Text	Batal

Atur Propertis seperti contoh di atas .
sehingga mengubah form seperti

setelah selesai membuat form di atas . kita akan membuat database :D

GO GO GO !! FIRE IN THE HOLE !!



question : Fariz setiawan
https://twitter.com/fariz_setiawan

2. Membuat Database (Access 2003/2007)

1. buka ms.access
2. pilih penyimpanan di lokasi folder anda membuat program form di dalam folder
   (D:\LOGIN\Bin \Debug)
3. buat table dengan nama TUSER
4. buat 2 Field (Nama [tetx]  dan Password [text] )
5. isi Field Nama sesuka anda
6. isi Field Password sesuka anda
7. save

Tahap membuat database Selesai ;D

Lanjuttttttttttt gan...!! :)


question : Fariz setiawan
https://twitter.com/fariz_setiawan

3. Mengkoneksikan VB.net/ visual basic 2010 ke Access

Sudah saya jelaskan pada blog saya sebelumnya klik untuk anda mempelajari cara melihat link koneksi database

http://farizsetiawan.blogspot.com/2012/12/koneksi-vbnet-dengan-database-access.html

Nb: apabila anda merasa sulit anda bisa mengetik manual . apabila anda menggunakan access 2003 dan database anda berada di (D:\LOGIN\Bin \Debug) Link anda adalah

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEST.mdb;Persist Security Info=False

apabila anda menggunakan access 2007 dengan lokasi penyimpanan Database anda berada di (D:\LOGIN\Bin \Debug) Link anda adalah

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LOGIN\bin\Debug\TEST.accdb;Persist Security Info=False

(di PASTE di Connection syntax lihat contoh syntax di bawah ~>  Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEXT.mdb;Persist Security Info=False" )

4. Membuat syntax

untuk tahap ini anda tidak perlu menggunakan Modul atau Class (untuk para pemula)
anda hanya perlu memahami logic nya

dan anda jg bisa membuat Modul / Class setelah memahami Logic dari syntax tersebut

Tulis Syntax berikut :

Imports System.Data.OleDb

Public Class LOGIN

    Dim Con As New OleDbConnection

    Sub clear()

        TxtNama.Text = ""

        TxtPassword.Text = ""

    End Sub

    Private Sub LOGIN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
----------------------------------------------------------------------------------------------------------------------------------------

'***PASTE LINK KONEKSI DATABASE DI BAWAH ( DI DALAM TANDA " " )***

----------------------------------------------------------------------------------------------------------------------------------------'

        Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEXT.mdb;Persist Security Info=False"

    End Sub

    Private Sub CmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBatal.Click

        Call clear()

    End Sub

    Public Function ask()

        Dim dt As New DataTable

        Dim ds As New DataSet

        Dim da As New OleDbDataAdapter(" select * from TEXT", Con)

        ds.Tables.Add(dt)

        Con.Open()

        da.Fill(dt)

        For Each datarow In dt.Rows

            If TxtNama.Text = datarow.item(0) And TxtPassword.Text = datarow(1) Then

                Con.Close()

                Return True

            End If

        Next

        Con.Close()

        Return False

    End Function

    Sub Proses()

        If ask() = True Then

            Me.Hide()

----------------------------------------------------------------------------------------------------------------------------------------

            'form2 adalah form kosong yang anda buat guna apabila berhasil login akan tampil form 2'

 ----------------------------------------------------------------------------------------------------------------------------------------        

            Form2.ShowDialog()

        Else

            MessageBox.Show("Username atau password salah. periksa kembali", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Call clear()

        End If

    End Sub

    Private Sub CmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click

        TxtNama.Focus()

        Proses()

    End Sub

------------------------------------------------------------------------------------------------------------

    'di bawah ini adalah untuk enter = CmdLogin'

atau

'apabila enter di keyboard = login '

------------------------------------------------------------------------------------------------------------

    Private Sub TxtPassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtPassword.KeyDown

        If e.KeyCode = Keys.Enter Then

            Proses()

            e.SuppressKeyPress = True

        End If

    End Sub

    Private Sub TxtNama_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtNama.KeyDown

        If e.KeyCode = Keys.Enter Then

            Proses()

            e.SuppressKeyPress = True

        End If

    End Sub

End Class

MUdahh Kan ?! (yaiyalah copyPaste) :D

koneksi vb.net dengan database access 2007 dan membuat password database .

cara melihat / mencari link database .

1. buka notepad (kosong)
2. pilih menu file klik save as
3. tentukan lokasi save .(contoh : lokasi save di D:\fariz\test )
4. save as type all file
5. beri nama file (conn.udl)
6. apabila sudah di save dengan nama seperti diatas .
7. masuk ke lokasi (contoh : lokasi save di D:\fariz\test ) save buka file doubleclick
8. pilih provider klik ( apabila menggunakan datebase access 2007) pilh "Microsoft.ACE.OLEDB.12.0"
9. apabila menggunakan access 2003 pilih microsoft jet 4.0 OLE DB Provider
10. masukan data source (conn.udl)
11. klik test koneksi apabila sukses klik OK
12. klik kanan file pilih notepad++ (untuk membuka file dengan notepad++)
13. dan anda sudah bisa melihat link database anda .

contoh ;

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database1.accdb;Persist Security Info=False;

In addition, if you are using passwords to access your database, you can include it in your connection string like below;

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database1.accdb;Jet OLEDB:Database Password=MyDbPassword;

;)

good luck

Keypress Enter Keyboard Syntax VB.NET 2010

Keypress Enter VB.net 2010 Syntax Code penggunaan Enter Pada Keyboard .

NB : logic dari keydown adalah tergantung pada focus kursor

contoh : cursor pada textbox1 (apabila di klik enter maka akan berproses)

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Enter Then

            WebBrowser1.Navigate(TextBox1.Text)

            e.SuppressKeyPress = True

        End If

        If e.KeyCode = Keys.F5 Then

            WebBrowser1.Refresh()

            e.SuppressKeyPress = True

        End If

    End Sub

KeyPress Enter VB.net 2010 dalam syntax code press enter keyboard Adalah penggunaan Keypress Enter Keyboard Dalam VB.net 2010 dalam bentuk syntax code .

penjelasan logica Keypress Enter Keyboard Syntax VB.NET 2010.

========================================================================

 Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Enter Then

            WebBrowser1.Navigate(TextBox1.Text)

            e.SuppressKeyPress = True

        End If

       

    End Sub

========================================================================

RUMUS :

If e.KeyCode = Keys.(KeyBoard Press)  Then (prosesnya)

e.SuppressKeyPress =True

end If

========================================================================

Mudah Bukan :D
Semoga Sukses :))
^_~

Twitter ; @fariz_setiawan

Membuat WebBrowser Mu Sendiri Menggunakan VB.net 2010

WebBrowser adalah Penjelajah web, Penjelajah (Inggris: web browser) disebut juga penjelajah web, adalah perangkat lunak yang berfungsi menampilkan dan melakukan interaksi dengan dokumen-dokumen yang disediakan oleh server web . Penjelajah web yang populer adalah Microsoft Internet Explorer dan Mozilla Firefox. Penjelajah web adalah jenis perantara pengguna yang paling sering digunakan. sekarang kita bisa membuat applikasi sederhana menggunakan visual basic 2010 atau vb.net .
caranya sangat mudah dan menarik untuk di coba untuk latihan para ortodidak atau pemula belajar vb.net .

mari kita buat mozila firefox kita sendiri . :D

download visual basic 2010

http://visual-basic-2010.en.softonic.com/

instal program dan buka program. 

pilih new project . untuk membuat projek baru .

setelah sudah membuka project baru akan keluar tampilan sebagai berikut :

Pilih windows Form Application
Beri Nama dan "Klik Browse Untuk penyimpanan aplikasi "

Buat Form Seperti Berikut ini :

yang di butuhkan adalah

• 4 Button (di paling atas untuk icon refresh, stop browser, back dan Go urL )
• 1 textbox (di atas untuk UrL / Alamat Website )
• 1 WebBrowser ( di bawah dan buat dengan ukuran besar , untuk tampilan web )

setelah seperti tampilan di atas . kita atur propertisnya sehingga menjadi seperti ini :

Nama control	Propertis	Nilai
button1	Name	BtnBack
	Backgroundimage	(Beri icon)
	Backgroundimagelayout	Stretch
	Text	(kosong)
button2	Name	BtnStop
	Backgroundimage	(Beri icon)
	Backgroundimagelayout	Stretch
	Text	(kosong)
button3	Name	BtnRefresh
	Backgroundimage	(Beri icon)
	Backgroundimagelayout	Stretch
	Text	(kosong)
button4	Name	BtnGo
	Text	Go UrL
textbox1	Name	TextBox1
webbrowser1	Name	WebBrowser1

setelah sudah terbuat tampilan seperti gambar di atas dengan propertis demikian , kita akan ke proses syntax .
caranya : 

klik kanan pada form1 pilih view code atau doubleclick form .

tulis syntax code berikut :

=================================================================================

Public Class Form1

    Private Sub BtnGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGo.Click

        WebBrowser1.Navigate(TextBox1.Text)

    End Sub

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        TextBox1.Text = WebBrowser1.Url.ToString

    End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Enter Then

            WebBrowser1.Navigate(TextBox1.Text)

            e.SuppressKeyPress = True

        End If

        If e.KeyCode = Keys.F5 Then

            WebBrowser1.Refresh()

            e.SuppressKeyPress = True

        End If

    End Sub

    Private Sub BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click

        WebBrowser1.GoBack()

    End Sub

    Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click

        WebBrowser1.Refresh()

    End Sub

    Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click

        WebBrowser1.Stop()

    End Sub

End Class

=================================================================================

penjelasan logika syntax  :

1.  apabila di klik BtnGO , navigasi control webbrowser1 di dasari dari textbox1 (Terkoneksi antara webbrowser dan textbox) tergatung alamat website di textbox1
2.  textbox1 adalah UrL atau alamat WebSite .
3. keypress enter pada keyboard sama dengan kita mengklik Go UrL .
4. keypress f5 pada keyboard sama dengan kita mengklik BtnRefresh
5. apabila di klik BtnBack maka akan kembali ke web sebelumnya
6. apabila di klik BtnRefresh maka akan refresh page (f5)
7. apabila di klik BtnStop maka koneksi akan berhenti

setelah sudah simpan klik gambar discket grub save .
klik submenu , build pilih dan build file tersebut

klik icon paste di bawah submenu Debug

F5 untuk debug program .
masukan UrL apa saja , untuk check working program .
contoh : facebok.com

sekarang anda sudah membuat Mozila Firefox buatan anda sendiri :D

Mudah buKan ;)
Selamat Mencoba ^,^ teman-teman .

jangan lupa post command dan share ilmu untuk teman2 yang lain juga .
:D

Twitter ; @fariz_setiawan