منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET كود التعديل
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
كود التعديل
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#1
20-09-19, 06:44 PM (آخر تعديل لهذه المشاركة : 20-09-19, 06:48 PM {2} بواسطة anis.)
PHP كود :
Imports System.Data
Imports System.Data.OleDb

Imports System.Text.RegularExpressions



Public Class Form3

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


    Sub LoadData()


        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)


    End Sub
    Sub clear()

        NomTextBox.Text = String.Empty
        PrenomTextBox.Text = String.Empty
        Lieu_de_naissanceTextBox.Text = String.Empty
        SexComboBox.Text = String.Empty
        AgeTextBox.Text = String.Empty
        Numero_passportTextBox.Text = String.Empty
        CinComboBox.Text = String.Empty
        Numero_cinTextBox.Text = String.Empty
        Autre_nationaliteComboBox.Text = String.Empty
        Nom_pereTextBox.Text = String.Empty
        Nom_grand_pereTextBox.Text = String.Empty
        Nom_prenom_mereTextBox.Text = String.Empty
        ProfessionTextBox.Text = String.Empty
        QualiteComboBox.Text = String.Empty
        EmailTextBox.Text = String.Empty
        Adresse_uaeComboBox.Text = String.Empty
        Tel_uaeTextBox.Text = String.Empty
        Adresse_tnTextBox.Text = String.Empty
        Tele_tnTextBox.Text = String.Empty
        Etat_civilComboBox.Text = String.Empty
        Nom_prenom_epouTextBox.Text = String.Empty
        Nationalite_epouTextBox.Text = String.Empty
        RemarqueTextBox.Text = String.Empty

    End Sub



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

        com = New 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)

        con.Open()
        com.ExecuteNonQuery()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        LoadData()
        clear()

        con.Close()
        Me.Hide()

        Form2.Show()


    End Sub

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Tn1DataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.Tn1DataSet.Table1)
        'TODO: This line of code loads data into the 'TnDataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.Tn1DataSet.Table1)


    End Sub 
السلام عليكم ورحمة الله .
عندي فورم 3 يقوم بتعديل اليانات من تاكست بوكس ونقلها الى فورم 3 على داتلجريد فيور 
عند التعديل تظهر لي هذه المشكلة "   System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
(20-09-19, 06:44 PM)اسف قصدي : عندي فورم 3 يقوم بتعديل اليانات من تاكست بوكس ونقلها الى فورم 2 على داتلجريد فيور anis كتب :
PHP كود :
Imports System.Data
Imports System.Data.OleDb

Imports System.Text.RegularExpressions



Public Class Form3

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


    Sub LoadData()


        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)


    End Sub
    Sub clear()

        NomTextBox.Text = String.Empty
        PrenomTextBox.Text = String.Empty
        Lieu_de_naissanceTextBox.Text = String.Empty
        SexComboBox.Text = String.Empty
        AgeTextBox.Text = String.Empty
        Numero_passportTextBox.Text = String.Empty
        CinComboBox.Text = String.Empty
        Numero_cinTextBox.Text = String.Empty
        Autre_nationaliteComboBox.Text = String.Empty
        Nom_pereTextBox.Text = String.Empty
        Nom_grand_pereTextBox.Text = String.Empty
        Nom_prenom_mereTextBox.Text = String.Empty
        ProfessionTextBox.Text = String.Empty
        QualiteComboBox.Text = String.Empty
        EmailTextBox.Text = String.Empty
        Adresse_uaeComboBox.Text = String.Empty
        Tel_uaeTextBox.Text = String.Empty
        Adresse_tnTextBox.Text = String.Empty
        Tele_tnTextBox.Text = String.Empty
        Etat_civilComboBox.Text = String.Empty
        Nom_prenom_epouTextBox.Text = String.Empty
        Nationalite_epouTextBox.Text = String.Empty
        RemarqueTextBox.Text = String.Empty

    End Sub



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

        com = New 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)

        con.Open()
        com.ExecuteNonQuery()
        MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        LoadData()
        clear()

        con.Close()
        Me.Hide()

        Form2.Show()


    End Sub

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Tn1DataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.Tn1DataSet.Table1)
        'TODO: This line of code loads data into the 'TnDataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.Tn1DataSet.Table1)


    End Sub 
السلام عليكم ورحمة الله .
عندي فورم 3 يقوم بتعديل اليانات من تاكست بوكس ونقلها الى فورم 3 على داتلجريد فيور 
عند التعديل تظهر لي هذه المشكلة "   System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
البحث
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
ابراهيم ايبو غير متصل
كبار الشخصيات
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة : 538
الشكر: 10647
تم شكره 5323 مرات في 2095 مشاركات
#2
20-09-19, 07:11 PM (آخر تعديل لهذه المشاركة : 20-09-19, 07:12 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم اخي الكريم
راجع كود التعدبل هناك حقل او اكثر لم يتم اسناد قيمة للباراميتر
هذا ماتقوله الرسالة
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







البحث
الرد }}}
تم الشكر بواسطة: اسامه الهرماوي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 140 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 283 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] كود التعديل Abdellatif 6 406 21-12-23, 02:01 PM
آخر رد: Abdellatif
  كود التعديل لم ينجح معي melad2002 4 309 16-12-23, 12:22 AM
آخر رد: anes
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 361 13-10-23, 01:47 AM
آخر رد: new_programer
  اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد moh61 6 843 26-07-23, 10:41 AM
آخر رد: تركي الحلواني
  يرجي التعديل على المثال - تعبءة الكمبوبوكس داخل الجريد بانواع الوحدات new_programer 3 808 14-04-23, 05:31 PM
آخر رد: new_programer
  التعديل على مشروع ارتجال مشروع امتحانات مصمم هاوي 2 572 12-03-23, 06:48 PM
آخر رد: سعود
  التعديل على كود الحفظ مصمم هاوي 4 714 06-03-23, 12:12 AM
آخر رد: مصمم هاوي
  التعديل على كود زر RadioButton مصمم هاوي 2 588 21-11-22, 01:33 AM
آخر رد: مصمم هاوي

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم