Discussion :

[feldi]

Bonjour,

pour finir mon projet, je dois enregistrer des informations dans une base Access (base Access 2007) depuis mon programme vb.net (visual studio 2008).

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Imports System.Diagnostics
Imports System.IO
Imports System.IO.IOException
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Data.Sql
 
Public Class FicheCollecte
   Private Sub btn_valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_valider.Click
    Try
                    Dim connexion As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\BDDContrat.accdb;Persist Security Info=False")
                    Dim cmd As IDbCommand
                    connexion.Open()
                    'Dim insertion As SqlCommand = New SqlCommand("Insert Into client Values ('','txt_nom.text','txt_prenom.text','txt_raisonSociale.text','txt_adresse.text','txt_commune.text','txt_codePostal.text', 'txt_telFixe.text','txt_telPort.text','txt_mail.text', 'txt_interlocuteur.text')")
                    cmd.CommandText = "Insert Into client Values ('','txt_nom.text','txt_prenom.text','txt_raisonSociale.text','txt_adresse.text','txt_commune.text','txt_codePostal.text', 'txt_telFixe.text','txt_telPort.text','txt_mail.text', 'txt_interlocuteur.text')"
                    If connexion.State = ConnectionState.Open Then
                        cmd.ExecuteNonQuery()
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
 
End sub

Le script plante au niveau de connexion.open.
Le message d'erreur :

System.InvalidOperationException {"Le fournisseur 'Microsoft.ACE.OLEDB.12.0' n'est pas inscrit sur l'ordinateur local."}

Donc ma question => faut-il rajouter des éléments, installer le fournisseur ACE () ?

J'ai du louper un truc en me renseignant sur divers sujets :/

[sylverio]

Bonjour,

essaye avec ..."Provider=Microsoft.Jet.OLEDB.4.0;...

[feldi]

Même problème, il a changer le libellé de l'erreur par Jet.OleDB mais sinon c'est la même :/


Edit : J'ai réussi à passer cette difficulté. J'ai du recompiler le projet en x86 étant donné que Jet.OleDB ne supporte pas le x64 :/

Maintenant j'ai un problème de référence d'objet sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cmd.CommandText = "Insert Into client Values ('','txt_nom.text','txt_prenom.text','txt_raisonSociale.text','txt_adresse.text','txt_commune.text','txt_codePostal.text', 'txt_telFixe.text','txt_telPort.text','txt_mail.text', 'txt_interlocuteur.text')"

J'utilise ça que j'ai trouvé sur un autre sujet mais j'ai un doute la dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim cmd As IDbCommand

IDbCommand c'est quoi ?

[sylverio]

Et tu as bien access d'installer sur ton poste? Sinon essaye en installant ce Runtime : http://www.microsoft.com/downloads/f...b-84b371ede16d

[lukeni2]

Pouvez vous donnez le message d'erreur.

[feldi]

La référence d'objet n'est pas définie à une instance d'un objet.

et ce sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cmd.CommandText = "Insert Into client Values ('','txt_nom.text','txt_prenom.text','txt_raisonSociale.text','txt_adresse.text','txt_commune.text','txt_codePostal.text', 'txt_telFixe.text','txt_telPort.text','txt_mail.text', 'txt_interlocuteur.text')"

donc je pense que ça vient du cmd que j'ai déclaré comme tel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim cmd As IDbCommand

en reprenant cette déclaration d'un autre sujet sur développez.com
Seulement, je ne sais pas ce qu'est IDbCommand, donc je suppose que l'erreur vient de la.