THEREALKILLER
Messages postés88Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention27 mars 2006 11 janv. 2004 à 14:22
Un pe de code
Declaration
Private objConnection As New OleDb.OleDbConnection
Private AdapTContact As New OleDbDataAdapter("SELECT client.* FROM client", objConnection)
Private DtSetm As New DataSet()
Private objDataRow As DataRow
Private objCommandBuilder As New OleDbCommandBuilder(AdapTContact)
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
With DtSetm
' Création de la nouvelle ligne
objDataRow = DtSetm.Tables("client").NewRow()
'affectation des valeurs
objDataRow("num_client") = DtSetm.Tables.Item(0).Rows.Count + 1
objDataRow("nom") = Me.nom.Text
objDataRow("prenom") = Me.nom.Text
objDataRow("adresse") = Me.nom.Text
objDataRow("cp") = Me.nom.Text
objDataRow("ville") = Me.nom.Text
objDataRow("code") = Me.nom.Text
objDataRow("et") = Me.nom.Text
objDataRow("int") = Me.nom.Text
objDataRow("esc") = Me.nom.Text
objDataRow("tel") = Me.nom.Text
objDataRow("port") = Me.nom.Text
objDataRow("fax") = Me.nom.Text
' Ajout de la ligne à la table
.Tables("client").Rows.Add(objDataRow)