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.'