كيف يتم تعريف جداول قاعدة بيانات في كل فورم ... بدل التحميل من جديد في كل فورم

بالنسبة لسؤال

اقتباس

كيف يتم تعريف جداول قاعدة بيانات في كل فورم

بوضع التعريف و الاتصال بجدول في Module كما يلي

Public dB  As New ADODB.Connection
Public Rs   As New ADODB.Recordset

Public Sub OpenDatabase()

If dB.State = adStateClosed Then
dB.Provider = "Microsoft.JET.OLEDB.4.0;"
dB.Open App.Path & "\data.mdb"
End If
Rs.Open "SELECT * FROM Table1 ", dB, adOpenStatic, adLockOptimistic

 End Sub

ثم تستدعي الاتصال في كل فورم في حدث التحميل بشكل التالي

Call OpenDatabase

اما بالنسبة لهذا الشق من السؤل

اقتباس

أريد الحين أفتح جدول ثاني في فورم ثاني بدون البدء من جديد مع العلم عملت البدء من جديد في الفورم الثاني مثل الفورم الأول بس طلع لي خطأ ..ما هي الطريقة المثلى

فلم افهم ما تريد

مشكور أخي هاني على الإجابة ...

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

Call OpenDatabase أنت في المديل عرفت الجدول 1 ... بس أنا عندي 5 جداول وأريد في كل فورم أضع جدول .... عسى المعلومة وصلتك ... وشكرا لك

مثلا الفورم الأول اسم الجدول الذي أضعه في الداتا جريد اسمه tab1 وفي الفورم الثاني ريد أضع في الداتا جريد الجدول المسمى tab2 وهكذا .....

السلام عليكم ورحمة الله وبركاته

فى الجملة التالية

Rs.Open "SELECT * FROM Table1 ", dB, adOpenStatic, adLockOptimistic

نجعلها كالتالى

Rs.Open "SELECT * FROM" & tbl , dB, adOpenStatic, adLockOptimistic

وفى تعريف اسم ال sub

نكتب

sub openDatabase(tbl as string)

وفى كل فورم نستدعيها بأن نكتب

call openDatabase( "tablename")

:rolleyes:

شكرا لك اخي sayed بس طريقتك لم تنفع ... فالخطأ يظهر في call openDatabase( "tablename

")

وأعتقد بعد call openDatabase لا يكتب شي ...

وينكم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اقتباس

بس أنا عندي 5 جداول وأريد في كل فورم أضع جدول

استدعي الاتصال بالقاعدة في كل فورم من ثم ضع الاتصال بالجدوال كالتالي

تعريف الاتصال بالقاعدة والجدوال في Module كما يلي

Public dB  As New ADODB.Connection
Public Rs1,Rs2 ,Rs3 ,Rs4 ,Rs5	As New ADODB.Recordset

Public Sub OpenDatabase()

If dB.State = adStateClosed Then
dB.Provider = "Microsoft.JET.OLEDB.4.0;"
dB.Open App.Path & "\data.mdb"
End If
End Sub

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

call openDatabase 
Rs1.Open "SELECT * FROM Table1 ", dB, adOpenStatic, adLockOptimistic

الفورم الثاني

call openDatabase 
Rs2.Open "SELECT * FROM Table2 ", dB, adOpenStatic, adLockOptimistic

وهكذا .. بالتوفيق

مشكور أخي هاني وجزيت خيرا كثيرا ..... في آمان الله