تظهر لى رسالة خطأ فى مشروع قواعد بيانات باستخدام ADO ارجو المساعدة

اولا تأكد ان قاعدة البيانات المستخدمة من النوع 97

ثانيا جرب ضع بدلا من 1,2 هذه الكلامات

, adOpenDynamic, adLockReadOnly

شكرا اخى على ردك

قاعدة البيانات من النوع 97

ووضعت بدل الارقام 1,2 الكلمات adOpenDynamic, adLockReadOnly ولسة المشكلة زى ما هى

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

أخي أعتقد أن المشكلة في تعريف rs

حيث أنك قمت بتعريفها مرتين جرب وامسح التعريف الثاني اللي هي

Dim rs as New Recordset

هذ والله أعلم

تحياااااااتي

حذفت الجمله وظهر خطأ آخر

---------------------------------------------------------------------

مفيش حل يعنى مش هقدر اشتغل بالـ ADO ولا ايه ؟؟

المساعده يا اخوه الله يخليكم

كل شي وفيه حل إن شاء الله

أظن أنك تبي تعمل زر بحث ؟؟صح !

طيب يالطيب

الأن قاعدة البيانات مفتوحة وأنت وضعت أمر لفتح قاعدة البيانات مرة أخرة وهذا خطا

لعمل زر بحث إستخدم الأمر

rs.find

تحيااااتي

تظهر هذه الرسالة عند طلب فتح الريكورد يسيت وهو اصلا مفتوح !!!!

اضف الكود التالي قبل rs.open

if rs.state = 1 then rs.close

كل شي وفيه حل إن شاء الله

أظن أنك تبي تعمل زر بحث ؟؟صح !

طيب يالطيب

الأن قاعدة البيانات مفتوحة وأنت وضعت أمر لفتح قاعدة البيانات مرة أخرة وهذا خطا

لعمل زر بحث إستخدم الأمر

rs.find

تحيااااتي

تظهر هذه الرسالة عند طلب فتح الريكورد يسيت وهو اصلا مفتوح !!!!

اضف الكود التالي قبل rs.open

if rs.state = 1 then rs.close

كل شي وفيه حل إن شاء الله

أظن أنك تبي تعمل زر بحث ؟؟صح !

طيب يالطيب

الأن قاعدة البيانات مفتوحة وأنت وضعت أمر لفتح قاعدة البيانات مرة أخرة وهذا خطا

لعمل زر بحث إستخدم الأمر

rs.find

تحيااااتي

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

انا جربت كل اقتراحتكم ولسه نفس الخطأ بيظهر .... ممكن يكون الخطأ فى جملة SQL

sql = "select * from table where id='" & text1 & "'"

دى جمله بحث المفروض انها بتدى سجل الى المفروض يوضع فى المتغير RS بالكود ده

rs.Open sql, cnn, 1, 2

فهل الكلام ده صحيح ولا ايه ؟

=====================================================================

على العموم شكرا لكم جميعا ......... ولو فى اى كتب شرح للتعامل مع ADO ياريت حد يساعدنى باى كتاب لأن انا معنديش كتب فيها خالص والكود ده بصراحه انا دورت كتير لحد ماجبته وحاولت افهمه ..

=====================================================================

الرجاء تحميل الكود لتعديله والرد على سؤالك .

كود الموديول

Global rs As New ADODB.Recordset
Global cnn As ADODB.Connection

Private Sub main()
Set cnn = New ADODB.Connection
cnn.Open "Provider =Microsoft.JET.OLEDB.4.0;data source=" & App.Path & "\rotana.mdb"
rs.Open "[Table]", cnn, adOpenStatic, adLockReadOnly
MsgBox "تم الاتصال بقاعدة البيانات"
Form1.Show
End Sub

كود الفورم

Private Sub Command1_Click()
Dim rs As New Recordset
sql = "select * from table where arabword='" & text1 & "'"
If rs.State = 1 Then rs.Close
rs.Open sql, cnn, 1, 2
If rs.EOF = False Then
	text2 = rs("engword")
Else
	MsgBox ("الكلمة غير موجوده")
End If
End Sub

هذا هو الكود .....

أرجوا منك عمل جميع الإقتراحات الذي قلناه لك إضافة إلى هذه الإقتراح

عند وضع جمع sql توضع في cnn أي سوف يكون

cnn.Execute

وسوف أبحث لك عن مشروع ليساعدة

تحيااااااتي

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

أدخل على هذي الروابط

دليلك الأسرع

جمل SQL من الألف إلى الياء

المرجع الشامل لجمل SQL

تحياااااااااتي

شكرا اخى ابو فهيد جارى تصفح هذه المواضيع وإن شاء اللهه اجد غايتى ....شكرا

اشد شعري ولا اخبط راسي بالحيط :wacko: للأسف مافي شعر اشده :rolleyes:

غير اسم الجدول من Table لاي كلمة بالدنيا وراح يشتغل معك

Table كلمة محجوزة بالSQL

سلام

المثال

mezonezo.zip

شكرا لك يا اخى MasterPiece الكود اشتغل والحطأ كان هايف وليك حق تزعل بس لا تخبط راسك ولا حاجه دى تستاهل انى ابوسها .

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

(h) ;) (h)

-waf