اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ارفاق من عدة قواعد


إذهب إلى أفضل إجابة Solved by jjafferr,

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

اخوانى بعد بحث مرير

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

المطلوب

لو عندى فولدر فيه 10او 20 او 50 قاعدة بيانات باسماء مختلفة لكن بهم نفس الجدول بنفس الاسم

كيف يمكن ارفاق كل الجداول من كل القواعد من نفس القولدر في نفس اللحظة

وشكرا

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

وعليكم السلام أخي محسن  :smile:

 

كيف يمكن ارفاق كل الجداول من كل القواعد من نفس القولدر في نفس اللحظة

 

اذا كان قصدك استيراد السجلات الى برنامجك ، 

فالرجاء ارفاق:

1. برنامجك الذي تريد ان تستورد اليه السجلات (اعتقد انه هو الذي ارفقته سابقا) ، وتذكر اسم الجدول اللي تريد الاستيراد له ،

2. المجلد وفيه مجموعة من الملفات والتي نريد استيراد سجلاتها الى البرنامج في الرقم #1.

 

جعفر

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

اخي العزيز جعفر

اشكرك من اعماق قلبي

1- اسم الجدول هو data_kids 

2- عندي فولدرعل الe اسمه جداول البيانات به مجموعة من قواعد البيانات به جدول بنفس الحقول والاسمdata_kids

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

  • أفضل إجابة

تفضل  :smile:

 

إضغط على زر الاستعراض ، تطلع لك نافذة اختيار المجلد اللي فيه قواعد بياناتك ،

post-142414-0-02125000-1425762451_thumb.

 

 

ثم اضغط على استيراد ، فيقوم باستيراد بيانات الجدول data_kids  من جميع هذه الملفات التي بصيغة mdb و accdb  :smile:

وقاعدة البيانات اللي ما يلاقي فيها الجدول ، ما يعبرها  :smile:

 

وهذا الكود اللي يقوم بعملية الاستيراد:

Private Sub cmd_import_Click()
On Error GoTo err_cmd_import_Click

    'loop through the listbox items
    For i = 0 To Me.lst_Files.ListCount - 1
        
        'import the data to the table
        sqAdd = "INSERT INTO data_kids"
        'sqAdd = sqAdd & " IN '" & Application.CurrentProject.Path & "'"
        sqAdd = sqAdd & " select * From data_kids"
        sqAdd = sqAdd & " IN '" & Me.lst_Files.ItemData(i) & "'"
        'Debug.Print sqAdd

        'execute the append SQL
        DoCmd.RunSQL sqAdd
        
    Next i
   
    MsgBox "Done"
    
Exit Sub
err_cmd_import_Click:

    If Err.Number = 3078 Then
        'table not found in the mdb
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

جعفر

10.1.Import_Table_Data.mdb.zip

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information