please help me in this code

استبدل

Set DataGrid1.DataSource = rs

بـ

Set rs= DataGrid1.DataSource

ماهي رسالة الخطا التي تظهر ضع صورة او نص الرسالة ان امكن

Error Message : The rowset is not bookmarkable

مشكوورين أخواني على مشاركتكم

لكن أريد أن أقول لك أخي عبد الفتاح

- أني أريد عرض بياناتي داخل DataGrid

-وأيضا أنا أستخدم DataGrid من النوع الديناميكي القابل للتغير ( أي أنني أريد تغيره على حسب جملة SQL ) (أي يعرض بيانات متغيرة على حسب الإستعلام)

بسم الله الرحمن الرحيم

يا شباب ساعدوني في مشكلتي شو مالكم

Error Message : The rowset is not bookmarkable

هذه رسالة الخطأ التي تظهر لي

أخي الفاضل :

هل من الممكن أن تضع ملفات المشروع على المنتدى حتى نستطيع أن نساعدك؟؟

و لك جزيل الشكر (h)

أنا اسف لعدم قدرتي على وضع المشروع

لكن هذا هو الكود الخاص به:

لكن قبل ذلك يلزمنا هذه الأدوات

1- زر(Command1 )

2-Datagride1

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
___________________________________________
Private Sub Command1_Click()
Dim sql As String
sql = "Select  CategoryName From Categories"
If rs.State = adStateOpen Then rs.Close
rs.Open sql, db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
____________________________________________
Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nwind.MDB"
End Sub

أنا اسف لعدم قدرتي على وضع المشروع

لكن هذا هو الكود الخاص به:

لكن قبل ذلك يلزمنا هذه الأدوات

1- زر(Command1 )

2-Datagride1

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
___________________________________________
Private Sub Command1_Click()
Dim sql As String
sql = "Select  CategoryName From Categories"
If rs.State = adStateOpen Then rs.Close
rs.Open sql, db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
____________________________________________
Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nwind.MDB"
End Sub

أخي الفاضل :

ممكن تجرب أن تستعمل أداة الـ ADODC بدلا من مرجع الـ ADODB , لقد جربتها حالا و لقد عملت معي بكفاءة

و لك جزيل الشكر,,, (h)