اذهب الي المحتوي
أوفيسنا

استيراد وتصدير من الاكسيل وإلى أكسس والعكس


الردود الموصى بها

اخواني واساتذتي الكرام

 

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

 

ارجو ان يكون قد تم شرح الطلب بصورة واضحة.

 

ولكم جزيل الشكر والتقدير.

 

Qulity V16.rar

  • Like 3
رابط هذا التعليق
شارك

السلام عليكم

 

هذا كود للاستدعاء من ملف الاكسيس

 

Dim rsData As ADODB.Recordset
Dim sConnect As String
Dim sSQL As String
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\" & اسم_ملف_الاكسيس & ".mdb;Persist Security Info=True "
sSQL = "select * from اسم_الجدول"
Set rsData = New ADODB.Recordset
rsData.Open sSQL, sConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText
If Not rsData.EOF Then
'الخلية المراد جلب البيانات اليها
[a1].CopyFromRecordset rsData
End If

 

و هذا للاضافة الي ملف الاكسيس 

 

Dim rsData As ADODB.Recordset
Dim sConnect As String
Dim sSQL As String
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\" & اسم_ملف_الاكسيس & ".mdb;Persist Security Info=True "
'تحدد اسماء حقول الجدول لملف الاكسيس و  الخلاية التي تحتوي القيم المراد اضافتها
sSQL = "insert into اسم_الجدول (field1,field2,field3) values (" & [b1] & "," & [b2] & "," & [b3] & ")"
Set rsData = New ADODB.Recordset
rsData.Open sSQL, sConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText

 

ملاحظة فعل هذه 

tools > references >microsoft activex data objects 2.6 library

 

تحياتي 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information