[RaggiTech]

اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]بارك الله فيك

حبذا لو اكملت [/TD]
[/TR]
[/TABLE]

و لو أنت بتأمر المهم الفائدة

تابع ...
عمليتي الحذف و التعديل على السجلات
إن فكرة الحذف هي أن نأخذ قيمة ما من أي سجل سواء كان الاسم أو الرقم أو العنوان حسب ما تراه أنت مناسب و سيقوم البرنامج بنفيذ الكود و بحذف كل ما في السجل إنطلاقا من القيمة التي اخترتها

الكود :

كود :

If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If
Dim SavInto As New OleDb.OleDbCommand
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "DELETE FROM Table1 WHERE Address ='" & Trim(TextBox3.Text) & "'"
Conn.Open()
SavInto.ExecuteNonQuery()
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
MsgBox("تمت عملية حذف السجل")
ChangePosition()

هذا الكود هو المهم

كود :

SavInto.CommandText = "DELETE FROM Table1 WHERE Address ='" & Trim(TextBox3.Text) & "'"

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

<------------------------------------------->

الأن التعديل

أول شي ضيف زر جديد و خليه بجانب زر حفظ السجل و سمه حفظ التعديل

ليصبح الفورم بهذا الشكل



الأن ضع الكود التالي في زر تعديل السجل و هو المسؤول عن نقل كل ما في مربعات نصوص العرض إلى التعديل

كود :

TextBox4.Text = TextBox1.Text
TextBox5.Text = TextBox2.Text
TextBox6.Text = TextBox3.Text
TextBox7.Text = TextBox12.Text

إن التعديل قد يكون معقد بعض الشئ في حالتنا هنا يعني شوف الكود

كود :

Dim SavInto As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\Database.mdb"
Dim Conn As New OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "UPDATE Table1 SET Name = '" & Trim(TextBox4.Text) & "' , Phone_Number= '" & Trim(TextBox5.Text) & "' , Address= '" & Trim(TextBox6.Text) & "', Mobile= '" & Trim(TextBox7.Text) & "' WHERE Address ='" & TextBox3.Text & "'"
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
Dim frm As New Form1
Me.Hide()
frm.Show()
Button5.Visible = True

إن الكود يشبه قليلا كود الحفظ و لكن هنا مباشرة اسم الحقل و التكست الخاص به

إذا ما عليك سوى كتابة الكود مع تعديل ما ترغب به و ما تخصص برنامجك

إذا بقي لنا البحث إذا تحب تبدأ قليلا اكتب ما التالي في الليست الخاص بالكومبو

|اسم الشخص , رقم هاتف الشخص , عنوان الشخص , موبايل الشخص |

يتبع