التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود التعديل
#1
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.'
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو


الردود في هذا الموضوع
كود التعديل - بواسطة anis - 20-09-19, 06:44 PM
RE: كود التعديل - بواسطة ابراهيم ايبو - 20-09-19, 07:11 PM

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

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


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