Koneksi Visual Basic Dengan Database

Koneksi Visual Basic Dengan Database - Sebuah koneksi adalah salah satu yang sangat penting untuk membuat sebuah aplikasi karena hal ini untuk menghubungkan antara visual basic dengan databasenya seperti Microsoft Access, MySQL, SQL Server.

Berikut ini cara menghubungkan Visual Basic dengan Database

Koneksi Visual Basic dengan Database Microsoft Access 2007

Imports System.Data.OleDb

Public   Class Form1

Dim Conn As OleDbConnection

Dim da As OleDbDataAdapter

Dim ds As DataSet

Dim LokasiDB As String

Sub Koneksi ()

LokasiDB = “Provider=Microsoft.ACE.OLEDB.12.0;Data

Source=DBBelajarvb.accdb”

Conn = New OleDbConnection(LokasiDB)

If Conn.State = ConnectionState.Closed Then Comm.Open ()

End Sub

Private Sub Fprm1_Load(ByVal sender As System.Object, ByVal e As

Custom EventArgs) Handles MyBase.Load

Koneksi ()

Da = New OleDbDataAdapter (“Select * from barang”, Conn)

Ds = New DataSet

Ds.Clear()

Da.Fill (ds,  “Barang”)

DataGridView1.DataSource = ds. Tables (“Barang”))

End Sub

End Class

Koneksi Visual Basic dengan Database Microsoft Access 2003

Imports System.Data.OleDb

Public Class Form1

Dim Conn As OleDbConnection

Dim da As OleDbDataAdapter

Dim ds As DataSet

Dim LokasiDB As String

Sub Koneksi()

LokasiDB = “provider=microsoft.jet.oledb.4.0; data

Source=DBBelajarvb.mdb”

Conn = New OleDbConnection(LokasiDB)

If Conn.State = ConnectionState.Closed Then Comm.Open ()

End Sub

Private Sub Fprm1_Load(ByVal sender As System.Object, ByVal e As

Custom EventArgs) Handles MyBase.Load

Koneksi ()

Da = New OleDbDataAdapter (“Select * from barang”, Conn)

Ds = New DataSet

Ds.Clear()

Da.Fill (ds,  “Barang”)

DataGridView1.DataSource = ds. Tables (“Barang”))

End Sub

End Class

Koneksi Visual Basic dengan Database MySQL

Imports System.Data.Odbc

Public Class Form1

                Dim Conn As OdbcConnection

                Dim da As OdbcDataAdapter

                Dim ds As DataSet

                Dim str As String

Private Sub Form1_Load(ByVal sender As  EventArgs) _

                Handles MyBase.Load

                Me.Text =www.sekolahkomputerbersama.blogspot.com

                Koneki()

                Da = New OdbcDataAdapter(“Select  * from Barang”, Conn)

                Ds = New DataSet

                Ds.Clear()

                Da.fill (ds, “Barang”)

                DataGridView1.DataSource = (ds.Tables(“Barang”))

End Sub

Sub Koneksi ()

                Str = “Driver={MySQL ODBC 3.51

Driver}database=dbbelajarvb;server=localhost;uid=root”

                Conn = New OdbcConnection(Str)

                If Conn.State = ConnectionState.Closed Then

                Conn.Open()

                End If

End Sub

End Class

Demikian artikel mengenai Koneksi Visual Basic Dengan Database semoga dapat bermanfaat bagi anda yang membutuhkannya.