كود استعلام لايعمل في 2007 ولكنه جيد في 2003

[صباح حسين]

السلام  عليكم . اخواني الاعزاء قبل فترة طرحت مشكلة في منتداكم ووسارع الاخوان الافاضل مشكورين بتزويدي بكود لاستعلام يقوم بجلب البيانات من اكسس وقد استفت من الكود كثيرا . وقد واجهتني مشكلة عندما تحولت الى اوفيس 2007 فان الكود لايعمل وقد قمت خمت ان الخلل قد يكون في امتداد ملف اكسس. الكود لايتعرف على امتداد اكسس 2007 . وقد حاولت تغير الكود الذي بلون الاحمر الى(   accdb) , ولكني لم افلح بالوصول الى الحل . اتمنى ان اجد الحل عند احد الاخوان

علما ان [b1] خلية في اكسيل يتحتوي على اسم قاعدة بيانات اكسس 

 

 

Dim rsData As ADODB.Recordset

Dim sConnect As String

Dim sSQL As String

sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\" & [b1] & ".mdb;Persist Security Info=True "

sSQL = "select distinct x.emb_id,emb_name,ejaza_type,to_day from temp_day as x  order by x.emb_name  "

Set rsData = New ADODB.Recordset

rsData.Open sSQL, sConnect, adOpenForwardOnly, _

adLockReadOnly, adCmdText

If Not rsData.EOF Then

[a6].CopyFromRecordset rsData

rsData.Close

End If

 

 

[احمد عبد الناصر]

السلام عليكم 

 

جرب هذا التعديل 

 

sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\" & [b1] & ".accdb;Persist Security Info=True "

 

تحياتي

[صباح حسين]

السلام عليكم 

 

جرب هذا التعديل 

 

sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\" & [b1] & ".accdb;Persist Security Info=True "

 

تحياتي

شكرا لك وبارك الله فيك اخي احمد لتجاوبك  معي سوف اجرب الكود واعلمك بالنتيجة

[صباح حسين]

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

[احمد عبد الناصر]

السلام عليكم

 

الاخ العزيز صباح اسعد الله صباحك 

 

بارك الله فيك وفي امثالك  وادعو الله العزيز القدير على ان يحقق لك كل امانيك ويشملك برحمته وكرمه .