(تمت الاجابة) مثال عمل علاقة راس باطراف بين جدولين عن طريق VBA

[خليفة]

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

اخوتي الاعزاء

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

VBA

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

Sub CreateTblRelation()

   Dim cat As New ADOX.Catalog

   Dim fKey As New ADOX.Key[/left]

[left]On Error GoTo ErrorHandle[/left]

[left]cat.ActiveConnection = CurrentProject.Connection[/left]

[left]With fKey

	  .Name = "fkPubId"

	  .Type = adKeyForeign

	  .RelatedTable = "Employee"

	  .Columns.Append "EmpId"

	  .Columns("Id").RelatedColumn = "PubId"

   End With

   cat.Tables("java2sTable").Keys.Append fKey

   MsgBox "Relationship was created."[/left]

[left]   Set cat = Nothing

   Exit Sub[/left]

[left]ErrorHandle:

   cat.Tables("java2sTable").Keys.Delete "fkPubId"

   Resume

End Sub[/left]

[left]

الرجاء عمل برنامج وشرح الكود

وفقنا الله واياكم لما يحب ويرضى

اخوكم خليفة

تم تعديل سبتمبر 9, 2011 بواسطه خليفة

[أبو آدم]

أخي خليفة

تتحدث عن تطبيقات إنشاء العلاقات بين الجداول عبر الكود

(هناك مشكلة لديك في استخدام محرر الكودات اثناء تحميل مشاركتك،فظهر الكود مشوها )

على كل حال

ارفقت لك مثالا تطبيقيا كطلبك ولعموم الفائدة ، أما كيف يمكن أن تستفيد منه فهذا رهن بك.

لاستخدام الكود يلزمنا استخدام المرجع ( Microsoft ADO Ext 2.5 for DDL and Security ) ، أما الكود فهو في المثال :

Sub Main()

    On Error GoTo CreateKeyError

    Dim kyForeign As New ADOX.Key

    Dim cat As New ADOX.Catalog

    ' Connect to the catalog.

    cat.ActiveConnection = CurrentProject.Connection


    ' Define the foreign key.

    kyForeign.Name = "CustOrder"

    kyForeign.Type = adKeyForeign

    kyForeign.RelatedTable = "Customers"

    kyForeign.Columns.Append "CustomerId"

    kyForeign.Columns("CustomerId").RelatedColumn = "CustomerId"

    kyForeign.UpdateRule = adRICascade


    ' Append the foreign key to the keys collection.

    cat.Tables("Orders").Keys.Append kyForeign


    'Clean up.

    Set cat.ActiveConnection = Nothing

    Set cat = Nothing

    Set kyForeign = Nothing

    Exit Sub


CreateKeyError:

    Set cat = Nothing

    Set kyForeign = Nothing


    If Err <> 0 Then

	    MsgBox Err.Source & "-->" & Err.Description, , "Error"

    End If


End Sub

وهو مشروح وجاهز ، ومبين فيه مراحل التنفيذ ، تعريف قاعدة البيانات ، وتعريف وتحديد المفاتيح ، وتنفيذ العلاقة ، و تفريغ القيم ، ثم معالج الاخطاء

ولغايات توضيح عمل التطبيق ، إتبع الخطوات التالية :

واليك التطبيق ..........

والله من وراء القصد ......

.................

NA_KeysAppendMethod.rar

[خليفة]

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

صبحكم الله بالخير جميعا

جزاك الله كل خير ونفعك بعلمك نعم هذا هو المطلوب

حسب ما قلت احتاج الي مرجع Microsoft ADO Ext 2.5 for DDL and Security

اين اجده وكيف اتاكد انه مثبت عتدي مع العلم اني طبقت مثالك جزاك الله خيرا واشتغل

وفقنا الله واياكم لما يحب ويرضى

اخوكم خليفة

تم تعديل سبتمبر 10, 2011 بواسطه خليفة

[أبو آدم]

الحمد لله الذي بفضله تقضى الحاجات

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

(تمت الاجابة)