Imports System.Data.SqlClient
Imports System.Data
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As New SqlConnection
con = New SqlConnection("Provider=Microsoft.ACE.OLEDB.15.0;Data Source=C:\Users\Admin\Dropbox\Database\ComDB.mdb;Persist Security Info=False")
Dim Sql As String = "select * from product"
Dim DA As New SqlDataAdapter(Sql, con)
Dim DS As New DataSet
Dim DT As New DataTable
End Sub
End Class
Error ที่ขึ้นคือ
Keyword not supported: 'provider'.
แจ้งที่บรรทัด
con = New SqlConnection("Provider=Microsoft.ACE.OLEDB.15.0;Data Source=C:\Users\Admin\Dropbox\Database\ComDB.mdb;Persist Security Info=False")
ตัวอย่างในหนังสือมีแต่ SQL Server แต่ฐานข้อมูลมันวิ่งอยู่ใน Access ครับCode (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As OleDbConnection
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.15.0;Data Source=C:\Users\Admin\Dropbox\Database\ComDB.mdb;Persist Security Info=False")
Dim Sql As String = "select * from product"
Dim DA As New OleDbDataAdapter(Sql, con)
Dim DS As New DataSet
DA.Fill(DS)
MsgBox(DS.Tables(0).Rows(0).Item(1))
End Sub
End Class
Error ดังนี้ครับ
The 'Microsoft.ACE.OLEDB.15.0' provider is not registered on the local machine.
Public Class CLASS_CALLDATA <--------------- ชื่อคลาส
Public Con_CallData As MySqlConnection
Public Comm_CallData As MySqlCommand
Public Shared Function Con()
Dim ConnectSQL As New MySqlConnection
Dim Cmd As New MySqlCommand
Try
ConnectSQL.ConnectionString = "ชื่อ Database ของเรา;Data Source=Ip Address ของเครื่องเรา หรือ เครื่อง Server ที่จำทำการติดต่อ;User Id=ชื่อที่เราใช้ติดต่อกับฐานข้อมูล;Password=รหัสที่ใช้ติดต่อฐานข้อมูล;Connect Timeout=150;charset=utf8;"
Catch ex As Exception
MessageBox.Show("Error while connecting to SQL Server." & ex.Message)
Finally
ConnectSQL.Close()
End Try
Return ConnectSQL.ConnectionString
End Function
End Class
ส่วนที่ 2
Dim Call_Data As CLASS_CALLDATA ' เรียกคลาสมาใช้งาน <------------ เรียกชื่อ Class มาใช้
--------------------------------------------
Public Sub Open_Data() <--------- ตัวเรียกใช้งาน CLASS_CALLDATA
Dim strConn As String = CLASS_CALLDATA.Con
Con_CallData = New MySqlConnection
With Con_CallData
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
' MessageBox.Show(CLASS_CALLDATA.Con) ' ทดสอบ การเชื่อมต่อ Database
End Sub