الاتصال بقواعد بيانات Oracle من خلال الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الاتصال بقواعد بيانات Oracle من خلال الفجوال بيسك 6

مُساهمة من طرف end.sub في الأربعاء سبتمبر 25, 2013 12:00 pm

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

Microsoft ActiveX Data Objects 2.5 Library
_ واليكم نص الاتصال بقاعدة البيانات

الرمز:
Dim conn As ADODB.Connection

    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Driver={Microsoft ODBC for Oracle};" & _
        "UID=user_name;PWD=user_passsword"
    conn.Open
_ بعد ذلك نقوم بفتح جدول قاعدة البيانات على النحو التالى :

الرمز:
Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "TableName", conn, adOpenDynamic, _
        adLockOptimistic, adCmdTable
_ بعد ذلك نقوم بجلب بيانات الجدول و ليكن فى ListBox على النحو التالى :

الرمز:
Do While Not rs.EOF
        txt = ""
        For Each fld In rs.Fields
            txt = txt & Trim$(fld.Value) & ", "
        Next fld
        If Len(txt) > 0 Then txt = Left$(txt, Len(txt) - 2)
        List1.AddItem txt
        rs.MoveNext
    Loop

    rs.Close
    conn.Close

مع تحياتى للجميع

end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الاتصال بقواعد بيانات Oracle من خلال الفجوال بيسك 6

مُساهمة من طرف محمد الجساري في الأحد سبتمبر 06, 2015 9:56 am

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

محمد الجساري
.
.

تاريخ التسجيل : 12/06/2015
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة : اليمن
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى