البحث في الموقع
Showing results for tags 'استيراد بيانات من اكسس'.
تم العثور علي 1 نتيجه
-
السلام عليكم . اخواني الاعزاء قبل فترة طرحت مشكلة في منتداكم ووسارع الاخوان الافاضل مشكورين بتزويدي بكود لاستعلام يقوم بجلب البيانات من اكسس وقد استفت من الكود كثيرا . وقد واجهتني مشكلة عندما تحولت الى اوفيس 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
