Whitelynx_QC
Messages postés18Date d'inscriptionmardi 30 novembre 2004StatutMembreDernière intervention20 avril 2006 30 déc. 2004 à 20:33
Voici en odre les étapes que mon prog fait
Il plante lors de l'enregistrement
-----------
Private Sub bt_Enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Enregistrer.Click
Assignation()
Affichage()
Tel.Enregistrer()
MsgBox("Enregistrement réussi", MsgBoxStyle.Exclamation)
End Sub
----------------
Public Sub Assignation()
'Assigne les valeur des textboxs aux DataSet
If boModif Then 'Si ouvert en mode Modification
If boPossible Then
'Impossible quand une suppression n'a pas eu lieu avant, puisque les valeurs précédentes ont été effacé
'Possible s'il n'y a pas eu de modification préceédemment
With Tel.Dataset_Individu.Tables("Individus").Rows(i)
'Assigne les valeurs des textbox au Dataset de la classe Telephone afin de faire une mise à jour
.Item(1) = txt_nom.Text
.Item(2) = txt_prenom.Text
.Item(3) = txt_tel1.Text
.Item(4) = txt_tel2.Text
.Item(5) = txt_tel3.Text
.Item(6) = txt_adresse.Text
.Item(7) = cb_ville.Text
.Item(8) = txt_codepostal.Text
.Item(9) = DTP_date.Value.ToShortDateString
.Item(10) = cb_categorie.Text
.Item(11) = txt_email.Text
.Item(12) = txt_note.Text
.Item(13) = txt_path.Text
End With
If txt_path.Text <> "" Then
PB_photo.Image = Image.FromFile(txt_path.Text)
End If
DG_nom.Refresh()
End If
End If
End Sub
----------------------------
Public Sub Affichage()
Try 'Assigne les valeur du dataSet au objet de la form (textbox, combobox, etc)
txt_nom.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(1)
txt_prenom.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(2)
txt_tel1.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(3)
txt_tel2.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(4)
txt_tel3.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(5)
txt_adresse.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(6)
cb_ville.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(7)
txt_codepostal.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(8)
DTP_date.Value = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(9)
cb_categorie.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(10)
lkbl_email.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(11)
txt_email.Text = lkbl_email.Text
txt_note.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(12)
txt_path.Text = Tel.Dataset_Individu.Tables("Individus").Rows(DG_nom.CurrentRowIndex).Item(13)
PB_photo.Image = Image.FromFile(txt_path.Text)
Catch ex As Exception
End Try
End Sub
--------
À partir de la classe Telephone.......
Public Sub Enregistrer()
Try
cmdBuilder.RefreshSchema()