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.
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.
Comments
Post a Comment