Voici le code source de la forms d'ajout d'un nouveau marché en sachant que j'ai une base de données "Marches.mdb" et une table "Marche" avec les libellés suivants : Num_marche, Lib_marche et Montant_marche.
-------------------------------------------------------------------------
Imports System.Data.DataTable
Imports System.Data.OleDb.OleDbDataAdapter
Imports System
Imports System.Data.OleDb.OleDbConnection
Imports Microsoft.Win32.RegistryKey
Public Class Frmajoutm
Private strConn As String
Private ObjetConnection As OleDbConnection
Private ObjetCommand As OleDbCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;""Data Source=C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb;"
If Txtnumm.Text = "" Or Txtlibm.Text = "" Or Txtmontantm.Text = "" Then
MsgBox("Vous devez saisir des valeurs non nulles.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical)
Exit Sub
End If
ObjetConnection = New OleDbConnection
ObjetConnection.ConnectionString = strConn
ObjetConnection.Open() <-------------- A ce niveau j'ai le msg "Pilote ISAM Introuvable"
ObjetCommand = New OleDbCommand
ObjetCommand.Connection = ObjetConnection
ObjetCommand.CommandType = CommandType.Text
ObjetCommand.CommandText = "insert into Marche [Num_marche, Lib_marche, Montant_marche] values ('txtnumm.text','txtlibm.text','txtmontantm.text')"
ObjetCommand.ExecuteNonQuery()
ObjetConnection.Close()
MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
Me.Close()
Frmprincipale.Show()
End Sub
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
Me.Close()
Frmprincipale.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Txtnumm.Text = ""
Txtlibm.Text = ""
Txtmontantm.Text = ""
End Sub
Private Sub Txtmontantm_lostfocus()
If Val(Txtmontantm.Text) = 0 Then
Txtmontantm.Text = ""
MsgBox("Vous devez saisir une valeur monétaire.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
Exit Sub
End If
Txtmontantm.Text = Format(Val(Txtmontantm.Text), 3)
End Sub
Private Sub Frmajoutm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO : cette ligne de code charge les données dans la table 'MarchesDataSet.Marche'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.MarcheTableAdapter.Fill(Me.MarchesDataSet.Marche)
End Sub
End Class
---------------------------------------------------------------
Que dois je faire pour réparer cette erreur? SVP Aidez moi.
PS : Je travaille avec VB 2005 express.
Merci
Partager