1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

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

Signaler
Messages postés
6
Date d'inscription
mercredi 29 mars 2006
Statut
Membre
Dernière intervention
11 juin 2007
 -
Messages postés
6
Date d'inscription
mercredi 29 mars 2006
Statut
Membre
Dernière intervention
11 juin 2007
 -
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

1 réponse

Réponse 1 / 1
Messages postés
6
Date d'inscription
mercredi 29 mars 2006
Statut
Membre
Dernière intervention
11 juin 2007
g trouvé la solution!
ct ma requête ki était mal faite
Répondre Posez votre question