السلام عليكم ورحمة الله وبركاته
لدي سؤالان أرجو الإجابة عليهما
الأول / لدي برنامج قمت بربطه بقاعدة بيانات آكسس بado
أريد أن يقوم المستخدم باختيار أحد عناصر combobox ومن ثم تظهر flexgraid تحوي بيانات العنصر الذي تم اختياره فقمت بعمل مايلي:
في قسم الاعلانات العامةGeneral
Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset
في حدث تحميل الشاشة (ms هي الفليكس جريد)
ms.Visible = False Dim path As String path = App.path If Right(path, 1) <> "\" Then path = path & "\" path = path & "sw.mdb" db.Provider = "microsoft.jet.oledb.4.0;" db.Open path rs.Open "[mailin]", db, adOpenStatic, adLockPessimistic End sub
وقمت بتعريف إجراء يقوم بتعبئة الفليكس جريد (ms)
Sub msdd() sql = "select proin from mailin where proin=[ãÓÏÏÉ]" rs.Open sql, db, adOpenDynamic, adLockReadOnly If rs.RecordCount <> 0 Then With ms .Clear .Cols = rs.Fields.Count .Rows = rs.RecordCount + 1 End With End If End Sub
وفي حدث النقر على الكومبو
Private Sub Combo1_Click() If Combo1.Text = "ãÓÏÏÉ" Then msdd ms.Visible = True End If End Sub
عند التشغيل تظهر العناصر داخل الكومبو ولكن بمجرد النقر على أي عنصر تظهر رسالة خطأ
((لم يتم إعطاء قيم أو أكثر لمعلمة من المعلمات المطلوبة))
ويظهر الخطأ على
rs.Open sql, db, adOpenDynamic, adLockReadOnly
ما سبب ذلك أرجو التوضيح؟؟؟
السؤال الثاني/
بعد ظهور البيانات في الفليكس جريد كيف يمكن حدوث حدث عند النقر على إحدى الصفوف التي تحوي البيانات بغض النظر عن موقع الصف داخل الفليكس جريد؟؟؟
أعرف أن أسئلتي كثيرة :wacko: :wacko: ولكن أود الاستفادة من خبراتكم
وشكرا
