الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يتم الربط فى ال vb6 بين الداو أو الآدو أو الداتا كنترول وبين SQL Oracle

مغلق
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

من الأخ المسلم (أسامه عبد الصادق)

أرجو الإفادة

كيف يتم الربط فى الـ vb6 بين الداو أو الآدو أو الداتا كنترول وبين SQL Oracle

وقد طلبت ذلك الطلب من قبل ولكن قيل لى فى الردود إستخدم لغة الجافا كيف ذلك يعنى أتعلم لغة برمجة جديدة لأربط بين SQL و ADO .

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

مع تحيات الأخ المسلم (أسامه عبد الصادق)

ekwan-logo1.gif

[/وسط]

#2

لا اعرف مالمقصود ب SQL ORacle لكن للربط مع قاعدة بيانات اوراكل

Dim con As New ADODB.Connection

Dim strCon as string
strCon = "Driver={Microsoft ODBC for Oracle}; " & _
		 "CONNECTSTRING=(DESCRIPTION=" & _
		 "(ADDRESS=(PROTOCOL=TCP)" & _
		 "(HOST=MyComputer)(PORT=1521))" & _
		 "(CONNECT_DATA=(SERVICE_NAME=XE))); uid=hr;pwd=tareq;"

  con.Open strCon

هذا اتصال كنت عملته لاوراكل 10G

#3

أعنى كيفية الربط بين vb6 والأوراكل بدلا من الأكسس

[/وسط]

#4

اذا كان كذلك فانظر المشاركة الاولى فبها ما تريد حيث الاختلاف عن الاكسس هو في connectionstring .

بحاجة الى تغيير hostname والتي هي اسم الجهاز الذي عليه الاوراكل

service_name اسم خادم اوراكل او ما يسمى tns name

وكذلك uid pwd

#5

هناك خطأ

هل يتطلب تحميل نسخة اوراكل client ليعمل ام هناك component يجب تحميلها اولا

مهندس اتصالات

#6

على الاكيد بحاجة الى تنزيل بعض الادوات سواءا ODBC او Oracle OLEDB كذلك كما في المثال ال tns names هذه من الكلينت للاوراكل .

#7

السلام عليكم

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

اقتباس
لا اعرف مالمقصود ب SQL ORacle لكن للربط مع قاعدة بيانات اوراكل

أما عن كود الأتصال فهو بعد أضافة مكتبة الأدو

Private Sub Form_Load()
cn.Open "provider=oraoledb.oracle.1;password=774444;user id=system"
rsitem.ActiveConnection = cn
rsitem.Source = "select * from items"
rsitem.CursorType = adOpenDynamic
rsitem.LockType = adLockOptimistic
rsitem.CursorLocation = adUseClient
rsitem.Open

مع ملاحظة أن rsitem هو متفير يرمز للجدول items

سبحان الله وبحمده سبحان الله العظيم

s.gif

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…