Bonjour je suis actuellement étudiant en informatique et je débute en stage sur le vb.net j'ai un problème lors de l'update vers ma base de donnée je vous laisse donc une partie de mon code et je remercie d'avances toutes les réponses qui pourraient venir.
/////////////////////////////////////////////////
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= d:\basedanalyse.mdb;"
ObjetConnection = New OleDbConnection
ObjetConnection.ConnectionString = strConn
ObjetConnection.Open()
'exécution de la commande(cmd),
'du dataadapter (dta),
'du dataset(dts),
'de la datatable (dtt)
'sql=>cmd=>dta
'cnx=>cmd
'dta=>dts=>dtt
strSql = "select CLIENT.* from CLIENT"
ObjetCommand = New OleDbCommand(strSql)
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
'chargement du DataSet à partir du DataAdapter
ObjetDataAdapter.Fill(ObjetDataSet, "CLIENT")
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
'chargement de la DataTable à partir du DataSet
ObjetDataTable = ObjetDataSet.Tables("CLIENT")
Me.numclient.Text = ObjetDataTable.Rows(RowNumber).Item("N°Client").ToString
Me.nomclient.Text = ObjetDataTable.Rows(RowNumber).Item("Nom Client").ToString
Me.addclient.Text = ObjetDataTable.Rows(RowNumber).Item("Adresse Principale").ToString
Me.cpclient.Text = ObjetDataTable.Rows(RowNumber).Item("Code Postal").ToString
Me.villeclient.Text = ObjetDataTable.Rows(RowNumber).Item("Ville").ToString
Me.telclient.Text = ObjetDataTable.Rows(RowNumber).Item("Telephone").ToString
Me.faxclie.Text = ObjetDataTable.Rows(RowNumber).Item("Fax").ToString
'Item peut avoir en paramètre le nom de la colonne ou sont index
'affichage des données dans le datagrid
DataGrid1.SetDataBinding(ObjetDataSet, "CLIENT")
End Sub
Private Sub cmdmodifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmodifier.Click
Try
'récupération de la ligne dans le datarow
ObjetDataRow = ObjetDataSet.Tables("CLIENT").Rows(RowNumber)
'modification des donées
ObjetDataRow("N°Client") = Me.numclient.Text
ObjetDataRow("Nom Client") = Me.nomclient.Text
ObjetDataRow("Adresse principale") = Me.addclient.Text
ObjetDataRow("Code postal") = Me.cpclient.Text
ObjetDataRow("Ville") = Me.villeclient.Text
ObjetDataRow("Telephone") = Me.telclient.Text
ObjetDataRow("Fax") = Me.faxclie.Text
'création et exécution du commandbuilder
'pour mettre à jour le DataAdapter
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
'mise à jour des données du DataAdapter
'à partir du commandbuilder
ObjetDataAdapter.Update(ObjetDataSet, "CLIENT")
'on vide le dataset pour le recréer avec
'les nouvelles données
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "CLIENT")
ObjetDataTable = ObjetDataSet.Tables("CLIENT")
'mise à jour du datagrid
DataGrid1.SetDataBinding(ObjetDataSet, "CLIENT")
'retour au début du fichier
RowNumber = 0
'affichage des données dans les texbox
Me.numclient.Text = ObjetDataTable.Rows(RowNumber).Item("N°Client").ToString
Me.nomclient.Text = ObjetDataTable.Rows(RowNumber).Item("Nom Client").ToString
Me.addclient.Text = ObjetDataTable.Rows(RowNumber).Item("Adresse Principale").ToString
Me.cpclient.Text = ObjetDataTable.Rows(RowNumber).Item("Code postal").ToString
Me.villeclient.Text = ObjetDataTable.Rows(RowNumber).Item("Ville").ToString
Me.telclient.Text = ObjetDataTable.Rows(RowNumber).Item("Telephone").ToString
Me.faxclie.Text = ObjetDataTable.Rows(RowNumber).Item("Fax").ToString
MessageBox.Show("Les données sont modifiées !", "Modification...", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
///////////////////////////////////////////////////////////////////////
J'ai donc d'appres le message box error un problème de syntaxe dans mon upload mais je ne sais vraiment pas d'ou cela peut venir merci de votre aide :)