SELAMAT DATANG DI BLOG SAYA

Tentang VB.Net


CARA MEMBUAT KONEKSI DARI VB.NET 2008 KE ACCESS 2003

  1. BUKA INTERFACE VB.NET 2008 
  • klik file - New Project
  • maka akan tampil jendela berikut :
  •  Pilih Windows Form Application - pada bagian Name isi dengan TextKoneksi.vb
  • Klik Ok
   2.  Buat sebuah Module Koneksi
              ketikkan Perintah dibawah ini  :
                
        Imports System.Data.OleDb
   Module Koneksi
    Public konek As OleDbConnection
    Public Str As String

    Sub OpenDB()
        Try
            Str = "Provider=Microsoft.jet.oledb.4.0;data source=DBCoba.mdb"
            konek = New OleDbConnection(Str)
            If konek.State = ConnectionState.Closed Then
                konek.Open()
                MsgBox("Koneksi Sukses")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try   
    End Sub
End Module


   3. Pada Form1 buat sebuah tombol, pada Proeperties ubah text menjadi Test Koneksi ke Database
- Double Klik Tombolnya, Lalu ketikkan Perintah dibawah ini :
Imports System.Data.OleDb
Public Class Form1

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


  4. Buat DataBasenya Access 2003, nama DataBasenya DBCoba.mdb, buat satu buah tabel dan beberapa fieldnya. Nama Table dan Fieldnya terserah nada. Lalu simpan di Folder Aplikasi Vb.Net yang kita buat tadi, simpan di folder bin - Debug 

  5. Kemudian Jalankan Program VB.Net nya

.........Salam Sukses.......


1 komentar: