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

cara koneksi vb.net dengan mysql

Contoh coding untuk melakukan koneksi ke database mysql adalah sebagai berikut:

Imports System.Data.Odbc

Public Class Form1
'Mendefinsisikan variabel-variabel

Dim CONN As ODBCConnection
Dim DA As ODBCDataAdapter
Dim DS As New DataSet
Dim CMD As ODBCCommand
Dim DR As ODBCDataReader

Sub Koneksi()
Try
'String koneksi ke database mysql
CONN = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};database=DBPerpustakaan;server=localhost;uid=root")
CONN.Open()
MsgBox("koneksi sukses")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Menampilkan data ke datagrid
Call Koneksi()
DA = New OdbcDataAdapter("SELECT Judul,Pengarang from buku", CONN)
DS = New DataSet
DA.Fill(DS)
DataGridView1.DataSource = DS.Tables(0)
DataGridView1.ReadOnly = True
'Menampilkan data ke listbox
CMD = New OdbcCommand("SELECT * FROM buku", CONN)
DR = CMD.ExecuteReader
Do While DR.Read
ListBox1.Items.Add(DR.Item("judul"))
Loop
End Sub
End Class



Catatan :

1. Sebelum menjalan project, mysql harus dalam keadaan aktif

2. Kelemahan driver ODBC versi 3.51 belum bisa melakukan SELECT SUM (*). Silakan lakukan upgrade dengan driver ODBC versi 5.1. atau yang lebih tinggi

CONN = New OdbcConnection("Driver={MySQL ODBC 5.1 Driver};database=DBPerpustakaan;server=localhost;uid=root")

cara koneksi vb.net dengan access 2007

Contoh coding untuk melakukan koneksi ke database access 2007 adalah sebagai berikut:

Imports System.Data.OleDb

Public Class Form1
Mendefinisikan variabel - varabel untuk melakukan koneksi ke database dan query
Dim CONN As OleDbConnection
Dim DA As OleDbDataAdapter
Dim DS As New DataSet
Dim CMD As OleDbCommand
Dim DR As OleDbDataReader

Sub Koneksi()
Try
String koneksi ke database access 2007
CONN = New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=DBAccess2007.accdb")
CONN.Open()
MsgBox("koneksi sukses")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Menampilkan data ke datagrid
Call Koneksi()
DA = New OleDbDataAdapter("SELECT * FROM TBLUser", CONN)
DS = New DataSet
DA.Fill(DS)
DataGridView1.DataSource = DS.Tables(0)
DataGridView1.ReadOnly = True

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

cara koneksi vb.net dengan access 2003

Cara koneksi vb.net dengan database access 2003

Persiapan yang harus dilakukan sebelum membuat koneksi database ini adalah membuat database access 2003 dan membuat tabel. lalu tabel tersebut diisi secara manual. Langkah berikutnya adalah membuat form seperti gambar di bawah ini yang terdiri dari sebuah button dan datagridview.

Imports System.Data.OleDb

Public Class access2003

    Dim conn As OleDbConnection

    Dim da As OleDbDataAdapter

    Dim ds As DataSet

    Sub koneksi()

        conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=dbaccess2003.mdb")

        conn.Open()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call koneksi()

        da = New OleDbDataAdapter("select * from barang", conn)

        ds = New DataSet

        da.Fill(ds)

        DataGridView1.DataSource = ds.Tables(0)

        DataGridView1.ReadOnly = True

    End Sub

End Class