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

Question

Posez votre question Signaler

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

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

Votre réponse

Répondre au sujet

Posez votre question

Accepted Answer

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é 72 internautes ce mois-ci

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

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

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