Posez votre question Signaler

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

Messages postés
6
Date d'inscription
mercredi 29 mars 2006
Dernière intervention
11 juin 2007
 - - Dernière réponse : Frosaf
Messages postés
6
Date d'inscription
mercredi 29 mars 2006
Dernière intervention
11 juin 2007
 - 11 juin 2007 à 17:23
VB.NET Posez votre question Signaler
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

Répondre au sujet

1 réponse

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Frosaf

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

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.