استيراد البيانات من النت إلى قاعدة أكسس

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

والله يا ابا يوسف مش عارف طيب ازاي اعرف نوع القاعدة

وهل ده يفرق في سؤالي

بالتأكيد اخى يفرق كثيرا

عموما الموضوع ليس بالبساطة التى قد تتخيلها

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

و فى كل الاحوال لابد ان يكون السيرفر يدعم التحكم عن بعد

طيب استاذي الفاضل ابو يوسف هنسهل الطلب شوية

هل ممكن استيراد البيانات من صفحة انترنت الى جدول في قاعدة اكسس

بمعنى ان فيه صفحة انترنت امامي فيها اسم الطالب وصفه هل ممكن استورد هذه البيانات الى جدول في قاعدة بيانات أكسس

برجاء الافادة وشكرا لك

أخي: الأستاذ2010

مشرفنا الغالي: Abo_Yossof

السلام عليكم ورحمة الله وبركاته

استسمحكما عذرا بهذه المداخلة (بعد طيب خاطركما)

(النظام المركزي للإدارة التربوية - "نور" )

هو برنامج نهجت به وزارة التربية والتعليم بالسعودية بديلاً للبرنامج السابق (معارف)

ويعتمد العمل به على مركزية الإدخال من خلال استخدام وسيط الانترنت

حيث نوع قاعدة البيانات المستخدمة هي أوراكل ولها حماية جيدة (حسب معرفتي)

ومتطلبات العمل به على مستوى المدرسة هو الدخول للبرنامج على الرابط: https://eduwave.moe.gov.sa/EduWave/login.aspx

بأدخال: أسم المستخدم وكلمة السر

كما يمكن للمعلم والطالب وولي أمر الطالب والإداري على حد سواء استخدام البرنامج والاستفادة من خدماته

في الأسطر التالية بعض اللقطات من داخل البرنامج (أستخدام إدارة المدرسة)

1- بعد الدخول على البرنامج: تأتي الصفحة الرئيسية

2- وهذا بعض الإيضاح للأخ الكريم الأستاذ2010 عن كيفية أستيراد البيانات من النظام المركزي (على حد علمي طبعاً، والله أعلم)

أضغط لإختيار (التقارير) ستفتح لك (قائمة تقارير مدير المدرسة)

ستجد بها 4 أنواع من التقارير كما هو موضح بالصورة المرفقة

3- أضغط على تقارير الدرجات مثلاً

4- بعدها يمكنك أختيار أي (بيان أو كشف أو إشعار) تختاره بالضغط عليه لعملية التصدير

مثلاً درجات طالب: أتبع الصورة

5- أضغط على أيقونة الحفظ لتحديد نوع البيانات التي ترغب بتصديرها (Excel - PDF - Word)

أختر هنا الفورمات بصيغة Excel لسهولة التعامل مع البيانات وتصديرها من أكسل

6- أخيرا ستجد كماً كبيرا من البيانات داخل صفحات Excel يمكنك تجميعها والتعامل معها بقليل من مهارات Access

7- هناك برامج تباع بالسوق تتعامل مع البرنامج (النظام المركزي للإدارة التربوية - "نور" )

مثل برنامج ترانزيت و ترانزيت بلس =====> لإستيراد وتصدير البيانات

ويتحتم عليك حينها دفع مبلغ 200 ريال شامل البرنامجين حتى تحصل على كود تفعيل البرنامج (فقط على جهاز واحد ولمدرسة واحدة)

8- الميزة في برنامج ترانزيت أنه من خلال (اسم المستخدم + كلمة السر) الخاصة بمدرستك

يتم التعامل والتناغم مع قاعدة بيانات أوراكل بالتصدير والاستيراد للبيانات المخزنة بها أضافة للترجمة واكتشاف الأخطاء

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

وسؤالي أضمه لسؤال الأخ الأستاذ2010/ هل من طريقة لتحويل البيانات من قاعدة بيانات أوراكل رغم الحماية الجيدة عليها إلى أكسس

هذا العمل سيوفر الجهد والوقت لجميع منسوبي التعليم .. لأنك لو تعلم مقدار المعاناة للتعامل مع هذا البرنامج لاستحسنت فكرة التحويل وفتح

قاعدة البيانات وفتح الباب أمام الراغبين في تبسيط أجراءات روتين العمل

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

فتهدر الساعات الطوال

وفقكم الله جميعا وشد أزركم ونفع بكم

أبومحمد

السلام عليكم

هذا الموضوع مهم جداً

وهي الطريقة التي نريد تعلمهاوتعلم كيفية الإرتباط بصفحة ASP

هل لديكم معلومات وافرة عن البرمجة بهذه اللغة

استيراد1.zip

السلام عليكم ورحمة الله وبركاتة

الموضوع جميل وشيق ومهم للغاية

أخي الكريم  Hosain 21

هل ممكن تعملي طريقة سحب البيانات من الصفحة المرفقة وأكون شاكر لك وممنون .

سحب بيانات.rar

وعليكم السلام اخي فتى عمان :)

لوسمحت تزور هذا الرابط ، فالمرفق قد يساعدك :)

/index.php/topic/282771-استيراد-البيانات-من-صفحة-ويب/?p=1361256

جعفر

أشكرك أخي جعفر على ردك السريع 

بس الرابط في تلك القاعدة غير شغال .

هل ممكن مثل بسيط على الصفحة التي رفقتها .

حبيت كنت أرفق لك مثال على الموقع بس كانت سعته أكبر من المساحة المتبقية فلم أستطيع رفعه .

تفضل فتى بلادي :)

بس عليك انك ترد على سؤالك التالي :)

جعفر

123.WebImport.mdb.zip

السلام عليكم راعي بلادي

أشكرك وبارك الله فيك

سؤالي هل من الضروري أولا أعمل جمع البيانات من صفحة ويب في كل مرة أم هي مره واحدة .

وعليكم السﻻم :)

هي مرة واحدة لكل صفحة انترنت ( بس طبعا كل صفحة لها طريقة تختلف عن غيرها ) ، للتعرف على طريقة عرضها للمعلومات ،

ثم اذا كنت تريد تستورد المعلومات ، او ترسل معلومات معينه :) ، أو مجرد تريد تتصفح ،

وﻷني استوردت لك مسميات حقول الصفحة ، والمسميات موجودة في الكود ، فما عليك غير انك تقلب الكود ، فبدﻻ من قراءته ، تستطيع أن تكتب فيه ، مثل نموذج اﻻكسس بالضبط :)

جعفر

تمام جعفر أشكرك جزيل الشكر وبارك الله فيك .

دمتم ذخر .

السلام عليكم

الأخ جعفر كيف الحال 

هل ممكن أخي تراجع لي الكود هذا هل صحيح أو يحتاج تغيير

Private Sub ÃãÑ562_Click()
On Error GoTo err_cmd_Retrieve_Click

    Dim i As Integer
    Dim tbl As Object
    Dim cell As IHTMLElement
    Dim ieDoc
    Set ieDoc = web.Document
    
    Dim rst As DAO.Recordset
    Dim x() As String
    
    Set rst = CurrentDb.OpenRecordset("Select * From VISA_APPLICATION")
    
    i = 0
        For Each tbl In ieDoc.body.all
        
            If tbl.tagName = "TABLE" Then
                For Each cell In tbl.cells
                i = i + 1
                If i > 5 And i < 50 Then
                If Int(i / 2) <> i / 2 Then
                
    If i = 1 Then a7 = cell.innerText
    If i = 2 Then ExpireDateofpreviouslaborcard = cell.innerText
    If i = 3 Then CivilNo = cell.innerText
    If i = 4 Then WorkPermitNo = cell.innerText
    If i = 5 Then LabourOffice = cell.innerText
    If i = 6 Then CardType = cell.innerText
    If i = 7 Then PreviousLaborCardNo = cell.innerText
    If i = 8 Then CRNo = cell.innerText
    If i = 9 Then SponsorName = cell.innerText
    If i = 10 Then Phone = cell.innerText
    If i = 11 Then EmpName = cell.innerText
    If i = 12 Then EmpNameE = cell.innerText
    If i = 13 Then Sex = cell.innerText
    If i = 14 Then Nationality = cell.innerText
    If i = 15 Then Qualification = cell.innerText
    If i = 16 Then DateOfBirth = cell.innerText
    If i = 17 Then BloodGroupCode = cell.innerText
    If i = 18 Then Activity = cell.innerText
    If i = 19 Then BranchNo = cell.innerText
    If i = 20 Then BranchName = cell.innerText
    If i = 21 Then Occupation = cell.innerText
    If i = 22 Then Region = cell.innerText
    If i = 23 Then Willayat = cell.innerText
    If i = 24 Then Village = cell.innerText
    If i = 25 Then EntryDate = cell.innerText
    If i = 26 Then JoiningDate = cell.innerText
    If i = 27 Then PsptNo = cell.innerText
    If i = 28 Then PassportIssueDate = cell.innerText
    If i = 29 Then PlaceofIssue_Country = cell.innerText
    If i = 30 Then VisaDate = cell.innerText
    If i = 31 Then VisaNo = cell.innerText
    If i = 32 Then Salary_text = cell.innerText
    If i = 33 Then Allowance_text = cell.innerText
    
                   
                End If  'Int
                End If  'i>5
                Next    'cell
            End If      'tbl

        Next tbl
      
    rst.FindFirst "[Identity]='" & a7 & "'"

       If rst.NoMatch Then
           rst.AddNew
       Else
           rst.Edit
       End If
       
       
    'rst.AddNew
   
    rst!ID_PRE_LABOR_CARD_EX_DATE = ExpireDateofpreviouslaborcard
    rst!FEES_OTHERS = CivilNo
    rst!ID_WORK_PERMIT_NO = WorkPermitNo
    rst!ID_LABOR_OFFICE = LabourOffice
    rst!ID_CARD_TYPE = CardType
    rst!ID_PRE_LABOR_CARD_NO = PreviousLaborCardNo
    rst!ID_REG_NO = CRNo
    rst!ID_COMPANY_NAME = SponsorName
    rst!ID_TEL_NO = Phone
    rst!ID_PER_NAME_A = EmpName
    rst!ID_PER_NAME_E = EmpNameE
    rst!ID_SEX_DESC = Sex
    rst!ID_NATIONALITY_DESC = Nationality
    rst!ID_QUALIFICATION_DESC = Qualification
    rst!ID_BIRTH_DATE = DateOfBirth
    rst!ID_BLOOD_GROUP_DESC = BloodGroupCode
    rst!ID_ACTIVITY_DESC = Activity
    rst!ID_BRANCH_NO = BranchNo
    rst!ID_BRANCH_NAME = BranchName
    rst!ID_PROFESSION_DESC = Occupation
    rst!ID_REGION_DESC = Region
    rst!ID_WILAYAT_DESC = Willayat
    rst!ID_VILLAGE_DESC = Village
    rst!ID_ENTRANCE_DATE = EntryDate
    rst!ID_JIONING_DATE = JoiningDate
    rst!ID_PASS_NO = PsptNo
    rst!ID_PASSPORT_ISSUE_DATE = PassportIssueDate
    rst!ID_PASS_ISSUE_DESC = PlaceofIssue_Country
    rst!ID_VISA_DATE = VisaDate
    rst!ID_RESIDENT_VISA_NO = VisaNo
    rst!ID_BASIC_SALARY = Salary_text
    rst!ID_ALLOWANCE = Allowance_text
   

    rst.Update
    
Exit Sub
err_cmd_Retrieve_Click:

    If Err.Number = 9 Then
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

حياك الله :)

انت خلطت الحابل بالنابل (كما يقولون :) )

انسى المرفق في اول مشاركة ، واستعمل المرفق في المشاركة 13 للحصول على البيانات ،

وعلى اساسه تقدر تطبق اللي تريد :)

جعفر

حياك أخي .

أنا أقصد ليس للحصول غلى البيانات وجمعها وأنما إستيراد البيانات من حقول الصفحة بهذا الكود .

وهذا بناء على المشاركة رقم 13

حياك الله :)

عطني شوية وقت ، واجعل البرنامج يستورد البيانات من الصفحة :)

هل هذا اللي تريده بس ، او تريد ترسل البيانات الى الصفحة كذلك؟

جعفر

حياك أخي إستيراد من الصفحة فقط .

اخي الكريم :)

عملت اللي اقدر عليه :)

الصفحة الآن هكذا:

في السطر الاخضر ، دخل اسم الصفحة اللي على الانترنت ، ودخل كلمة الدخول وكلمة السر ، واوصل لنفس الصفحة اللي ارسلتها لي ،

هنا تقدر تستورد البيانات اللي في الصفحة الى قاعدة بياناتك ، او تصدر بياناتك من قاعدة البيانات (لاحظ رقم الموظف) الى صفحة الانترنت :)

املي ان يكون هذا طلبك :)

جعفر

123.WebImport.mdb.zip

أشكرك أخي جعفر على مساعدتك لي ولك مني وفر التقدير والأحترام .

بس عندي مشكلة تظهر لي رسالة عند الضغط على زر الأمر وهي 424 Object Required 

كيف الحل .

حياك الله اخي :)

توني ماكل صيمه ، فاذا جوابي ريحته فايحه ، تعرف مال مو :)

ادخل VBA

Tools

References

وخبرني اذا شفت احد اﻻسطر اللي عليها عﻻمة صح ، بس مكتوب جنبها Missing

جعفر

بالعافية عليك .

تمام بشوف برد عليك