مزيكا 3 داى

www.m3day.mam9.com
مرحبا بكم فى بيتكم مزيكا 3 داى ارجو منكم التسجيل والمتابعة معنا جميعا


انضم إلى المنتدى ، فالأمر سريع وسهل

مزيكا 3 داى

www.m3day.mam9.com
مرحبا بكم فى بيتكم مزيكا 3 داى ارجو منكم التسجيل والمتابعة معنا جميعا

مزيكا 3 داى

هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

اهلا بجميع اعضاء وزوار المنتدى الكرام


    ربط الاكسس بالفيجوال بيسك

    avatar
    ronaldo
    مزيكاوى حريف
    مزيكاوى حريف


    عدد المساهمات : 64
    تاريخ التسجيل : 04/10/2011

    ربط الاكسس بالفيجوال بيسك Empty ربط الاكسس بالفيجوال بيسك

    مُساهمة من طرف ronaldo الجمعة أكتوبر 21, 2011 2:21 pm

    هنالك عدة طرق للربط الطريقة الاولى :
    - في حال وجود قاعدة بيانات اسمها Mag2 وكلمة السر هي 1234_1 يكون الربط على الشكل التالي :
    في قسم التصريحات العامة نكتب :

    Public Cn As ADODB.Connection
    Public Cn2 As ADODB.Connection

    Public Sub ConMag2()
    Set Cn2 = New ADODB.Connection
    Cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "" & "mag2.mdb;" & "Jet OLEDBatabase Password=1234_1;"
    End Sub

    الطريقة الثانية :
    - في حال وجود قاعدة بيانات اسمها Mag1 وكلمة السر هي 1234_1 يكون الربط على الشكل التالي :
    في قسم التصريحات العامة نكتب :
    Public PWD As String
    Global sConnect, PWDPWD As String
    Global DB As Database
    Global WS As Workspace

    Global patf1 As As String

    Public Sub ConMag1()
    Dim DS As String
    Patf1 = App.Path + "\MAG1.mdb"
    Patf1 = Trim(Patf1)
    PWDPWD = "1234_1"
    sConnect = ";pwd=" & PWDPWD:
    'gnReadOnly = False
    Set WS = DBEngine.CreateWorkspace("DBTEMP", "ADMIN", "")
    Set DB = OpenDatabase(Patf1, False, False, sConnect)

    End Sub

      مواضيع مماثلة

      -

      الوقت/التاريخ الآن هو الجمعة مارس 29, 2024 10:09 am