سؤال في في الاداة DBCombo???

ياجماعت الخير احد يرد على سؤالييي:'(

بليز :'(

وهو امل وليس امر

اختكم

انين الصمت

:'(:'(:'(:'(:'(:'(

تكفووووووووون المساعده

ارجوكم رجاء خااااااااااااااااااص

انين الصمت

السلام عليكم

مع اني ماخذ بخاطري منك لكن ما عليه .

'ضعي الكود التالي في قسم التصاريح العامة

Dim db As ADODB.Connection

Dim WithEvents adoPrimaryRS As ADODB.Recordset

'

'

Sub ConnectDB'

Set db = New ADODB.Connection

db.CursorLocation = adUseClient

db.Provider = "Microsoft.Jet.OLEDB.3.51"

'YourDataBase اسم قاعدة البيانات

db.Open App.Path & "YourDatabase.MDB"

'

'لإضافة البيانات

db.Execute "INSERT INTO YourTable (Fields1,Fields) VALUES ('Data1','Data2');"

'YourTabel اسم الجدول

'Field1 الحقل الأول

'Field2 الحقل الثاني

'

'Data1 البيانات التي سوف تحفظ في الحقل الأول

'Data1 البيانات التي سوف تحفظ في الحقل الثاني

'

' من أجل الخاصية الثانية فيمكنك استخدام دالات البحث او التصفية لإظهار البيانات المحددة وهي كالتالي :

'Filter للتصفية

Set adoPrimaryRS = New ADODB.Recordset

adoPrimaryRS.Open "SELECT * FROM YourTable WHERE Field1='Data1';", db, adOpenForwardOnly, adLockPessimistic

'وهذا مثال مرفق للبحث وإظهار البيانات في المكان المخصص لها بستخدام ADO , DAO

'

End sub

اتمنى الاسفادة بما ذكر أعلاه .

وإذا فيه أي استفسار أنا بالخدمة .

أخوك Visitor_OM

عفوا نسيت أضع المثال

تفضلي :

vsearch.zip