membuat koneksi vb.net 2008 dengan access 2007

ok..langsung saja saya contoh kan codingnya...

Sebagai contoh saya sudah menyiapkan database Access 2007 dengan nama “TestDatabase.accdb” yang disimpan di dalam drive “C:\Test Project\Database”,

Test Database

tujuan kita adalah membuat koneksi dari vb 2008 ke database Access tsb dan menampilan isi record dari table “TestTable” ke DataGridView.

Test Table

Database Connection Wizard

Ok, langkah-langkahnya adalah sebagai berikut :

• Buka Aplikasi Visual Studio 2008 – Pilih File – New Project

Ubah Nama Projectnya menjadi DatabaseConnection, lalu klik OK

My.Settings class

• Pilih menu Project – DatabaseConnection Properties ( Menu yang paling Bawah )

• Pilih Settings, Ubah Name Menjadi ConnStr, Ganti Type menjadi (Connection String) , Scope menjadi Application, kemudian klik button kecil di kolom value

• Pilih Microsoft Access Database File , kemudian klik tombol OK

• Klik browse, arahkan ke folder TestDatabase, Kemudian Klik tombol OK

Tampilan akan menjadi seperti ini :

• Kembali ke Design Form1.vb, tambahkan control Button Dan DataGridView

• Double klik button1, lalu ketikkan perintah dengan urutan sebagai berikut :

Diatas Public Class Form1, ketikkan syntax ini Imports System.Data.OleDb

Kemudian ketikkan syntax berikut,

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

Using Conn As New OleDbConnection(My.Settings.ConnStr)

Using Dta As New OleDbDataAdapter(“Select * From testTable”, Conn)

Conn.Open()

Dim Dttabel As New DataTable

Dta.Fill(dttabel)

DataGridView1.DataSource = dttabel

End Using

End Using

End Sub

Setelah selesai, coba jalankan project anda dengan menekan tombol F5, lalu klik Button1, jika koneksi berhasil maka datagridview akan terisi oleh record dari table “testTable” seperti gambar dibawah.

Running Project Berhasil

sumber : http://www.tutorialvb.net/14/membuat-koneksi-dari-vb-2008-ke-microsoft-access-2007-database-menggunakan-my-settings-class/

Koneksi VB6.0 dengan MS.SQL Server 2000 pada Windows7

Pada awalnya saya bingung untuk membuat sebuah program dengan menggunakan VB6.0 pada windows7.

Namun setelah beberapa kali mencoba akhirnya saya mendapatkan solusi. Biasanya program tidak berjalan dengan menggunakan ActiveX component, hal ini terjadi karena program VB6.0 berjalan pada mode normal dan bukan berjalan sebagai administrator.

Untuk lebih mempermudahnya, akhirnya saya klik kanan program VB6.0 lalu saya pilih properties -> Compability -> Privilage Level -> Run this program as an administrator. Setelah saya ubah, akhirnya program berjalan dan bisa menggunakan komponen ActiveX.

Untuk koneksi Ms.SQL Server 2000 pada windows7, pada saat pertama kali installasi koneksi pada Service Manager tidak nampak.

Akhirnya saya coba membuat koneksi pada Enteprise Manager. Langkahnya adalah sebagai berikut:

1. Buka program Enterprise Manager pada MS. SQL Server 2000

2. Pilih menu Register Server

3. Pilih Menu Run as Wizard

ikuti dan masukkan inputan sesuai dengan kebutuhan Anda

4. Setelah selesai, Pilih Console Root pada menu sebelah kiri -> Microsoft SQL Server -> SQL Server Groups

5. Pilih Local(WindowsNT), pastikan sampai tersambung.

setelah itu, Tutup Service Manager lalu jalankan kembali Server Manager

6. Service Manager sudah tersambung

----

Untuk membuat database, masih sama seperti biasa ketika membuatnya pada WindowsXP.

Namun untuk membuat table nya, pilih terlebih dahulu Database->[Nama_database]->Tables

Lalu buat tabel pada bagian kanan dengan klik kanan -> New Table

----

Untuk melakukan koneksi dengan VB6.0 kita dapat menggunakan koneksi ADODB

Pilih menu Project pada VB6.0->References-> Pilih Library [Microsoft Active Data Object Library 2.6]

-----

Buat module pada VB6.0, ketik code dibawah ini:

Option Explicit

Public Koneksi as New ADOBD.Connection

Public Sub BukaDatabase(ByVal DBSource as string, ServerID as string)

koneksi.CursorLocation = adUseClient

koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & DBSource & ";Data Source=" & ServerID

End Sub

Public Sub TutupKoneksi()

If koneksi.State = 1 Then

koneksi.Close

Set koneksi = Nothing

End If

End Sub

-----

Pemanggilan Koneksi Database

BukaDatabase "dbSample", "127.0.0.1"

-----

Untuk membuat pemanggilan recordset, dapat menggunakan code seperti dibawah ini:

Public RsSample as New ADODB.Recordset

-----

Pemanggilan Recordset:

RsSample.Open "SELECT * FROM tbSample", koneksi, adOpenDynamic, adLockBatchOptimistic

-----

Terima Kasih

sumber : http://mugi.or.id/blogs/kohimaru/archive/2012/01/18/koneksi-vb6-0-dengan-ms-sql-server-2000-pada-windows7.aspx