Microsoft Visual Studio 2019 - error The 'Microsoft.jet.OleDB.4.0' provider

[sidsid]

Hello po mga lodi, sa mga mabagsik dyan sa programming ng VS 2019, ito po error pag run ng small system na access ang db.. The 'Microsoft.jet.OleDB.4.0' provider is not registered on the local machine.'

baka meron din kau tuts ng VS 2019, medyo malayo na po kasi sa pinag aralan ko. 2012 pa ako nag graduate gusto ko i refresh ang mga natutunan ko to create lang a simple system. salamat mga lodi. godbless

 

[matt8988]

Dahil Microsoft.jet ang ginamit mong provider, expected ko na MS Access database gamit mo. Nangyari sakin yan dahil 64 bit ang ms office at for 32 bit lang ang source code ko. Kaya ginawa ko naghanap ako nang mababang version ng ms access. Mostly ms access 2007 ang gumagana dyan. Sana pareho lng ng sau , goodluck have fun.

 

[jhai_salvador]

try mong gamitin yung latest oledb provider:
example:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;
Persist Security Info=False;

more info: https://www.connectionstrings.com/access/

tapos access mo dapat gawa sa Access 2007 or latest.

then if nageerror pa rin yung provider, try mo install yung redistributable files ng ms access.
https://www.microsoft.com/en-us/download/details.aspx?id=13255

 

[MiloE23]

sir. gamit ka ng access database engine 64 or 32 bit. kung access ang db mo. sa connection mo may problem dba?
Imports System.Data.OleDb
Module dbucvConnect
Public ConnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\dbUCVHotel.mdb;Jet OLEDBatabase Password=hmsucv"
Public con As New OleDbConnection(ConnStr)
Public sID, PF As String
Public TRec, RID As Integer
Public RecItem, Grid, GridItem, EventTime, EventID, EventName, EventDesc
Public com As OleDbCommand
Function connection()
If con.State = ConnectionState.Closed Then
con.Open()
End If
Return True
End Function
Function ExecuteSQLStatement(ByVal sqlStatement As String, ByVal dg As DataGridView)
Dim da As New OleDbDataAdapter
Dim dset As New DataSet
da = New OleDbDataAdapter(sqlStatement, con)
da.Fill(dset)
dg.DataSource = dset.Tables(0).DefaultView
Return True
End Function
Function AEDCommand(ByVal oledbStr As String)
Dim comm As New OleDbCommand
comm.Connection = con
comm.CommandText = oledbStr
comm.ExecuteNonQuery()
Return True
End Function

Function populate(ByVal DA As OleDbDataAdapter, ByVal DSet As DataSet, ByVal Stroledb As String, ByVal strTable As String)
DA = New OleDbDataAdapter(Stroledb, con)
DSet = New DataSet
DA.Fill(DSet, strTable)
TRec = DSet.Tables(strTable).Rows.Count
Grid = DSet.Tables(strTable).Rows
RecItem = DSet.Tables(strTable)
Return True
End Function
Public Function combofillings(ByVal SQLString As String, ByVal myComboBox As ComboBox, ByVal sDisplayMember As String)
Dim OLEDBConn As New OleDb.OleDbConnection(ConnStr)
Dim OLEDBDataADapter As New OleDb.OleDbDataAdapter
Dim myDataSet As New DataSet
OLEDBConn.Open()
Try
OLEDBDataADapter.SelectCommand = New OleDb.OleDbCommand(SQLString, OLEDBConn)
OLEDBDataADapter.Fill(myDataSet)
myComboBox.DataSource = myDataSet.Tables(0)
myComboBox.DisplayMember = sDisplayMember
Catch ex As Exception

End Try
OLEDBDataADapter.Dispose()
myDataSet.Dispose()
OLEDBConn.Dispose()
Return True
End Function
Public Function Filldatagrid(ByVal SqlString As String, ByVal myDatagrid As DataGridView)
Dim oledbCon As New OleDb.OleDbConnection(ConnStr)
Dim OleAdapter As New OleDb.OleDbDataAdapter()
Dim myDataset As New DataSet()
oledbCon.Open()
Try
OleAdapter.SelectCommand = New OleDb.OleDbCommand(SqlString, oledbCon)
OleAdapter.Fill(myDataset)
myDatagrid.DataSource = myDataset.Tables(0)
Catch ex As Exception
End Try
oledbCon.Close()
OleAdapter.Dispose()
myDataset.Dispose()
Return True
End Function
End Module



download ka ng accessdatabaseengine sa site ng microsoft.