Skip to main content

Posts

Showing posts from January, 2015

Membuat Login Menggunakan Vb.Net (2008, 2010, 2012, 2013) dengan database SQL SERVER.

Selamat Malam teman-teman, malam-malam gini dari pada mikirin yang aneh-aneh mending membuat sesuatu yang lebih bermanfaat. Kali ini saya akan bahas mengenai membuat Form Login menggunakan Vb.net yang menggunakan sql server sebagai databasenya. Langsung saja. Pertama kita buat dulu projek vb kita terserah teman teman mau dikasih nama apa. Yang ke dua berikan dua buah textbox pada form yang telah kita buat tadi. Pada propertisnya ganti namenya menjadi txtUsername dan yang satunya lagi ubah menjadi txtPassword supaya tidak membingungkan kita ketika membuat kodingnya nanti. Yang ketiga berikan dua buah button ubah propertis yang name nya menjadi btnLogin serta pada properties textnya ganti dengan LOGIN dan button yang ke dua name nya ubah menjadi btnCancel dan properties textnya ganti dengan CANCEL Kemudian kita buat sebuah class untuk menampung koneksi antara vb.Net dengan sql server. Caranya klik kanan pada project kita kemudian add class Ganti nama class.vb menja

Class untuk menghubungkan antara vb.net dengan sql server.

Dibawah ini merupakan coding untuk menghubungkan antara vb.net dengan sql server. Silahkan copi pastekan ke class yang telah anda buat. Ingat!!! Silahkan ganti “ Data Source=.;Initial Catalog=DBME48;Integrated Security=True " menggunakan server komputer anda masing-masing. Karna itu merupakan server yang akan digunakan untuk menghubungkan antara vb.net dengan sql server. Imports System.Data.SqlClient Imports System.Data Public Class CLSKoneksi     Protected sql As String     ' Protected conn as SqlClient.SqlConnection     Protected conn As SqlConnection     Protected cmd As SqlCommand     Protected da As SqlDataAdapter     Protected ds As DataSet     Protected dt As DataTable     Public Function openConn() As Boolean         sql = " Data Source=.;Initial Catalog=DBME48;Integrated Security=True "         conn = New SqlConnection (sql)         conn.Open()         If conn.State <> ConnectionS