ace.oledb 14.0 niet geregistreerd

[satdirk]

Bij het maken van een oef. van op het net krijg ik deze foutmelding.
De Microsoft.ACE.OLEDB.14.0-provider is niet geregistreerd op de lokale computer.

Nu ben ik al 2 dagen aan het zoeken maar zonder resultaat er is wel iets van te vinden op het net maar niets helpt mij verder.
Op mijn laptop staat windows 7 met 64 bits besturing en office 2010 met 32 bits besturing.

Dit is mijn code en de fout word gegeven op lijn 29.

Imports Access = Microsoft.Office.Interop.Access

Imports System.Data

Imports System.Data.OleDb
Public Class Form1
    Dim provider As String

    Dim dataFile As String

    Dim connString As String

    Dim myConnection As OleDbConnection = New OleDbConnection
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        provider = "Provider=Microsoft.ACE.OLEDB.14.0;Data Source="

        dataFile = "C:\vbdbaccess\kl.accdb"

        connString = provider & dataFile

        myConnection.ConnectionString = connString



        myConnection.Open()

        Dim str As String

        str = "insert into Items ([A], [B], [C], [D], [E]) values (?, ?, ?, ?, ?)"

        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)

        cmd.Parameters.Add(New OleDbParameter("A", CType(TextBox1.Text, String)))

        cmd.Parameters.Add(New OleDbParameter("B", CType(TextBox2.Text, String)))

        cmd.Parameters.Add(New OleDbParameter("C", CType(TextBox3.Text, String)))

        cmd.Parameters.Add(New OleDbParameter("D", CType(TextBox4.Text, String)))

        cmd.Parameters.Add(New OleDbParameter("E", CType(TextBox5.Text, String)))

        Try

            cmd.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

 

[Doofenshmirt]

Denk dat deze het wel doet , 12 ipv 14

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source="

 

[Doofenshmirt]

Deze code gebruik ik , is ongeveer het zelfde.

Heb ook windows 7 en office 2010 32bits

Imports Access = Microsoft.Office.Interop.Access

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Dim provider As String

    Dim dataFile As String

    Dim connString As String

    Dim myConnection As OleDbConnection = New OleDbConnection

        
 

 
    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="

        dataFile = "D:\som\Week.accdb"

        connString = provider & dataFile

        myConnection.ConnectionString = connString



        myConnection.Open()

        Dim str As String

        str = "insert into Tabel1 ([Datum], [Plaats]) values (?, ?)"

        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)

        cmd.Parameters.Add(New OleDbParameter("Datum", CType(Form2.TextBox1.Text, String)))

        cmd.Parameters.Add(New OleDbParameter("Plaats", CType(TextBox2.Text, String)))

         
        
        Try

            cmd.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        TextBox1.Clear()

        TextBox2.Clear()

                myConnection.Close()
        

    End Sub

 

[satdirk]

Denk dat deze het wel doet , 12 ipv 14

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source="

Bedankt Het werkt.

Nu even dit het is toch niet zo logisch maar op de pc staan ACE.OLEDB.14 en je moet in de code 12 plaatsen ipv 14 , maar één ding is zeker dit vergeet ik nooit meer.