Problème insertion dans bdd access. Via VB express 2005 [Résolu]

Frosaf 6 Messages postés mercredi 29 mars 2006Date d'inscription 11 juin 2007 Dernière intervention - 8 juin 2007 à 17:31 - Dernière réponse : Frosaf 6 Messages postés mercredi 29 mars 2006Date d'inscription 11 juin 2007 Dernière intervention
- 11 juin 2007 à 17:23
Bonjour!
Je suis en train de développé une appli qui utilise une bdd sur access.
Mon problème est lors de l'insertion de données.
Aucun messages d'erreurs ne m'est renvoyé.
Mais les données ne sont pas insérées.
Ma connexion fonctionne.
Ma base est la bonne.
Voici le code!

Private

Sub btn_ajouter_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles btn_ajouter.Click

Try

Dim oconnexion
As
New OleDb.OleDbConnection

oconnexion.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" &
My.Application.Info.DirectoryPath &
"\BDDGestion.mdb"

Dim Res_InsCli
As
String = (
"INSERT INTO CLIENT(NOSTATUT, NOMCLI, PRECLI, ADRESSECLI, CPCLI, VILLECLI, NOTELCLI)VALUES ('" + Convert.ToString(lst_Statut.SelectedItem.GetNoStatut) +
"', '" + txt_nom.Text +
"', '" + txt_prenom.Text +
"', '" + txt_adresseCli.Text +
"', " + txt_CPcli.Text +
", '" + txt_ville.Text +
"', " + txt_NoTel.Text +
")")MessageBox.Show(Res_InsCli.ToString)

Dim inserer_Cli
As
New OleDbCommand(Res_InsCli, oconnexion)oconnexion.Open()

inserer_Cli.ExecuteNonQuery()

If inserer_Cli.ExecuteNonQuery()
ThenMessageBox.Show(

"Client " + txt_nom.Text +
" ajouté")

ElseMessageBox.Show(

"Problème lors de l'insertion")

End
If

Catch ex
As ExceptionMessageBox.Show(ex.ToString)

Finallyoconnexion.Close()

End
Try

End
SubDans mon appli la connexion est déclaré en globale.
Je fais bien le import de system.data.oledb

Par contre j'arrive a afficher des données provenant de la base.
Le code (la connexion est déclaré en globale) :

Private
Sub NouveauClient_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
MyBase.Load

Tryoconnexion.ConnectionString =

"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" &
My.Application.Info.DirectoryPath &
"\BDDGestion.mdb"oconnexion.Open()

Dim REQ_Statut
As
String = (
"select * from statut")

Dim JE_Statut
As OleDbDataReader

Dim RecupStatut
As
New OleDbCommand(REQ_Statut, oconnexion)JE_Statut = RecupStatut.ExecuteReader

While JE_Statut.Read

Dim Objetstatut
As
New ClassStatut(JE_Statut.Item(
"nostatut"), JE_Statut.Item(
"NOMstatut"))lst_Statut.Items.Add(Objetstatut)

End
While

Catch ex
As ExceptionMessageBox.Show(ex.ToString)

Finallyoconnexion.Close()

End
Try

End
Sub

Aidez moi svp. Sa commence à m'énervé! je comprend pas
Merci
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Frosaf 6 Messages postés mercredi 29 mars 2006Date d'inscription 11 juin 2007 Dernière intervention - 11 juin 2007 à 17:23
3
Merci
g trouvé la solution!
ct ma requête ki était mal faite

Merci Frosaf 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Commenter la réponse de Frosaf

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.