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

بخصوص الربط مع SQL Server انظر

/index.ph...ndpost&p=199710

وفي انتظار خبراء الأوراكل ليفيدونا حول طريقة الربط مع أوراكل.

للربط مع الاستعلام ،أبدل اسم الجدول باسم الاستعلام ، مثلا:

rs=cn.execute "Select * from some_view"

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

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

بإستخدام خاصية ado للنماذج قم بوضع الشفرة التالية :

Private Sub Form_Load()

dim cnn1 As ADODB.Connection

dim rstAllBranches As ADODB.Recordset

dim strCnn As String

strCnn = "PROVIDER=MSDASQL;dsn=SB SQL Server;uid=sa;pwd=;database=SBData;"

Set cnn1 = New ADODB.Connection

cnn1.Open strCnn

Set rstAllBranches = New ADODB.Recordset

rstAllBranches.CursorType = adOpenKeyset

rstAllBranches.LockType = adLockOptimistic

rstAllBranches.Open "SELECT * FROM AllBranches", cnn1

Dim oText As TextBox

For Each oText In Me.txtFields

Set oText.DataSource = rstAllBranches

Me.txtFields.Item(0).Enabled = False

Next

mbDataChanged = False

مع التوفيق

شكرا شاباب

يعني معناه اني ممكن اربط ربط متكامل مع الاس كيو ال سرفر وكمان مع الاوراكل

:)

طارق إبراهيم كتب:

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

←

:) لقد قمت بكتابة الكود الخاص بربط فيجوال بيسك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

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

Private Sub Form_Load()

dim cnn1 As ADODB.Connection
dim rstAllBranches As ADODB.Recordset

dim strCnn As String


strCnn = "PROVIDER=MSDASQL;dsn=SB SQL Server;uid=sa;pwd=;database=SBData;"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

Set rstAllBranches = New ADODB.Recordset
rstAllBranches.CursorType = adOpenKeyset
rstAllBranches.LockType = adLockOptimistic
rstAllBranches.Open "SELECT * FROM AllBranches", cnn1
Dim oText As TextBox

For Each oText In Me.txtFields
Set oText.DataSource = rstAllBranches
Me.txtFields.Item(0).Enabled = False
Next
mbDataChanged = False
end sub

هل من الممكن احد يتفضل علينا ويبين مالذي يتغير بالكود ... لأن الكود بصراحه مو باين معي..

اريد كتابته بشكر كود عام ... يتعامل مع scott/tiger

وشكرا