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

[محمد القدسي]

السلام عليكم

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

  Dim path As String
"path = "E:\SYSTEMES\systemdatdes\alldatkasdi_sy_2021.sys

SQL = "UPDATE MSysddopen_uses  in '" & path & " ' SET MSysddopen_uses.[open] = Yes, MSysddopen_uses.idtypee = [idtyp], MSysddopen_uses.user_name = [user], MSysddopen_uses.typ = Yes WHERE (((MSysddopen_uses.ID)=idMSys));"
DoCmd.RunSQL (SQL)

[محمد أبوعبدالله]

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

تفضل اخي الكريم

هذا الموضوع سيفيدك باذن الله

تحياتي

[د.كاف يار]

تفضل هذا الكود الخاص بتحديث ربط قاعدة البيانات

Dim strDbFile As String
Dim strPassword As String
Dim strConnect As String

    strDbFile = CurrentProject.Path & "\Data.mdb"
    strPassword = "Password"
    strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile

    Dim tdf As DAO.TableDef
    Dim db As DAO.Database

    Set db = CurrentDb

    For Each tdf In db.TableDefs
        ' ignore system and temp tables
        If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
            tdf.Connect = strConnect
            tdf.RefreshLink
        End If
    Next

 

[محمد القدسي]

طيب استاذي @د.كاف يار كيف يكون تطبيق كود تحديث السجل

واين يوضع في هذا الكود

بمعنى كيف نطبق التحديث هنا

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

[د.كاف يار]

7 ساعات مضت, محمد القدسي said:

طيب استاذي @د.كاف يار كيف يكون تطبيق كود تحديث السجل

واين يوضع في هذا الكود

بمعنى كيف نطبق التحديث هنا

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

في حدث عند فتح النموذج الرئيسي

و يفضل وضعه عند الخطأ اثناء فتح النموذج

[محمد القدسي]

updaterecord.rar

updaterecord.rar

استاذي العزيز ولو اثقلت عليك اريد تطبيق ما تفضلت به بالتطبيق على المرفق

بحيث اريد تحديق السجل الذي يحمل ال id رقم9 والموجود في قاعدة datatable

وبها كلمة مرور 123 وذلك بواسطة القاعدة الاخرى dataform 

ولك مني جزيل الشكر

 

عفوا تكررت قاعدة المثال بالخطأ

[د.كاف يار]

تفضل هذا التعديل

كلمة المرور للإتصال بقاعدة البيانات هي 123456

يمكنك تغييرها من خلال الدخول للكود

الألية للربط بما انك قمت برفع ملف غير متصل بالأساس بقاعدة بيانات فقد قررت تغيير التكنيك للربط

بحيث يتم حذف اي ارتبطات سابقة و انشاء ربط جديد مع قاعدة البيانات

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

 

للتجربة بعد تحميل الملف ستجد ازرار بإسم تسجيل الدخول اضغط عليه لتبدء العمل

<<<<< نصيحتى لك قم بإغلاق محرر الأكواد برقم سري و ذلك عند حدوث اي خطأ في البرنامج فلن يكون لدى المستخدم  اي مجال للعبث >>>>>>

تفضل التعديل

 

dataform.zip

تم تعديل يوليو 17, 2021 بواسطه د.كاف يار

[محمد القدسي]

اشكرك استاذي 

وكود رائع للاتصال والربط بالقاعدة الخارجية

فجزاك الله خيرا استاذي وبارك الله في الجميع

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

واشكرك ايضا على هذه النصيحة 

ولاكن الا يكفي تحويل القاعدة الى صيغة accde

لحماية الاكواد