+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] اكواد الاضافه والحذف (/showthread.php?tid=3966)
اكواد الاضافه والحذف - هدى - 03-10-14
السلام عليكم
اذا ممكن احد يساعدني اريد الكود الخاص بالاضافه والحذف والتعديل والمحدد في v.b في حاله الربط باداه Adodc
RE: اكواد الاضافه والحذف - هدى - 03-10-14
ياريت لو احد يجاوبني لان محتاجه الاجابه ضروري جداا
RE: اكواد الاضافه والحذف - essabar - 03-10-14
(03-10-14, 01:34 PM)هدى كتب : ياريت لو احد يجاوبني لان محتاجه الاجابه ضروري جدااالسلام عليكم
كود الإضافة هو :
On Error Resume Next
Adodc1.Recordset.AddNew
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
وكود الحدف هو :
On Error Resume Next
Dim p As String
p = MsgBox(" هل تريد حدف هذا السجل ? ", vbYesNo, " suppression")
If p = vbYes Then
Adodc1.Recordset.Delete
Else
Cancel = 1
End If
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
End If
Adodc1.Recordset.MoveFirst
Text1.Text = Adodc1.Recordset!Name
Text2.Text = Adodc1.Recordset!secondname
Text3.Text = Adodc1.Recordset!telephone
Text4.Text = Adodc1.Recordset!Adresse
Text5.Text = Adodc1.Recordset!comment
RE: اكواد الاضافه والحذف - هدى - 03-10-14
شكرا جزيلا