[abomna]

استخدم  ADODB فى مشروعى

كود :

Dim DB As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

Private Sub provd()
   If DB.State = adStateOpen Then DB.Close
   DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123; Data Source=" & App.Path & "\data.mdb"
   If rs.State = adStateOpen Then rs.Close
End Sub

لكن الاحظ بطئ عند تشغيل المشروع وتنفيذ العمليات الحسابية الموجودة بالمشروع
هل لذلك علاج أم انه أمر طبيعى بالنسبة لعدد الاستعلامات الموجودة بالبرنامج
واذا كان امر طبيعى فهل يمكن عمل شاشة تخبر المستخدم بأنه جارى تنفيذ العمليات الحسابية
فمع البطئ قد يعتقد المستخدم أن المشروع متوقف ولم يستجب

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