Membuat Koneksi VB.Net dengan Database Sql Server

Membuat Koneksi VB.Net dengan Database Sql Server

Ulasan berikut merupakan bagaimana Cara Membuat Koneksi VB.Net dengan Database Sql Server 2005. Sama seperti artikel sebelumnya ini bertujuan agar memmudahkan kita dalam membuat sebuah program, dapat mempersingkat waktu pengerjaan sebuah program. Bisa Di bilang mudah tapi tetap perlu adanya ketelitian.

Saya Sudah Mencoba Dan Sukses , Ok langsung Saja. Yang Kita buat pertama kali adalah Database nya terlebih dahulu. Langsung saja :

Lakukan Login dengan Authentications=Sql Server Authentications

Masukan User sa dan password anda seperti gambar dibawah ini :

Apabila ada yang belum tau bagaimana caranya bisa dilihat di Mengaktifkan login user sa di Microsoft SQL Server 2005.

Lalu lakukan Pembuatan databasenya , disini saya contohkan nama databasenya dbprod2

Setelah itu Masuk Ke Program VB.net 2008

Lalu tambahkan module ke dalam projek biar jelas lihat gambar :

Lalu tambahkan coding ini untuk menghubungkan vb.net kita ke databse Sql Server kita , Di Paling Atas Gan (General Deckralasi)

Imports System.Data.Sql

Imports System.Data.SqlClient

Di Dalam Module tambahkan Variable berikut

Public koneksi As SqlConnection

Public data AsDataSet

Public baca AsSqlDataReader

Public adaptor AsSqlDataAdapter

Public cmd AsSqlCommand

Public ass AsDataTable

Public str, sql As String

Lalu Buat lah Sub Koneksinya , Disini saya buat dengan nama Public Sub Buka.

Public Sub

buka()

str = "Data Source=ROZI-PC\SQLEXPRESS;Initial Catalog=dbprod2;Persist Security Info=True;UID=sa;PWD=isikanpasswordanda"

koneksi = New SqlConnection(str)

Try

If koneksi.State = ConnectionState.Closed Then

koneksi.Open()

End If

Catch ex As Exception MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")

End Try

End Sub

Biar Jelsa Lihat Gambar Berikut ini :

Public Sub

buka()

str = "Data Source=ROZI-PC\SQLEXPRESS;Initial Catalog=dbprod2;Persist Security Info=True;UID=sa;PWD=isikanpasswordanda"

koneksi = New SqlConnection(str)

Try

If koneksi.State = ConnectionState.Closed Then

koneksi.Open()

End If

Catch ex As Exception MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")

End Try

End Sub

Biar Jelsa Lihat Gambar Berikut ini :

Sekian dulu Membuat Koneksi VB.Net dengan Database Sql Server Semoga Bermanfaat . Dan Baca juga Membuat Koneksi VB.Net dengan Database Microsoft Access Terimakasih.