(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام 
  ارجو من الله ومنكم مساعدتي  . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد  
مع العلم اني اشغل على قاعدة بيانات اكسس .
 
قمت باشاء فورم 3 لتعديل البينات  وقمت بنساء فورم 4 للادراج او إضافة سجل جديد

---

كود :

Public Class Form2

   Dim connectionstring As String

   Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb;    ")
   Sub New()
       InitializeComponent()

       Dim da As New OleDbDataAdapter(" select * from table1     ", con)
       Dim dt As New DataTable()


       Dim com As New OleDbCommand("select * from table1")


       Dim ds As New DataSet


   End Sub

(16-03-19, 11:14 PM)Adil Idabdellah كتب : اخي هدا إجراء للإضافة والتعديل والحدف


 Public Sub _RunCommand(str As String)
        If (conn.State = ConnectionState.Closed) Then conn.Open()
        Dim cmd As New OleDbCommand(str.ToString, conn)
        cmd.CommandText = str
        cmd.ToString()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub

و هدا إجراء لمسح txbox مربعات النصوص

 Public Sub _Claertxtbox(OBJ As Object)
        For Each ctrl As Control In OBJ.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
وهدا

(19-03-19, 11:44 AM)anis كتب :

(16-03-19, 11:14 PM)Adil Idabdellah كتب : اخي هدا إجراء للإضافة والتعديل والحدف


 Public Sub _RunCommand(str As String)
        If (conn.State = ConnectionState.Closed) Then conn.Open()
        Dim cmd As New OleDbCommand(str.ToString, conn)
        cmd.CommandText = str
        cmd.ToString()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub

و هدا إجراء لمسح txbox مربعات النصوص

 Public Sub _Claertxtbox(OBJ As Object)
        For Each ctrl As Control In OBJ.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
وهدا

شكرا  استاذي الفاضل لكن في مشكلة ظهرت عندي . أولا انا أقوم بتحديث  البيانات  و تسجيل جديد  من فورم اخر

(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام 
  ارجو من الله ومنكم مساعدتي  . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد  
مع العلم اني اشغل على قاعدة بيانات اكسس .
 
قمت باشاء فورم 3 لتعديل البينات  وقمت بنساء فورم 4 للادراج او إضافة سجل جديد

---

كود :

Public Class Form2

   Dim connectionstring As String

   Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb;    ")
   Sub New()
       InitializeComponent()

       Dim da As New OleDbDataAdapter(" select * from table1     ", con)
       Dim dt As New DataTable()


       Dim com As New OleDbCommand("select * from table1")


       Dim ds As New DataSet


   End Sub

---

(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام 
  ارجو من الله ومنكم مساعدتي  . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد  
مع العلم اني اشغل على قاعدة بيانات اكسس .
 
قمت باشاء فورم 3 لتعديل البينات  وقمت بنساء فورم 4 للادراج او إضافة سجل جديد

---

كود :

Public Class Form2

   Dim connectionstring As String

   Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb;    ")
   Sub New()
       InitializeComponent()

       Dim da As New OleDbDataAdapter(" select * from table1     ", con)
       Dim dt As New DataTable()


       Dim com As New OleDbCommand("select * from table1")


       Dim ds As New DataSet


   End Sub

وكما هو مبين لديكم اساتذتي الكرام  لديا الكثير من التاكست بوكس  وكلها باللغة العربية

(22-03-19, 10:52 PM)anis كتب :

(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام 
  ارجو من الله ومنكم مساعدتي  . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد  
مع العلم اني اشغل على قاعدة بيانات اكسس .
 
قمت باشاء فورم 3 لتعديل البينات  وقمت بنساء فورم 4 للادراج او إضافة سجل جديد

---

كود :

Public Class Form2

   Dim connectionstring As String

   Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb;    ")
   Sub New()
       InitializeComponent()

       Dim da As New OleDbDataAdapter(" select * from table1     ", con)
       Dim dt As New DataTable()


       Dim com As New OleDbCommand("select * from table1")


       Dim ds As New DataSet


   End Sub

---

(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرام 
  ارجو من الله ومنكم مساعدتي  . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد  
مع العلم اني اشغل على قاعدة بيانات اكسس .
 
قمت باشاء فورم 3 لتعديل البينات  وقمت بنساء فورم 4 للادراج او إضافة سجل جديد

---

كود :

Public Class Form2

   Dim connectionstring As String

   Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb;    ")
   Sub New()
       InitializeComponent()

       Dim da As New OleDbDataAdapter(" select * from table1     ", con)
       Dim dt As New DataTable()


       Dim com As New OleDbCommand("select * from table1")


       Dim ds As New DataSet


   End Sub

وكما هو مبين لديكم اساتذتي الكرام  لديا الكثير من التاكست بوكس  وكلها باللغة العربية

السلام عليكم اخواني الكرام . ارجو بحكم خبراتكم مساعدتي على تخطي هذه المشكلة

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

(22-03-19, 11:15 PM)anis كتب :

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .

---

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .

(29-03-19, 09:05 PM)anis كتب :

(22-03-19, 11:15 PM)anis كتب :

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .

---

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .

السلام عليكم اخي استشارة فنية  ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'

---

PHP كود :

 Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click


        Dim com As New OleDb.OleDbCommand(" update Table1 set nom = @nom , prenom = @prenom , date_de_naissance = @date_de_naissance , lieu_de_naissance = @lieu_de_naissance , sex = @sex , age = @age , numero_passport = @numero_passport , date_validation = @date_validation , date_expired = @date_expired , cin = @cin , numero_cin = @numero_cin , autre_nationalite = @autre_nationalite , nom_pere = @nom_pere , nom_grand_pere = @nom_grand_pere , nom_prenom_mere = @nom_prenom_mere , profession = @profession , qualite = @qualite , email = @email , adresse_uae = @adresse_uae , tel_uae = @tel_uae , adresse_tn = @adresse_tn , tele_tn = @tele_tn , etat_civil = @etat_civil , nom_prenom_epou = @nom_prenom_epou , nationalite_epou = @nationalite_epou , validation = @validation , expired = @expired , remarque = @remarque  where id = @id ", con)
        com.Parameters.AddWithValue(" @nom",  NomTextBox.Text )
        com.Parameters.AddWithValue(" @prenom", PrenomTextBox.Text)
        com.Parameters.AddWithValue(" @date_de_naissance", Date_de_naissanceDateTimePicker.Value)
        com.Parameters.AddWithValue("  @lieu_de_naissance", Lieu_de_naissanceTextBox.Text)
        com.Parameters.AddWithValue(" @sex", SexComboBox.Text)
        com.Parameters.AddWithValue(" @age", AgeTextBox.Text)
        com.Parameters.AddWithValue(" @numero_passport", Numero_passportTextBox.Text)
        com.Parameters.AddWithValue(" @date_validation", Date_validationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @date_expired", Date_expiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @cin", CinComboBox.Text)
        com.Parameters.AddWithValue(" @numero_cin", Numero_cinTextBox.Text)
        com.Parameters.AddWithValue(" @autre_nationalite", Autre_nationaliteComboBox.Text)
        com.Parameters.AddWithValue(" @nom_pere", Nom_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_grand_pere", Nom_grand_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_mere", Nom_prenom_mereTextBox.Text)
        com.Parameters.AddWithValue(" @profession", ProfessionTextBox.Text)
        com.Parameters.AddWithValue(" @qualite", QualiteComboBox.Text)
        com.Parameters.AddWithValue(" @email", EmailTextBox.Text)
        com.Parameters.AddWithValue("  @adresse_uae", Adresse_uaeComboBox.Text)
        com.Parameters.AddWithValue(" @tel_uae", Tel_uaeTextBox.Text)
        com.Parameters.AddWithValue(" @adresse_tn", Adresse_tnTextBox.Text)
        com.Parameters.AddWithValue(" @tele_tn", Tele_tnTextBox.Text)
        com.Parameters.AddWithValue(" @etat_civil", Etat_civilComboBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_epou", Nom_prenom_epouTextBox.Text)
        com.Parameters.AddWithValue(" @nationalite_epou", Nationalite_epouTextBox.Text)
        com.Parameters.AddWithValue(" @validation", ValidationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @expired", ExpiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @remarque", RemarqueTextBox.Text)
        com.Parameters.AddWithValue(" @id", IdTextBox.Text)
        If con.State = ConnectionState.Closed Then con.Open()
        com.ExecuteNonQuery()
        con.Close()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        Call LoadData()

    End Sub 


(29-03-19, 09:05 PM)anis كتب :

(22-03-19, 11:15 PM)anis كتب :

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .

---

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .

السلام عليكم اخي استشارة فنية  ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'

---

PHP كود :

 Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click


        Dim com As New OleDb.OleDbCommand(" update Table1 set nom = @nom , prenom = @prenom , date_de_naissance = @date_de_naissance , lieu_de_naissance = @lieu_de_naissance , sex = @sex , age = @age , numero_passport = @numero_passport , date_validation = @date_validation , date_expired = @date_expired , cin = @cin , numero_cin = @numero_cin , autre_nationalite = @autre_nationalite , nom_pere = @nom_pere , nom_grand_pere = @nom_grand_pere , nom_prenom_mere = @nom_prenom_mere , profession = @profession , qualite = @qualite , email = @email , adresse_uae = @adresse_uae , tel_uae = @tel_uae , adresse_tn = @adresse_tn , tele_tn = @tele_tn , etat_civil = @etat_civil , nom_prenom_epou = @nom_prenom_epou , nationalite_epou = @nationalite_epou , validation = @validation , expired = @expired , remarque = @remarque  where id = @id ", con)
        com.Parameters.AddWithValue(" @nom",  NomTextBox.Text )
        com.Parameters.AddWithValue(" @prenom", PrenomTextBox.Text)
        com.Parameters.AddWithValue(" @date_de_naissance", Date_de_naissanceDateTimePicker.Value)
        com.Parameters.AddWithValue("  @lieu_de_naissance", Lieu_de_naissanceTextBox.Text)
        com.Parameters.AddWithValue(" @sex", SexComboBox.Text)
        com.Parameters.AddWithValue(" @age", AgeTextBox.Text)
        com.Parameters.AddWithValue(" @numero_passport", Numero_passportTextBox.Text)
        com.Parameters.AddWithValue(" @date_validation", Date_validationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @date_expired", Date_expiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @cin", CinComboBox.Text)
        com.Parameters.AddWithValue(" @numero_cin", Numero_cinTextBox.Text)
        com.Parameters.AddWithValue(" @autre_nationalite", Autre_nationaliteComboBox.Text)
        com.Parameters.AddWithValue(" @nom_pere", Nom_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_grand_pere", Nom_grand_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_mere", Nom_prenom_mereTextBox.Text)
        com.Parameters.AddWithValue(" @profession", ProfessionTextBox.Text)
        com.Parameters.AddWithValue(" @qualite", QualiteComboBox.Text)
        com.Parameters.AddWithValue(" @email", EmailTextBox.Text)
        com.Parameters.AddWithValue("  @adresse_uae", Adresse_uaeComboBox.Text)
        com.Parameters.AddWithValue(" @tel_uae", Tel_uaeTextBox.Text)
        com.Parameters.AddWithValue(" @adresse_tn", Adresse_tnTextBox.Text)
        com.Parameters.AddWithValue(" @tele_tn", Tele_tnTextBox.Text)
        com.Parameters.AddWithValue(" @etat_civil", Etat_civilComboBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_epou", Nom_prenom_epouTextBox.Text)
        com.Parameters.AddWithValue(" @nationalite_epou", Nationalite_epouTextBox.Text)
        com.Parameters.AddWithValue(" @validation", ValidationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @expired", ExpiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @remarque", RemarqueTextBox.Text)
        com.Parameters.AddWithValue(" @id", IdTextBox.Text)
        If con.State = ConnectionState.Closed Then con.Open()
        com.ExecuteNonQuery()
        con.Close()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        Call LoadData()

    End Sub 


---

(29-03-19, 09:05 PM)anis كتب :

(22-03-19, 11:15 PM)anis كتب :

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .

---

(22-03-19, 11:11 PM)عبد العزيز البسكري كتب : خطأ في صياغة كتابة جملة التعديل لديك ..
إبدأ الجملة بهذا الشكل ..

كود :

 UPDATE Table1 SET Name = @Name,Surname = @Surname Where Id=@Id

شكرا اخي عبد العزيز على استجابتك .

السلام عليكم اخي استشارة فنية  ظهرت معي هه الرسالة عند تحديث البيانات هل يوجد حل لهذه المشكل "
System.Data.OleDb.OleDbException: 'Data type mismatch in criteria expression.'

---

PHP كود :

 Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click


        Dim com As New OleDb.OleDbCommand(" update Table1 set nom = @nom , prenom = @prenom , date_de_naissance = @date_de_naissance , lieu_de_naissance = @lieu_de_naissance , sex = @sex , age = @age , numero_passport = @numero_passport , date_validation = @date_validation , date_expired = @date_expired , cin = @cin , numero_cin = @numero_cin , autre_nationalite = @autre_nationalite , nom_pere = @nom_pere , nom_grand_pere = @nom_grand_pere , nom_prenom_mere = @nom_prenom_mere , profession = @profession , qualite = @qualite , email = @email , adresse_uae = @adresse_uae , tel_uae = @tel_uae , adresse_tn = @adresse_tn , tele_tn = @tele_tn , etat_civil = @etat_civil , nom_prenom_epou = @nom_prenom_epou , nationalite_epou = @nationalite_epou , validation = @validation , expired = @expired , remarque = @remarque  where id = @id ", con)
        com.Parameters.AddWithValue(" @nom",  NomTextBox.Text )
        com.Parameters.AddWithValue(" @prenom", PrenomTextBox.Text)
        com.Parameters.AddWithValue(" @date_de_naissance", Date_de_naissanceDateTimePicker.Value)
        com.Parameters.AddWithValue("  @lieu_de_naissance", Lieu_de_naissanceTextBox.Text)
        com.Parameters.AddWithValue(" @sex", SexComboBox.Text)
        com.Parameters.AddWithValue(" @age", AgeTextBox.Text)
        com.Parameters.AddWithValue(" @numero_passport", Numero_passportTextBox.Text)
        com.Parameters.AddWithValue(" @date_validation", Date_validationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @date_expired", Date_expiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @cin", CinComboBox.Text)
        com.Parameters.AddWithValue(" @numero_cin", Numero_cinTextBox.Text)
        com.Parameters.AddWithValue(" @autre_nationalite", Autre_nationaliteComboBox.Text)
        com.Parameters.AddWithValue(" @nom_pere", Nom_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_grand_pere", Nom_grand_pereTextBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_mere", Nom_prenom_mereTextBox.Text)
        com.Parameters.AddWithValue(" @profession", ProfessionTextBox.Text)
        com.Parameters.AddWithValue(" @qualite", QualiteComboBox.Text)
        com.Parameters.AddWithValue(" @email", EmailTextBox.Text)
        com.Parameters.AddWithValue("  @adresse_uae", Adresse_uaeComboBox.Text)
        com.Parameters.AddWithValue(" @tel_uae", Tel_uaeTextBox.Text)
        com.Parameters.AddWithValue(" @adresse_tn", Adresse_tnTextBox.Text)
        com.Parameters.AddWithValue(" @tele_tn", Tele_tnTextBox.Text)
        com.Parameters.AddWithValue(" @etat_civil", Etat_civilComboBox.Text)
        com.Parameters.AddWithValue(" @nom_prenom_epou", Nom_prenom_epouTextBox.Text)
        com.Parameters.AddWithValue(" @nationalite_epou", Nationalite_epouTextBox.Text)
        com.Parameters.AddWithValue(" @validation", ValidationDateTimePicker.Value)
        com.Parameters.AddWithValue(" @expired", ExpiredDateTimePicker.Value)
        com.Parameters.AddWithValue(" @remarque", RemarqueTextBox.Text)
        com.Parameters.AddWithValue(" @id", IdTextBox.Text)
        If con.State = ConnectionState.Closed Then con.Open()
        com.ExecuteNonQuery()
        con.Close()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        Call LoadData()

    End Sub 


---

PHP كود :

Imports System.Data
Imports System.Data.OleDb


Public Class Form3

    Dim oledbcommand As String
    Dim con As New OleDb.OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\Desktop\WindowsApp11\WindowsApp11\tn1.mdb ; ")

    Dim ds As New DataSet
    Dim dt As DataTable

    Sub LoadData()
        ds.Clear()
        Form2.DataGridView1.DataSource = Nothing
        IdTextBox.DataBindings.Clear()
        NomTextBox.DataBindings.Clear()
        PrenomTextBox.DataBindings.Clear()
        Date_de_naissanceDateTimePicker.DataBindings.Clear()
        Lieu_de_naissanceTextBox.DataBindings.Clear()
        SexComboBox.DataBindings.Clear()
        AgeTextBox.DataBindings.Clear()
        Numero_passportTextBox.DataBindings.Clear()
        Date_validationDateTimePicker.DataBindings.Clear()
        Date_expiredDateTimePicker.DataBindings.Clear()
        CinComboBox.DataBindings.Clear()
        Numero_cinTextBox.DataBindings.Clear()
        Autre_nationaliteComboBox.DataBindings.Clear()
        Nom_pereTextBox.DataBindings.Clear()
        Nom_grand_pereTextBox.DataBindings.Clear()
        Nom_prenom_mereTextBox.DataBindings.Clear()
        ProfessionTextBox.DataBindings.Clear()
        QualiteComboBox.DataBindings.Clear()
        EmailTextBox.DataBindings.Clear()
        Adresse_uaeComboBox.DataBindings.Clear()
        Tel_uaeTextBox.DataBindings.Clear()
        Adresse_tnTextBox.DataBindings.Clear()
        Tele_tnTextBox.DataBindings.Clear()
        Etat_civilComboBox.DataBindings.Clear()
        Nom_prenom_epouTextBox.DataBindings.Clear()
        Nationalite_epouTextBox.DataBindings.Clear()
        ValidationDateTimePicker.DataBindings.Clear()
        ExpiredDateTimePicker.DataBindings.Clear()
        RemarqueTextBox.DataBindings.Clear()
        Dim da As New OleDbDataAdapter("  select     id ,    nom  , prenom  , date_de_naissance  , lieu_de_naissance  , sex   , age  , numero_passport  , date_validation  , date_expired  , cin  , numero_cin  , autre_nationalite  , nom_pere  , nom_grand_pere  , nom_prenom_mere  , profession  , qualite  , email  , adresse_uae  , tel_uae  , adresse_tn  , tele_tn  , etat_civil  , nom_prenom_epou  , nationalite_epou  , validation  , expired  , remarque  from Table1 ", con)
        da.Fill(ds, "Table1")
        Form2.DataGridView1.DataSource = ds
        Form2.DataGridView1.DataMember = "Table1"
        IdTextBox.DataBindings.Add("text", ds, "Table1 .id ")
        NomTextBox.DataBindings.Add("text", ds, "Table1 .nom ")
        PrenomTextBox.DataBindings.Add("text", ds, "Table1 .prenom ")
        Date_de_naissanceDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_de_naissance ")
        Lieu_de_naissanceTextBox.DataBindings.Add("text", ds, "Table1 .lieu_de_naissance ")
        SexComboBox.DataBindings.Add("text", ds, "Table1 .sex ")
        AgeTextBox.DataBindings.Add("text", ds, "Table1 .age  ")
        Numero_passportTextBox.DataBindings.Add("text", ds, "Table1 .numero_passport ")
        Date_validationDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_validation ")
        Date_expiredDateTimePicker.DataBindings.Add("value", ds, "Table1 .date_expired")
        CinComboBox.DataBindings.Add("text", ds, "Table1 .cin ")
        Numero_cinTextBox.DataBindings.Add("text", ds, "Table1 .numero_cin ")
        Autre_nationaliteComboBox.DataBindings.Add("text", ds, "Table1 .autre_nationalite ")
        Nom_pereTextBox.DataBindings.Add("text", ds, "Table1 .nom_pere ")
        Nom_grand_pereTextBox.DataBindings.Add("text", ds, "Table1 .nom_grand_pere ")
        Nom_prenom_mereTextBox.DataBindings.Add("text", ds, "Table1 .nom_prenom_mere ")
        ProfessionTextBox.DataBindings.Add("text", ds, "Table1 .profession ")
        QualiteComboBox.DataBindings.Add("text", ds, "Table1 .qualite ")
        EmailTextBox.DataBindings.Add("text", ds, "Table1 .email ")
        Adresse_uaeComboBox.DataBindings.Add("text", ds, "Table1 .adresse_uae ")
        Tel_uaeTextBox.DataBindings.Add("text", ds, "Table1 .tel_uae ")
        Adresse_tnTextBox.DataBindings.Add("text", ds, "Table1 .adresse_tn ")
        Tele_tnTextBox.DataBindings.Add("text", ds, "Table1 .tele_tn ")
        Etat_civilComboBox.DataBindings.Add("text", ds, "Table1 .etat_civil ")
        Nom_prenom_epouTextBox.DataBindings.Add("text", ds, "Table1 .nom_prenom_epou ")
        Nationalite_epouTextBox.DataBindings.Add("text", ds, "Table1 .nationalite_epou ")
        ValidationDateTimePicker.DataBindings.Add("value", ds, "Table1 .validation")
        ExpiredDateTimePicker.DataBindings.Add("value", ds, "Table1 .expired ")
        RemarqueTextBox.DataBindings.Add("text", ds, "Table1 .remarque ")

    End Sub