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



Email : sao_-5000@hotmail.com
الأخ الفاضل ...
راجع: عرض النتائج في الdatagrid
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
شكرا أخيEng. Usama El-Mo... ولكن أنا ما زلت مبتدأ في الفيجيوال بيسك وأنا أريد شرح وأريد وضع نتائج البحث في الداتا جريد وشكرا لك يا أخي آسفين إذا تعبناك.



Email : sao_-5000@hotmail.com
الأخ الفاضل ...
بأفتراض أن لديك قاعدة بيانات أكسس وأسم الملف DB.mdb تحتوى على جدول Student نريد عرضه على الـ grdDataGrid:
فبكس سهولة يمكنك وضع الأداة على الفورم وضبط أسمها إلى grdDataGrid وأستخدام الكود التالى:
Private Sub Form_Load() Dim conn As New Connection Dim rs As New Recordset conn.CursorLocation = adUseClient conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.mdb;" rs.Open "select * from Student", conn, adOpenKeyset, adLockOptimistic Set grdDataGrid.DataSource = rs End Sub
حيث
Dim conn As New Connection
لإنشاء أداة أتصال بقاعدة البيانات
Dim rs As New Recordset
لإنشاء أداة Recordset يتم استخدامه فى جمل الـ SQL ومنها يمكن البحث
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.mdb;"
للإتصال بقاعدة البيانات DB.mdb الموجودة فى نفس مجلد البرنامج App.Path
rs.Open "select * from Student", conn, adOpenKeyset, adLockOptimistic
جملة Select لإظهار نواتج هذه الجملة داخل الـGrid فيما بعد بالسطر:
Set grdDataGrid.DataSource = rs
الذى يقوم بتخصيص الـ Recordset المسمى rs للـ grdDataGrid.
وبالطبع يمكنك تغير محتوى جملة SQL كما تشاء، فللبحث عن الطلاب الذى يبدء أسمهم الأول بحرف A يمكن أستخدام جملة SQL كالتالى:
rs.Open "select * from Student Where First_name like 'A%'", conn, adOpenKeyset, adLockOptimistic
لمزيد من التفاصيل راجع المثال: DatabaseGrid.zip فى ازاي اعمل جدول المستخدم يكتب فيه مباشرة
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
أخواني أعرف إني تعبتكم معاي بس تحملوني شوي عندي كم سؤال
أولا كيف أبحث في قاعدة البيانات وأنا أستخدم مكتبة ADO ???
ثانيا أريد أن أعرض نتائج البحث في الداتا جريد؟



Email : sao_-5000@hotmail.com
هذا الموضوع مغلق.