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.

[sylverio]

tu avais dit que ton code planté au niveau de l'open, donc avant l'utilisation de ton cmd. Bon quoi qu'il en soit essaye ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim connexion As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\BDDContrat.accdb;Persist Security Info=False")
                    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')")
dim RequeteSQL as string= "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
                        Dim DataA As New OleDbDataAdapter(RequeteSQL, connexion)
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try

[feldi]

Oui j'avais une erreur à ce niveau mais j'ai réussi à la résoudre (cf mon edit de hier aprèm).
Je vais tester ta solution !

Edit : Faudrait pas rajouter quelque chose pour qu'il exécute la requête ? Parce qu'avec ton code, j'ai plus d'erreur mais l'enregistrement ne se fait pas.
Sauf que ExecuteNonQuery() ne fonctionne pas et il n'y a pas de Execute() ou quelque chose s'en rapprochant.

[sylverio]

oui en effet je devais pas être réveillé, et en fait oui je pense que ta déclaration pose problème :

Code :

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

Dim cmd As IDbCommand

pose problème, remplace le par :

Code :

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

Dim cmd as New OleDbCommand

ça devrait aller beaucoup mieux je pense !

[feldi]

Merci pour ton aide. ça avance ^^

J'obtiens une erreur sur la ligne

Code :

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

1
2
 
cmd.executeNonQuery

Le message d'erreur est :

La propriété Connection n'a pas été initialisée

et pourtant j'ai bien

Code :

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

1
2
 
Dim connexion As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BDDContrat.mdb;Persist Security Info=False")

L'initialisation se fait bien par le mot clé "new" n'est ce pas ?

[sylverio]

oui oui pour le new sur ta variable connexion,par contre tu as fais un new aussi sur ta variable cmd?

[feldi]

Oui, j'ai fais exactement comme tu m'a conseillé.
Je remets le code modifié :

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
 
Try
                    Dim connexion As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BDDContrat.mdb;Persist Security Info=False")
                    Dim cmd As New OleDbCommand
                    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')"
                    ' Dim RequeteSQL As String = "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()
                        'Dim DataA As New OleDbDataAdapter(RequeteSQL, connexion)
 
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try

[sylverio]

ok, alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Try
                    Dim connexion As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BDDContrat.mdb;Persist Security Info=False")
                     Dim RequeteSQL As String = "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')"
 
                    connexion.Open()
                    Dim cmd As New OleDbCommand(RequeteSQL,connexion)
 
                    If connexion.State = ConnectionState.Open Then
                        cmd.ExecuteNonQuery()                        
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try

ça devrait marcher !

[feldi]

Alors la

Message d'erreur :

L'opération doit utiliser une requête qui peut être mise à jour.

Faut que je le prenne comment ? cette manière de faire fonctionne uniquement avec les requêtes SQL update ? (ça m'étonnerait mais bon...)
Toujours sur la ligne

Code :

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

1
2
 
cmd.executeNonQuery

[sylverio]

bizarre, tu utilises ta fonction dans une boucle? Essaye de mettre ta base de données ailleurs qu'à la racine de C:, surtout si tu es sur un vista ou seven la racine est protégé.

[feldi]

Grâce à toi j'avance. En effet, je suis sous W7 et il a pas l'air d'apprécier la racine de C:
Bref je l'ai déplacé et la j'ai un problème de nombre de champs différents entre la BDD et le script.
Je devrais réussir à le faire seul ça ^^

Je te remercie !

[sylverio]

De rien, bonne continuation !

[feldi]

Encore moi

J'ai un soucis au niveau du passage de variables de mon programme à ma base :/
Le message d'erreur :

Type de données incompatible dans l'expression du critère

La requête qui insère les valeurs :

Code :

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

1
2
 
Dim RequeteSQL As String = "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')"

avec ce jeu d'essai :
nom : robert
prenom : jean
adresse : 3 rue de Paris
commune : machin
code postal : 55555
tel fixe : 0111111111
tel port : 0111111111
mail : robert.jean@truc.fr
interlocuteur : Georges

La structure de ma base de données :

numClient de type numéroAuto
nomClient de type texte
prenomClient de type texte
raisonSocialeClient de type texte
adresseClient de type texte
communeClient de type texte
codePostalClient de type texte
numTelFixe de type texte
numTelPort de type texte
adresseMail de type texte
nomInterlocuteur de type texte

Donc je pense à deux choses :

• le numéro auto incrémenté nécessite quelque chose pour être enregistré

• 
  le type d'un des éléments n'est pas correct mais à part du texte, je ne vois pas quoi mettre d'autre

Je travaille avec Access 2007 pour info.

Merci à ceux qui auront des idées !

Edit : j'ai essayé en mettant un champ texte partout sauf pour le numéro auto-incrémenté, même message d'erreur.


Edit 2 : ce programme va me rendre fou ! Je le traine depuis l'année dernière et il fonctionne toujours pas.

J'ai modifié la requête =>

Code :

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

1
2
3
 
Dim RequeteSQL As String
                    RequeteSQL = "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 & "')"

Alors 2 résultats :

• je mets ' ' en premier champ pour désigner le numéro auto incrément => message d'erreur de tout à l'heure

• je mets txt_nom.text en premier champ => message d'erreur : le nombre de valeurs ne coïncident pas. :/

Que faire ? §§§

[feldi]

Je n'édit pas mon précédent message parce que j'ai trouvé un début de solution et que j'ai besoin d'aide pour la finaliser (en agissant ainsi, j'espère avoir de l'aide).

Finalement, je préfère gérer le numéro auto incrémenté grâce au programme et non plus avec Access (trop galère).
Avancement du projet :

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
 
Try
                    Dim connexion As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=K:\AP\AP 1 - VB.net contrat électrique\BDDContrat.mdb;Persist Security Info=False")
                    Dim nombre As Integer
                    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')"
                    Dim RequeteSQL As String
                    Dim requete2 As String
                    requete2 = "Select numClient From Client"
 
                    Dim commande As New OleDbCommand(requete2, connexion)
                    commande.ExecuteNonQuery()
                    nombre = numClient + 1
 
                    RequeteSQL = "Insert Into client Values ('" & nombre & "','" & 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 & "')"
                    Dim cmd As New OleDbCommand(RequeteSQL, connexion)
                    cmd.ExecuteNonQuery()
                    'Dim DataA As New OleDbDataAdapter(RequeteSQL, connexion)
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try

J'ai donc ajouté une variable nombre qui servira de nombre à incrémenté à chaque nouvel ajout (variable nombre).
Je passe donc la variable nombre dans ma requête et l'enregistrement fonctionne !
Par contre, la variable nombre n'ayant pas de valeur (fixée à 0 par vb donc), je ne peux enregistrer qu'une fois. :/

Je dois donc récupérer la valeur du nombre numClient de ma base et fixer la valeur de nombre à celle du numClient + 1.

Mais je ne sais pas comment récupérer cette valeur avec vb.net.

Un coup de main ?

[AcidLines]

Bonjour.

Rien de galère avec le numéro Automatique d'access.
Essaye de modifier ta requête principale.

Code :

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

1
2
 
INSERT INTO CLIENT(-Liste de tes champs à remplir excepter ta PRIMARY KEY en auto increment-) VALUES(-Liste des valeurs à insérer dans le meme ordre que les champs définis-)

Ci-dessous un petit bout de code de test que j'ai fais.

Table T_TEST01
idtest : numéroAuto
libelle : texte

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
 
Imports System.Data.OleDb
Public Class Entreaide
Private Sub b_ajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_ajout.Click
Dim CNX As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\0129965A\Bureau\Entreaide.mdb")
Dim maCmd As OleDbCommand
Dim sql As String
 
Try
sql = "INSERT INTO T_TEST01(libelle) VALUES ('" & Replace(tbx_lib.Text, "'", "''") & "')"
maCmd = New OleDbCommand(sql, CNX)
CNX.Open()
maCmd.ExecuteNonQuery()
CNX.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class