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