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

'Function for ORACLE Databases
Public Function DBConnectORACLE(ByVal ServerName As String, ByVal UserName As String, ByVal Password As String) As ADODB.Connection
  
   Dim err As Error
   
   On Error GoTo Err_handler
   
   Set cnBilling = New ADODB.Connection
   
   'Define connection parameters
   With cnBilling
       .Provider = "MSDAORA"
       .Properties("Data Source").Value = ServerName
       .Properties("User ID").Value = UserName
       .Properties("Password").Value = Password
       .Open
   End With
     
   'Passing connection to called procedure
   Set DBConnectORACLE = cnBilling
   
   Exit Function
'Handling all errors
Err_handler:
    For Each err In cnBilling.Errors
       MsgBox err.Description
    Next
   
End Function


Public Function AssignDB() As ADODB.Connection
   'This function to connect to database
   Dim objDBConnect As DBAccess.DBConnect
       
   On Error GoTo Err_handler
   
   Set objDBConnect = New DBAccess.DBConnect
   Set AssignDB = objDBConnect.DBConnectORACLE("ESL", "billing", "billing")
   Exit Function
   
Err_handler:
MsgBox "Connection to Database is failed ...!", vbCritical, "Connecting to Database"

End Function

إن شاء الله تعرف كيف تستخدم هذا ال function بسهولة

الرفع للاهميه

لقد قمت بكتابة الكود الخاص بربط فيجوال بيسك6 بالوراكل كالتالى

provider=MSDAORA;data ource=D_S;userid=system;password=manager

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

run time error '-2147467259(80004005) '

Oracle error ocured,but error message could not be retrived from Oracle

فما الحل أفادكم الله

الاخ العزيز

هذا كود لربط الفيجوال بيسك بالاوراكل مجرب ومضمون 100%

اول شي لازم تضيف

oracle inproc server 3.0 type library

علىProject -> references

وبعدها تكتب الكود

Dim ses As OraSessionClass
Dim database As OraDatabase
Dim dyn As OraDynaset

Set ses = CreateObject("oracleinprocserver.xorasession")

Set database = ses.OpenDatabase("rce", "scott/tiger", 0&)

Set dyn = database.CreateDynaset("select * from emp", 0&)

MsgBox (dyn.Fields("empno"))

حيث

rce اسم قاعدة البيانات الي انت اخترته عند تنزيل اوراكل

scott/tiger اسم المستخدم وكلمة المرور

والباقي مثال من جدول موجود على scott اسمه emp

إن شاء الله انه يمشي معك حتى لو في دفيلوبر على الجهاز

الاخوة الاعزاء / بعد التحية

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

Dim ses As OraSessionClass
Dim database As OraDatabase
Dim dyn As OraDynaset

Set ses = CreateObject("oracleinprocserver.xorasession")

Set database = ses.OpenDatabase("ORCL", "scott/tiger", 0&)

Set dyn = database.CreateDynaset("select * from emp", 0&)

MsgBox (dyn.Fields("empno"))

جربت هذه الطريق لكن لم تنفع معي

يضهر رسالة مفادها :

Unable to make connection, ORA-12535: TNS: انتهى وقت العملية

فما المشكله راعاكم الله؟

هل ينجح الاتصال معك في بداية الامر؟

هل جربت الاتصال عن طريق الـ UDL ؟ للتاكد من ان الاتصال ناجح

UDL بدل ORCL ؟

ما اقصده بخصوص الـ UDL ستجده في هذا الموضوع .

- الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL, افضل طريقة ,خطوة خطوة , تفضلوا بالتعرف عليها !

بالتوفيق ,,,,

A7med_prof