منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود التعديل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود التعديل (/showthread.php?tid=31441)



كود التعديل - anis - 20-09-19

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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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)
        '
TODOThis line of code loads data into the 'TnDataSet.Table1' tableYou 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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)
        '
TODOThis line of code loads data into the 'TnDataSet.Table1' tableYou 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.'



RE: كود التعديل - ابراهيم ايبو - 20-09-19

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