منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#7
29-03-19, 09:05 PM (آخر تعديل لهذه المشاركة : 29-03-19, 09:44 PM {2} بواسطة 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 
(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 


الملفات المرفقة صورة/صور
   
البحث
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
RE: كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد - بواسطة anis - 29-03-19, 09:05 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في عدم الحفظ والتعديل مصمم هاوي 3 883 17-08-25, 10:13 AM
آخر رد: أبو خالد الشكري
  خطأ في كود الجمع عند الحفظ مصمم هاوي 4 307 20-04-25, 04:01 AM
آخر رد: مصمم هاوي
  اضافة لون للالوان في التاكست بكس أحمد فتح الرحمن 4 466 08-01-25, 04:05 PM
آخر رد: أحمد فتح الرحمن
  اضافة ايام للتاريخ العيدروس 2 376 07-01-25, 02:06 AM
آخر رد: العيدروس
  جديد في تعلم البرمجة micro team 3 343 06-01-25, 12:47 AM
آخر رد: أبو خالد الشكري
  ابغي ارجع قيمة الداتا قراد فيو من جديد عندي مشكله khalidalwdi 3 636 05-12-24, 02:21 AM
آخر رد: aljzazy
  [سؤال] كيف نضيف id جديد بنفس جملة الاضافة justforit 5 508 01-12-24, 04:30 PM
آخر رد: justforit
  [سؤال] اضافة ملف Pdf الى الريسورس واستخراجه الى مسار معين .. ackore 6 591 15-11-24, 02:51 AM
آخر رد: justforit
  [VB.NET] اضافة ملاحظة صوتية abo ragab 2 460 15-10-24, 10:14 PM
آخر رد: abo ragab
  ما هو الخطأ في كود التعديل التالي صالح عبدالله 6 573 12-10-24, 04:02 PM
آخر رد: صالح عبدالله

التنقل السريع :


يقوم بقرائة الموضوع: