Sauvegarde base Access

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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 :

Citation:

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 :/

30/05/2011, 17h25
sylverio

Bonjour,

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

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:

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:

1 2 Dim cmd As IDbCommand
IDbCommand c'est quoi ?

30/05/2011, 18h11
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
30/05/2011, 19h47
lukeni2

Pouvez vous donnez le message d'erreur.

Citation:

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

et ce sur la ligne :
Code:

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:

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.

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:

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

31/05/2011, 13h31
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.
31/05/2011, 14h56
sylverio

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

Code:

Dim cmd As IDbCommand

pose problème, remplace le par :

Code:

Dim cmd as New OleDbCommand

ça devrait aller beaucoup mieux je pense !
31/05/2011, 15h24
feldi
Merci pour ton aide. ça avance ^^

J'obtiens une erreur sur la ligne
Code:

1 2 cmd.executeNonQuery
Le message d'erreur est :

Citation:

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

et pourtant j'ai bien
Code:

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 ?
31/05/2011, 15h37
sylverio

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

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

Code:

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

ok, alors :

Code:

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 !

31/05/2011, 15h57
feldi
Alors la :calim2:

Message d'erreur :

Citation:

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:

1 2 cmd.executeNonQuery
31/05/2011, 16h04
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é.
31/05/2011, 16h14
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 !
31/05/2011, 16h20
sylverio

De rien, bonne continuation !

Encore moi :aie:

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

Citation:

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

La requête qui insère les valeurs :
Code:

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:

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 ? §§§

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:

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 ? :D

Bonjour.

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

Code:

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:

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

Voir 40 message(s) de cette discussion en une page