Elsayed Bn Gemy

31 دقائق مضت, albokhiti said:

السلام عليكم

فعلا موضوع اكثر من رائع

بس هل بتنفع الطريقة مع اكسس 2003

تنفع لو فتحتها باكسس اصدار احدث 

شكرا يا برنس 

طبعا حماية اكثر من الاكسس 

ولكن المشكلة تكمن فى الحفاظ على نظام التشغيل  واخر باك اب لديك 

بعد كدا متقلقش وسيبها على الله ههههههههههه

مرة اخرى اسعد بتعليقكم 

 

شكر الله لك اخى الكريم بوركت وطاب ممشاك 

جزاك الله خيرا وبارك الله لك

 

للاسف لم الاحظ موضوع اخى ايمن 

ولكن هو اصدق منى لسانا واوفي شرحا بارك الله لكما 

بسم الله الرحمن الرحيم

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

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

الموضوع ببساطة هو تحويل قاعدة بياناتاك من  Access الى  Sql  تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى

طريقة العمل

المتطلبات
------------------

1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express

لينك  التحميل    https://www.microsoft.com/en-us/download/details.aspx?id=22985

 

2 -  سيكوال سيرفير 2008 R2

لينك التحميل    https://www.microsoft.com/en-us/download/details.aspx?id=30438

 

3- اوفيس اصدار 2007 فما فوق

 

--------------------------------

شرح بسيط

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

بس كدا هههههههههه

 

طريقة العمل

 

اول هنسطب السيرفر المحلى ( سيكوال سيرفير 2008 R2  )

طريقة تسطيب هتلاقوها فى الفيديو دا

 

 

 

ثانيا تثبيت Microsoft SQL Server 2008 R2 RTM - Management Studio Express

 

وهتلاقو طريقة التثبيت فى الفيديو دا 

 

 

 

نخش بقى على المهم

 

بعد التثبيت هنفتح Management Studio Express

هتلاقوه فاتح الشاشة دى

 

هتكتب فى اسم السيرفير  

.\SQLEXPRESS

وبعدين connect

هتطلعلك الشاشة دى كليك يمين واختار داتابيز جديدة زى الصورة بالظبط

 

هتظهرلك شاشة التالية هنكتب فيها اسم قاعدة بيانات اللى انت عاوزها   وبعدين OK

 

بعد كدا هتظهرلك قاعدة بايناتاك ضمن قواعد البيانات  زى اللى فى الشاشة التالية لو مظهرتش كليك يمين ورفريش  هتظهر معاك على طول

 

---------------------------------------------------

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

فاضل بقى نظهر قاعدة البيانات للاكسس علشان يقدر يشوفها على السيرفير المحل   تابع معايا

اولا من قائمة استارت اختار بحث او ابحث عن البرنامج الاتى

odbc data sources

افتحه هيظهرلك الشاشة دى  اختار Add

 

بعد كدا هتظهرلك دى  اختار Sql Server  وبعدين Finsh

 

 

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

.\SQLEXPRESS

وبعد كدا Next

 

هتظهرلك الشاشة دى  اختار منها Next

هتظهر الشاشة دى  علم على اللى فى الصورة  واختار منها قاعدة بياناتك اللى انت انشأتها

بعد كدا هتظهر اخر شاشة  دى اختار منها Finsh

 

هتظهرلك شاشة تاكيد اختار منها OK  وممكن تعمل منها تيست لقاعدة البيانات تشوفها متصلة ولا لا

 

 

بعد كدا  هتلاقى قاعدة بياناتك ظاهرة فى كما فى الشاشة التالية

 

---------------------------------------------

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

 هتفتح الاكسس

وكليك يمين على الجدول  نختار الاتى

 

بعد كدا

 

 

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

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

 

بعد كدا الاتباط بمصر البيانات علشان يعمل لينك للجدول بين السيكوال والاكسس

 

بعد كدا  اختار قاعدة البيانات بتاعتنا

 

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

 

اختاره واضغط اوكيه

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

 

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

 

 

 والجدول ظاهر بكل بياناته

 

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

 

شكرا لكم

 

 

 

 

 

 

لا اكسس فقط

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

عذرا اخى عصام المشكلة كانت غباء شخصى منى لم اتنبه الى انى يجب ان اقوم بتشغيل الاسكربت بعد حفظه ههههههههههه عزرا اخى
 

 

وهذا ما كنت اعتقده انه بمجرد حفظ الاسكربت فى نفس مسار قاعدة البيانات يمكننى تشغيل قاعدة البيانات مخفضة الامان دون فتح الاسكربت

عموما حبيت اساعد  

هذه الاداة قمت بتصميمها  من نوع .exe 

ضعها فى نفس مسار قاعدة البيانات
قم بتسمية قاعدة البايانات الى AccessSoft
ولا تقلق من حيث امتداد قاعدة البيانات فقط قم باعدة تسميتها فقط الى AccessSoft 

ولاحقا يمكنك تسمية الاداة باى اسم تريده  لانها تلقائيا تقوم بعمل اختصار لها عل سطح المكتب تستطع تشغيل قاعدة البيانات من خلاله

الاداة تقوم بتخفيض امان الاكسس حتى اكسس 2016 

هذه الاداة

 

الاداة 

BnGemy.rar

عفوا اشتغل تمام زى الفل

 

 

 

 

 

هذه الصورة للتاكيد مع العلم انى قمت بتغيير المسار كما اشرت سابقا
شكرا لك جهودك الرائعة اخى الكريم

المسار عندى
 

C:\Program Files (x86)\Microsoft Office\Office15

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

للاسف لم يعمل معى
 اوفيس 2013   32Bit
ويندوز     8         64bit
قمت بتغيير المسار الى 15.0  ولا كن لا يعمل

هذا الكود المستخدم

 

 Const HKEY_CURRENT_USER = &H80000001
 
    Dim oRegistry    
    Dim sPath    
    Dim sDescription    
    Dim bAllowSubFolders    
    Dim bAllowNetworkLocations    
    Dim bAlreadyExists    
    Dim sParentKey    
    Dim iLocCounter    
    Dim arrChildKeys    
    Dim sChildKey    
    Dim sValue    
    Dim sNewKey    

    Set WshShell = CreateObject("WScript.Shell")
    strCurDir = WshShell.CurrentDirectory

    Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
    sPath = strCurDir 

    sDescription = "YourTrustedLocationDescriptionGoesHere"
    bAllowSubFolders = True
    bAlreadyExists = False

    sParentKey = "Software\Microsoft\Office\15.0\Access\Security\Trusted Locations"
'    sParentKey = "Software\Microsoft\Office\15.0\Excel\Security\Trusted Locations"
'    sParentKey = "Software\Microsoft\Office\15.0\PowerPoint\Security\Trusted Locations"
'    sParentKey = "Software\Microsoft\Office\15.0\Word\Security\Trusted Locations"
    iLocCounter = 0
    oRegistry.EnumKey HKEY_CURRENT_USER, sParentKey, arrChildKeys
    For Each sChildKey in arrChildKeys
        oRegistry.GetStringValue HKEY_CURRENT_USER, sParentKey & "\" & sChildKey, "Description", sValue
         If sValue = sDescription Then bAlreadyExists = True

        If CInt(Mid(sChildKey, 9)) > iLocCounter Then
                iLocCounter = CInt(Mid(sChildKey, 9))
            End If
    Next

    'If bAlreadyExists = False Then
        sNewKey = sParentKey & "\Location" & CStr(iLocCounter + 1)

        oRegistry.CreateKey HKEY_CURRENT_USER, sNewKey
        oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Path", sPath
        oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Description", sDescription

        If bAllowSubFolders Then
            oRegistry.SetDWORDValue HKEY_CURRENT_USER, sNewKey, "AllowSubFolders", 1

        End If 

 

14 دقائق مضت, حسين العربى said:

شكرا لك اخي الفاضل علي مرورك الطيب واهتمامك

ياريت بعض الاخوه يشاركنا افكاره

حاسك زعلان انى علقت انا اسف

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

طبعا لازم يكون معاك السيرفر واسم قاعدة البيانات واسم الجدول

عمتا جرب دا 

 

INSERT INTO
[ODBC;DRIVER=SQL Server;Server=servername;Database=dbname;Integrated Security=SSPI].Table1
SELECT * FROM Table1

 

للاسف لا 

ولكن ما التحديث الذى تطمع ان يكون به يا اخى 

هذه هى المكتبة التى يجب تثبيتها اولا لكى تعمل الاداة الاولى

axload05reg.rar

 

بعد تسجيلها قم بتسجيل الاداة مرة اخرى وان شاء الله تعمل

4 ساعات مضت, essam rabea said:

اخى Elsayed Bn Gemy هو المشكلة بالنسبالى ليه شغالة عندك ومش شغالة عندنا  .. جهازك أحسن من جهازى فى ايه 

ولكن بعد كل هذا 

شغلنا الاولى بقى الله لا يسيئك.

بارك الله فيك اخى الكريم وجزاك الله خيرا 

جهازى ليس احسن ولكن هناك مكتبة اخرى يجب تثبيتها هذه هى الأفضلية بين جهازك وجهازى  هههههههههههه

الحمد لله شكرا لله ثم انتم اخوانى

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

اما الاداة الجديدة اعتقد انها تحتاج الى بعض التحسينات
مثل تغيير اللون الخاص بالبروجرسبار
 تغيير نوعه 

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

هل توافقونى الراى ؟
 

مرة اخرى بجد بشكركم من اعماق قلبى

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

هذه اداة جديدة اذا اضيفت لديكم وتم تسجيلها  اكون قد عرفت المشكلة فى الاداة السابقة

axprogressbar05.rar

ستجدونها بهذا الاسم

 اتفقنا لا يأس ههههههههههه

هل تم اضافة ملف tlp  الى  referencce  فى محرر الاكواد
 

 

اذا لم يتم الاضافة   بعد التسجيل ستجد الملف قد تم انشائه فى نفس مسار الاداه

افتح محرر الاكواد

 واختر

 

ثم اختار الملف axload5.tlb

فى نفس مسار الاداة
 

 

 

لعل الامل يكون فى ويندوز 10

essam rabea

 

ما الاخبار لديك اخى الكريم ؟ ؟

اخى صالح هل المسار التالى موجود لديك
C:\Windows\Microsoft.NET\Framework\v4.0.30319

؟؟؟

اعتقد انى توصلت الى خطأ ما فى اداة التسجيل

الا وهو مسار الفريمورك   كل اصدار لنظام التشغيل يختلف معه مسار netframwork 
مثلا 32 بت  تجد المسار هو
C:\Windows\Microsoft.NET\Framework

اما 64 بت تجد المسار هو

C:\Windows\Microsoft.NET\Framework64

اصدار 32 bit

تسجيل الاداة - 32bit.rar

 

 

اصدار 64bit

تسجيل الاداة - 64bit.rar

 

 

فقط قم بتغيير المسار الخاص بالاداة  ثم احفظ وقم بتشغيلها كمسؤول

وبعد التسجيل ستجد فى عناصر تحكم active x  تم تسجيل نسخة اخرى من الاداة فقط قم بتجربة الثانية الجديدة او اللى تشتغل معاك ههههههههههههه

ومرة اخرى شكرا والله لطول صبركم
 

 

 

انا جالى احباط يا ابا جودى هههههههههههه 

مع العلم انى جربتها على اكثر من نظام تشغيل 

بارك الله فيك يا اخى الكريم  ال current system local  

فقط اود ان انوه  يجب عليك فحص النموذج الذى ستضع فيه axload5   قد يكون هناك اسماء  بعض الكائنات  قد اضيف لها رموز غريبة او ما شابه ذلك


مع العلم ان استخدم نفس اصدار نظام التشغيل لديك

السلام عليكم ورحمة الله تعالى تم اضافة بعض الخصائص
الان يمكنك تغيير نوع البروجرسبار

 

 

 

وهذا فيديو لطريقة العمل

 

 

 

ولكن لن اضيفها الان حتى اتاكد من الاخوة هل تعمل المكتبة معهم  ام لا

السلام عليكم تم تعديل بعض الاكواد داخل المكتبة وهذه هى بعد التعديل

يجماعة مش عاوزكم تيأسو هههههههههههه عاوزين نخرج المشروع جدا للنور هنستفاد منه كتير والله فى الاكسس

وجزاكم الله خير الجزاء

 

axload5.rar

 

اما رسالتك هذه اخى الكريم تفيد ان مساء المكتبة غير صحيح قم بتعديل مسار المكتبة اولا ثم احفظ وافتح الملف كمسؤول  (Run as admistroter )