[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك

اذهب الى الأسفل

[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك Empty [VB.NET] كود التعديل و الحفظ بالفيجوال بيسك

مُساهمة من طرف anis في الخميس سبتمبر 19, 2019 5:35 am

السلام عيكم .
اريد تحديث بينات من جدول بفورم الى قاعدة بيانات اكسس.
الكود:
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\anis\Desktop\WindowsApp12\WindowsApp11\bin\Debug\tn1.mdb; ")

    'Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\anis\Desktop\WindowsApp12\WindowsApp11\bin\Debug\tn1.mdb; ")
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\anis\Desktop\WindowsApp12\WindowsApp11\bin\Debug\tn1.mdb; ")

    Dim old As String = "  SELECT * FROM Table1  "
    Dim com As 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 , photo = @photo where id = @id ")


    Dim ds As New DataSet
    Dim dt As New DataTable
    Dim da As New OleDbDataAdapter
    Private Sub Ribbonform3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.Show()
        NomTextBox.Select()
    End Sub

    Public Sub LoadData()
        ''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 = New OleDbDataAdapter(old, con)
        dt = New DataTable
        da.Fill(dt)
        Form2.DataGridView1.DataSource = dt
        'Dim dt As New DataTable
        'da.Fill(ds, "Table1")

        Form2.DataGridView1.DataSource = ds

        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(" @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


    Sub up()

        IdTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(0).Value
        NomTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(1).Value.ToString
        PrenomTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(2).Value
        If (Not String.IsNullOrWhiteSpace(Form2.DataGridView1.CurrentRow.Cells(3).Value.ToString)) Then
            Date_de_naissanceDateTimePicker.Value = Convert.ToDateTime(Form2.DataGridView1.CurrentRow.Cells(3).Value.ToString)
        End If
        Lieu_de_naissanceTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(4).Value.ToString
        SexComboBox.Text = Form2.DataGridView1.CurrentRow.Cells(5).Value.ToString
        AgeTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(6).Value.ToString
        Numero_passportTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(7).Value.ToString
        If (Not String.IsNullOrWhiteSpace(Form2.DataGridView1.CurrentRow.Cells(8).Value.ToString)) Then
            Date_validationDateTimePicker.Value = Convert.ToDateTime(Form2.DataGridView1.CurrentRow.Cells(8).Value.ToString)
        End If
        If (Not String.IsNullOrWhiteSpace(Form2.DataGridView1.CurrentRow.Cells(9).Value.ToString)) Then
            Date_expiredDateTimePicker.Value = Convert.ToDateTime(Form2.DataGridView1.CurrentRow.Cells(9).Value.ToString)
        End If
        CinComboBox.Text = Form2.DataGridView1.CurrentRow.Cells(10).Value.ToString
        Numero_cinTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(11).Value.ToString
        Autre_nationaliteComboBox.Text = Form2.DataGridView1.CurrentRow.Cells(12).Value.ToString
        Nom_pereTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(13).Value.ToString
        Nom_grand_pereTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(14).Value.ToString
        Nom_prenom_mereTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(15).Value.ToString
        ProfessionTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(16).Value.ToString
        QualiteComboBox.Text = Form2.DataGridView1.CurrentRow.Cells(17).Value.ToString
        EmailTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(18).Value.ToString
        Adresse_uaeComboBox.Text = Form2.DataGridView1.CurrentRow.Cells(19).Value.ToString
        Tel_uaeTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(20).Value.ToString
        Adresse_tnTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(21).Value.ToString
        Tele_tnTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(22).Value.ToString
        Etat_civilComboBox.Text = Form2.DataGridView1.CurrentRow.Cells(23).Value.ToString
        Nom_prenom_epouTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(24).Value.ToString
        Nationalite_epouTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(25).Value.ToString

        If (Not String.IsNullOrWhiteSpace(Form2.DataGridView1.CurrentRow.Cells(26).Value.ToString())) Then
            ValidationDateTimePicker.CustomFormat = Convert.ToDateTime(Form2.DataGridView1.CurrentRow.Cells(26).Value.ToString())
        End If
        If (Not String.IsNullOrWhiteSpace(Form2.DataGridView1.CurrentRow.Cells(27).Value.ToString())) Then
            ExpiredDateTimePicker.Value = Convert.ToDateTime(Form2.DataGridView1.CurrentRow.Cells(27).Value.ToString())

        End If
        RemarqueTextBox.Text = Form2.DataGridView1.CurrentRow.Cells(28).Value.ToString

    End Sub



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


        'Dim str As String = String.Format("  update Table1 set nom = '{0}', prenom = '{1}'  , date_de_naissance = #{2}# , lieu_de_naissance = '{3}' , sex ='{4}' , age ='{5}' , numero_passport = '{6}' , date_validation = #{7}# , date_expired = #{8}#, cin = '{9}' , numero_cin ='{10}' , autre_nationalite ='{11}' , nom_pere = '{12}' , nom_grand_pere = '{13}' , nom_prenom_mere = '{14}' , profession = '{15}' , qualite = '{16}' , email ='{17}' , adresse_uae ='{18}' , tel_uae ='{19}' , adresse_tn ='{20}' , tele_tn ='{21}' , etat_civil ='{22}' , nom_prenom_epou ='{23}' , nationalite_epou ='{24}' , validation = #{25}# , expired = #{26}# , remarque ='{27}'  where id = {28} ", NomTextBox.Text, PrenomTextBox.Text, Date_de_naissanceDateTimePicker.Value.ToString(" dd/MM/yyyy"), Lieu_de_naissanceTextBox.Text, SexComboBox.Text, AgeTextBox.Text, Numero_passportTextBox.Text, Date_validationDateTimePicker.Value.ToString(" dd/MM/yyyy"), Date_expiredDateTimePicker.Value.ToString(" dd/MM/yyyy"), CinComboBox.Text, Numero_cinTextBox.Text, Autre_nationaliteComboBox.Text, Nom_pereTextBox.Text, Nom_grand_pereTextBox.Text, Nom_prenom_mereTextBox.Text, ProfessionTextBox.Text, QualiteComboBox.Text, EmailTextBox.Text, Adresse_uaeComboBox.Text, Tel_uaeTextBox.Text, Adresse_tnTextBox.Text, Tele_tnTextBox.Text, Etat_civilComboBox.Text, Nom_prenom_epouTextBox.Text, Nationalite_epouTextBox.Text, ValidationDateTimePicker.Value.ToString(" dd/MM/yyyy"), ExpiredDateTimePicker.Value.ToString(" dd/MM/yyyy"), RemarqueTextBox.Text, con)
        ' Dim str As String = String.Format("  update Table1 set nom = '{0}', prenom = '{1}'  , date_de_naissance = #{2}# , lieu_de_naissance = '{3}' , sex ='{4}' , age ='{5}' , numero_passport = '{6}' , date_validation = #{7}# , date_expired = #{8}#, cin = '{9}' , numero_cin ='{10}' , autre_nationalite ='{11}' , nom_pere = '{12}' , nom_grand_pere = '{13}' , nom_prenom_mere = '{14}' , profession = '{15}' , qualite = '{16}' , email ='{17}' , adresse_uae ='{18}' , tel_uae ='{19}' , adresse_tn ='{20}' , tele_tn ='{21}' , etat_civil ='{22}' , nom_prenom_epou ='{23}' , nationalite_epou ='{24}' , validation = #{25}# , expired = #{26}# , remarque ='{27}'  where id = {28} ", NomTextBox.Text, PrenomTextBox.Text, Date_de_naissanceDateTimePicker.Value.ToString(" dd/MM/yyyy"), Lieu_de_naissanceTextBox.Text, SexComboBox.Text, AgeTextBox.Text, Numero_passportTextBox.Text, Date_validationDateTimePicker.Value.ToString(" dd/MM/yyyy"), Date_expiredDateTimePicker.Value.ToString(" dd/MM/yyyy"), CinComboBox.Text, Numero_cinTextBox.Text, Autre_nationaliteComboBox.Text, Nom_pereTextBox.Text, Nom_grand_pereTextBox.Text, Nom_prenom_mereTextBox.Text, ProfessionTextBox.Text, QualiteComboBox.Text, EmailTextBox.Text, Adresse_uaeComboBox.Text, Tel_uaeTextBox.Text, Adresse_tnTextBox.Text, Tele_tnTextBox.Text, Etat_civilComboBox.Text, Nom_prenom_epouTextBox.Text, Nationalite_epouTextBox.Text, ValidationDateTimePicker.Value.ToString(" dd/MM/yyyy"), ExpiredDateTimePicker.Value.ToString(" dd/MM/yyyy"), RemarqueTextBox.Text, idstr)
        Dim str As String = String.Format(" 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 , photo = @photo  where id = @id ", con)
        Dim com As New OleDbCommand(str, con)

        da.Update(dt)
        dt.AcceptChanges()
        con.Open()
        com.ExecuteNonQuery()
        con.Close()
        Dim unused1 = MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "نجاح")
        LoadData()
        clear()


        Me.Hide()

        Form2.Show()


    End Sub

End Class


لكن المشكل تظهر لي هذه الاشكالية


System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'


عدل سابقا من قبل أحمد مناع في الخميس سبتمبر 19, 2019 4:55 pm عدل 2 مرات (السبب : إختصار الكود)
anis
anis
.
.

تاريخ التسجيل : 14/09/2019
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك Empty رد: [VB.NET] كود التعديل و الحفظ بالفيجوال بيسك

مُساهمة من طرف المبرمج الطموح في الخميس سبتمبر 19, 2019 5:09 pm


السلام عليكم ورحمة الله وبركاتة

هذا الخطأ بسبب أن عدد الحقول المراد تحديث بياناتها فى جملة الاستعلام أكبر من parameters ولكون أن كودك كبيير فلم استطيع احدد اين تلك هذه الحقول


لذلك يرجي تحديد كود الخفقظ فقط أو كود التعديل فقط حتى نستطيع فهم الكود
المبرمج الطموح
المبرمج الطموح
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 193
النقاط : 347
التقيم : 14
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك Empty رد: [VB.NET] كود التعديل و الحفظ بالفيجوال بيسك

مُساهمة من طرف anis في الجمعة سبتمبر 20, 2019 7:37 am

السلام عليكم استاذي الفاضل . اريد كود تعديل فقط . جزاك الله خيرا .مع الشكر والاحترام
anis
anis
.
.

تاريخ التسجيل : 14/09/2019
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك Empty [VB.NET]

مُساهمة من طرف anis في الجمعة سبتمبر 20, 2019 3:25 pm

السلام عليكم ورحمة الله . عندي فورم 3 يقوم بتعديل اليانات من تاكست بوكس ونقلها الى فورم  2 على الداتاجريد فيور 
 عند التعديل تظهر لي المشكل  .'System.Data.OleDb.OleDbException: 'No value given for one or more rquired parameters.'

الكود:
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

anis
anis
.
.

تاريخ التسجيل : 14/09/2019
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك Empty [VB.NET] صورة عن المشكل

مُساهمة من طرف anis في الجمعة سبتمبر 20, 2019 3:48 pm

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
anis
anis
.
.

تاريخ التسجيل : 14/09/2019
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك Empty رد: [VB.NET] كود التعديل و الحفظ بالفيجوال بيسك

مُساهمة من طرف أحمد مناع في الجمعة سبتمبر 20, 2019 7:18 pm

أهلا بيك اخى الكريم 

سبب المشكلة أنك تريد تعديل الحقل id المستخدم اساسا فى جملة الاستعلام كشرط للتعديل..... لذلك للتصحيح الخطأ يجب عليك كتابة الشفرة كما يلى :

1_السطر التالى قم بحذفه 

الكود:
com.Parameters.AddWithValue(" @id", IdTextBox.Text)


2_اضف الشرط فى جملة الاستعلام كما يلى :

الكود:
where id = '"+ IdTextBox.Text +"' ", con) 

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 967
النقاط : 201747
التقيم : 116
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى