Imports System.Data.OleDb Public Class Form2 'Declaration Des objets Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TESTIMG.mdb;Persist Security Info=False") Dim Comm As New OleDbCommand("Select * from clients", Con) Dim DA As New OleDbDataAdapter(Comm) Dim DST As New DataSet Dim CommB As New OleDbCommandBuilder(DA) Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'chargement du dataset DA.Fill(DST, "Clients") Dim i As Integer = DST.Tables("Clients").Rows.Count MsgBox(i & " lignes") End Sub Private Sub Cmd_Ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Ajouter.Click 'creation d'une nouvelle ligne Dim row As DataRow row = DST.Tables("Clients").NewRow 'affectation des valeurs a la ligne row.BeginEdit() row.Item(0) = TextBox1.Text row.Item(1) = TextBox2.Text row.Item(2) = TextBox3.Text row.Item(3) = DateTimePicker1.Text row.EndEdit() Try 'ajout de la nouvelle ligne au DATASET DST.Tables("Clients").Rows.Add(row) 'Mise a jour de la DB DA.Update(DST, "Clients") MsgBox("Ajout effectué") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.