مساعدة في الADO

السلام عليكم ورحمة الله وبركاته

هذه إحدى طرق حذف السجلات من قواعد البيانات باستخدام الأدو وجمل الـSQL

أولاً ستضيف مكتبة الأدو ثم تعرف متغيرين أحدهما للاتصال بقاعدة البيانات وليكن Cn والآخر للتعامل مع الجداول وليكن Rs وسيتم تعريفهما فى القسم العام General

Dim Cn As New Connection, Rs As New Recordset

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

Private Sub Form_Load()
Cn.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=C:\Test.mdb"
Rs.Open "tab1", Cn, adOpenStatic, adLockPessimistic
End Sub

الآن هذا هو كود الحذف استناداً إلى قيمة الحقل Num

Private Sub cmdDelete_Click()
If Rs.State Then
	Rs.Close
End If
Dim Sql As String
Sql = "DELETE * FROM Tab1 WHERE Num=2"
Rs.Open Sql
End Sub

أتمنى أن يكون هذا هو المطلوب

تحياتى ,,,

السلام عليكم

بتعمل olecommand وتكتب في ال commandtext بتاعته كود T-Sql لحذف ال record

يعني delete from tabname where condition

وتستدعي ال()command.ExecuteNonQuery

علي فكره موضوع الADO.NET سهل وجميل

أحمد طاهر الباز كتب:

السلام عليكم

بتعمل olecommand وتكتب في ال commandtext بتاعته كود T-Sql لحذف ال record

يعني delete from tabname where condition

وتستدعي ال()command.ExecuteNonQuery

علي فكره موضوع الADO.NET سهل وجميل

لكن يا أخى السؤال خاص بالفيجوال بيسيك 6 وليس بالدوت نت :P

شكرا للجميع علي المساعدة ... وانا بصراحة ربنا ألهمني طريقة أخرى سهلة .....ومرة تانية شكرا لكل من أعطى أهتماما للموضوع

mometo كتب:

شكرا للجميع علي المساعدة ... وانا بصراحة ربنا ألهمني طريقة أخرى سهلة .....ومرة تانية شكرا لكل من أعطى أهتماما للموضوع

ممكن تضع الطريقة حتى يستفيد الجميع :rolleyes:

مع ان رأيى انه لا يوجد أسهل من جمل الـSQL

Dim response As Integer

response = MsgBox("Are You Sure?", vbCritical + vbYesNo, "Alert")

If response = vbYes Then

With Adodc1.Recordset

.Delete

.MoveNext

If .EOF Then .MoveLast

End With

End If

Air_Snake كتب:

Dim response As Integer

response = MsgBox("Are You Sure?", vbCritical + vbYesNo, "Alert")

If response = vbYes Then

With Adodc1.Recordset

.Delete

.MoveNext

If .EOF Then .MoveLast

End With

End If

لكن هذا الكود يحذف السجل الحالى لكن الطريقة السابقة تحذف السجل الذى تريده :P

أخى أردت المشاركه وهذا الرد قد يفيد إخوانى