{SQL Server}

--base de donne
create database test
--la table
create table table1
(
IdPresonne int Primary key,
NomPersonne varchar(40),
PrenomPersonne varchar(40)
)

--les enregistrements
insert into table1(IdPresonne,NomPersonne,PrenomPersonne) values('1','aa','aa')
insert into table1(IdPresonne,NomPersonne,PrenomPersonne) values('2','bb','bb')
insert into table1(IdPresonne,NomPersonne,PrenomPersonne) values('3','cc','cc')

Imports System.Data.SqlClient  '  l''espace du nom

 Dim con As New SqlConnection("Initial Catalog=test;Data Source=. ;Integrated Security=true")


 Public Sub Ajouter(ByVal id As String, ByVal nom As String, ByVal prenom As String)
        Try
            Dim ds As New DataSet
            Dim da As SqlDataAdapter
            Dim dr As DataRow
            Dim cmd As New SqlCommandBuilder()

            ds.Clear()
            da = New SqlDataAdapter("select IdPresonne,NomPersonne,PrenomPersonne from table1 where IdPresonne ='" & id & "'", con)
            da.Fill(ds, "table1")

            If ds.Tables("table1").Rows.Count <> 0 Then
                MsgBox("ID Personne deja exester esseyer un autre")
                Exit Sub
            Else
                dr = ds.Tables("table1").NewRow()
                dr("IdPresonne") = id
                dr("NomPersonne") = nom
                dr("PrenomPersonne") = prenom
                ds.Tables("table1").Rows.Add(dr)
                cmd = New SqlCommandBuilder(da)
                da.Update(ds.Tables("table1"))
                MsgBox("Personne Bien ajouter")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


 Public Sub supprimer(ByVal id As String)
        Try
            Dim ds As New DataSet
            Dim da As SqlDataAdapter
            Dim cmd As New SqlCommandBuilder()

            ds.Clear()
            da = New SqlDataAdapter("select IdPresonne from table1 where IdPresonne ='" & id & "'", con)
            da.Fill(ds, "table1")

            If ds.Tables("table1").Rows.Count = 0 Then
                MsgBox("ID Personne Introuvable")
                Exit Sub
            Else
                ds.Tables("table1").Rows(0).Delete()
                cmd = New SqlCommandBuilder(da)
                da.Update(ds.Tables("table1"))
                MsgBox("Personne Bien Supprimer")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


 Public Sub modifier(ByVal id As String, ByVal nom As String, ByVal prenom As String)
        Try
            Dim ds As New DataSet
            Dim da As SqlDataAdapter
            Dim cmd As New SqlCommandBuilder()

            ds.Clear()
            da = New SqlDataAdapter("select IdPresonne,NomPersonne,PrenomPersonne from table1 where IdPresonne ='" & id & "'", con)
            da.Fill(ds, "table1")


            If ds.Tables("table1").Rows.Count = 0 Then
                MsgBox("ID Personne Introuvable")
                Exit Sub
            Else
                ds.Tables("table1").Rows(0).Item("NomPersonne") = nom
                ds.Tables("table1").Rows(0).Item("PrenomPersonne") = prenom
                cmd = New SqlCommandBuilder(da)
                da.Update(ds.Tables("table1"))
                MsgBox("Personne Bien Modifier")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try