Imports System.Data
Imports System.Data.OleDb
Class Form1
Dim Connect As OleDbConnection
Dim ConnectProject As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=test.mdb"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Connect = New OleDbConnection(ConnectProject)
Connect.Open()
End Sub
End Class
ผมพิมพ์ฺตามใน หนังสือแล้วแต่ไม่เชื่อมต่อฐานข้อมูลให้อ่ะครับ ส่วนไฟล์ Access เอาไว้ใน Bin > Debug
Imports System.Data
Imports System.Data.OleDb
Class Form1
Dim Connect As OleDbConnection
Dim ConnectProject As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=c:\database\test.mdb" <- ระบุไปเลยครับ
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Connect = New OleDbConnection(ConnectProject)
Connect.Open()
End Sub
End Class