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