اريد برنامج فيجول بيسك يتعامل مع قواعد البيانات عن طريق ADO

اخي الكريم لو بحثت في المنتدى عن هالموضوع راح تلاقي مش موضوع بس. بل مواضيع وأكواد وحلول للي تبحث عنو لانو الطلب هذا مكرر بشكل كبير في المنتدى

يا عزيزي أشكرك على الرد

و لكنني مستعجل جداً و مشغول و أريد كتابة برنامج و كذلك ليس لدي فكرة عن المنتدى .

يا ريت تتكرم و تفيدنا أو أي أحد من الأعضاء الكرام .

نسيت ذكر أن المطلوب هو العرض و التعديل عن طريق أوامر SQL

لقد قمت بتنزيل المشروع الموجود في الرابط العلوي و لكنه لا يحتوي على أوامر SQL

مراحب اخي العبدالله

ستجد مبتغاك في الأمثلة الموجودة بتوقيعي

تحياتي

الأخ الفاضل ...

أرجوا ان تساعدك أمثلة قواعد البيانات المختلفة التالية فى ما تريد انجازه

بإستخدام (MS-VB 6.0)

وشكراً

أرجوووووووووووووكم لا أريد أمثلة ، أجد صعوبة في إستخلاص ما أريد من الأمثلة .

أرجو تعديل الكود التالي فقط :

مع إضافة أوامر Dim ، open , close

البرنامج عندي يقوم بالعرض و لكن المشكلة في التعديل .

Private Sub Command1_Click()
sql = "select * from students where s_no='123456' "
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub

Private Sub Command2_Click()
sql = "update students set grade=grade+1 where s_no='123456'"
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub

Private Sub Form_Load()

End Sub

الأخ الفاضل ...

جرب الكود:

Private Sub Command2_Click()
		sql = "update students set grade=grade+1 where s_no='123456'"
		Adodc1.Database.Execute sql
		Adodc1.Refresh
End Sub

شكراً

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

sql = "select * from students where s_no='123456' "
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub

Private Sub Command2_Click()

sql="select * from students"
Adodc1.RecordSource = sql

do until adodc1.recordset.eof
if adodc1.recordset.fields!s_no="123456" then

adodc1.recordset.fields!grade=val(adodc1.recordset.fields!grade)+1
end if 
adodc1.recordset.movenext
loop


End Sub