Pahami dulu video youtube yang sudah di jelaskan baru copy-paste coding di bawah.
Koding penghubung Database VB 2010
Imports System.Data.OleDb
Module mdlConfig
Public CONN As OleDbConnection
Public DA As OleDbDataAdapter
Public DS As DataSet
Public CMD As OleDbCommand
Public DR As OleDbDataReader
Sub KoneksiDB()
Try
CONN = New OleDbConnection("Provider=microsoft.ace.oledb.12.0;data source=data.accdb")
CONN.Open()
MsgBox("Koneksi Database SUKSES")
Catch ex As Exception
MsgBox(ex.message)
End Try
End Sub
End Module
Memanggil Koneksi dalam form
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call KoneksiDB()
End Sub
End Class
Komentar
Posting Komentar