Modul Koneksi Database VB.NET 2005

Kali ini saya akan memberikan script modul koneksi database, disini saya memakai visual studio 2005 (vb.net 2005), saya akan memberikan script modul koneksi database untuk access dan mysql.

Pertama saya akan memberikan script modul koneksi database ke acces, berikut scriptnya :


Imports System.Data.OleDb
Imports System.Data

Module MyModule

    Public strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\penjualan.mdb;"

    Public cur As New Form

End Module



NB : penjualan.mdb adalah nama database, jadi jika nama database anda pembelian maka ganti dengan pembelian.mdb


Berikut untuk koneksi database ke mysql :


Imports System.Data
Imports ADODB
Imports System.Data.OleDb

Public Class konek
    Public Function conn() As ADODB.Connection
        Dim cone As New ADODB.Connection
        cone.CursorLocation = CursorLocationEnum.adUseClient
        cone.Open("SQLOledB.1;Persist Security Info=False;Data Source=sabangmotor")

        conn = cone
    End Function
    Public Function openrs(ByVal query As String) As ADODB.Recordset
        Dim rs As New ADODB.Recordset
        rs.Open(query, conn, 1, 4)
        openrs = rs
        rs = Nothing
    End Function
End Class

NB : untuk Source=sabangmotor adalah nama database, jadi jika database anda penjualan maka ganti dengan nama penjualan.

OK itu saja yang saya bisa sampaikan, mohon untuk dishare ke yang lain, terima kasih, semoga script modul koneksi ini bermanfaat.