[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1 • شاطر
[VB.NET] كود التعديل و الحفظ بالفيجوال بيسك
السلام عيكم .
اريد تحديث بينات من جدول بفورم الى قاعدة بيانات اكسس.
لكن المشكل تظهر لي هذه الاشكالية
System.Data.OleDb.OleDbException: 'No value given for one or more required 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\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- .
- تاريخ التسجيل : 14/09/2019
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة :
الجنس :
رد: [VB.NET] كود التعديل و الحفظ بالفيجوال بيسك
السلام عليكم ورحمة الله وبركاتة
هذا الخطأ بسبب أن عدد الحقول المراد تحديث بياناتها فى جملة الاستعلام أكبر من parameters ولكون أن كودك كبيير فلم استطيع احدد اين تلك هذه الحقول
لذلك يرجي تحديد كود الخفقظ فقط أو كود التعديل فقط حتى نستطيع فهم الكود
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
رد: [VB.NET] كود التعديل و الحفظ بالفيجوال بيسك
السلام عليكم استاذي الفاضل . اريد كود تعديل فقط . جزاك الله خيرا .مع الشكر والاحترام
anis- .
- تاريخ التسجيل : 14/09/2019
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة :
الجنس :
[VB.NET]
السلام عليكم ورحمة الله . عندي فورم 3 يقوم بتعديل اليانات من تاكست بوكس ونقلها الى فورم 2 على الداتاجريد فيور
عند التعديل تظهر لي المشكل .'System.Data.OleDb.OleDbException: 'No value given for one or more rquired parameters.'
عند التعديل تظهر لي المشكل .'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- .
- تاريخ التسجيل : 14/09/2019
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة :
الجنس :
anis- .
- تاريخ التسجيل : 14/09/2019
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة :
الجنس :
رد: [VB.NET] كود التعديل و الحفظ بالفيجوال بيسك
أهلا بيك اخى الكريم
سبب المشكلة أنك تريد تعديل الحقل id المستخدم اساسا فى جملة الاستعلام كشرط للتعديل..... لذلك للتصحيح الخطأ يجب عليك كتابة الشفرة كما يلى :
1_السطر التالى قم بحذفه
2_اضف الشرط فى جملة الاستعلام كما يلى :
سبب المشكلة أنك تريد تعديل الحقل id المستخدم اساسا فى جملة الاستعلام كشرط للتعديل..... لذلك للتصحيح الخطأ يجب عليك كتابة الشفرة كما يلى :
1_السطر التالى قم بحذفه
- الكود:
com.Parameters.AddWithValue(" @id", IdTextBox.Text)
2_اضف الشرط فى جملة الاستعلام كما يلى :
- الكود:
where id = '"+ IdTextBox.Text +"' ", con)
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد
» افضل شركة تنظيف اثاث بالرياض تنظيف كنب واجهات حجر بخصم 40%
الأحد مارس 17, 2024 11:52 am من طرف رانيا حماد
» افضل شركة تنظيف فلل بالرياض | الانوار
الأحد مارس 17, 2024 11:22 am من طرف رانيا حماد
» افضل شركة تنظيف واجهات زجاج بالرياض 30% خصم
الأحد مارس 17, 2024 10:38 am من طرف رانيا حماد
» افضل شركة نقل عفش بالكويت بخصم 20%
الخميس مارس 14, 2024 1:36 pm من طرف رانيا حماد