cara koneksi vb.net dengan sql server

Secara umum koneksi ke database dengan VB.Net ditentukan oleh jenis databasenya. Database yang banyak digunakan adalah sebagai berikut :

1. Access (menggunakan namespace OLEDB)
2. MySql (menggunakan namespace ODBC atau Mysql Client)
3. Sql Server (menggunakan namespace SqlClient)



Catatan utama versi saya sebagai penulis:

1. Menampilkan data ke DATAGRIDVIEW lebih mudah menggunakan DATAADAPTER dan DATASET
2. Menampilkan data ke TextBox, ListBox, ComboBox atau ke Label sebaiknya menggunakan COMMAND dan DATAREADER


Imports System.Data.SqlClient

Public Class SqlServer
'Mendefinisikan variabel-variabel

Dim CONN As SqlConnection
Dim DA As SqlDataAdapter
Dim DS As New DataSet
Dim CMD As SqlCommand
Dim DR As SqlDataReader

Sub Koneksi()
Try
'String koneksi ke database sql server tanpa password
CONN = New SqlConnection("data source=user-pc\sqlexpress;initial catalog=dbpersediaan;integrated security=true")
CONN.Open()
MsgBox("koneksi sukses")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub SqlServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Menampilkan data ke datagrid

Call Koneksi()
DA = New SqlDataAdapter("SELECT Nama_Departemen,Pimpinan from tbldepartemen", CONN)
DS = New DataSet
DA.Fill(DS)
DataGridView1.DataSource = DS.Tables(0)
DataGridView1.ReadOnly = True

'Menampilkan data ke listbox
CMD = New SqlCommand("SELECT * FROM tbldepartemen", CONN)
DR = CMD.ExecuteReader
Do While DR.Read
ListBox1.Items.Add(DR.Item("nama_departemen"))
Loop
End Sub
End Class




Catatan :

1. Jika anda menggunakan sql server 2000, string koneksi tidak perlu menggunakan \SQLEXPRESS.
CONN = New SqlConnection("data source=user-pc;initial catalog=dbpersediaan;integrated security=true")

2. Jika sql server menggunakan user Id dan password, maka ubah string koneksi menjadi sebagai berikut :
CONN = New SqlConnection("data source=user-pc;initial catalog=dbpersediaan;user id=sa;password=123”)

3. Cara lain koneksi database dapat dilakukan dengan membuat DSN terlebih dahulu. Contoh koneksi menggunakan DSN adalah sebagai berikut :

Imports system.data.odbc


Module Module1

Public CONN As odbcConnection
Public DA As odbcDataAdapter
Public DS As New DataSet
Public CMD As odbcCommand
Public DR As odbcDataReader

Sub Koneksi()
CONN = New OdbcConnection("Dsn=DSNParkir")
CONN.Open()
End Sub
End Module