كود التعديل - 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 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.'
RE: كود التعديل - ابراهيم ايبو - 20-09-19
السلام عليكم اخي الكريم
راجع كود التعدبل هناك حقل او اكثر لم يتم اسناد قيمة للباراميتر
هذا ماتقوله الرسالة
|