سؤال:كيف استطيع ان اربط اكثر من قاعدة بيانات في فجول بيسك دوت نت؟

السلام عليكم

يمكنك عمل ذلك من خلال عمل ملف TXT جديد ثم تقوم بتحويل أمتداد الملف من TXT إلى UDL ثم تقوم بفتحه واختيار نوع الداتا المطلوب الربط بها سواء كان أكسيس أو SQL أو أوركل أو ODBC

ثم بعد اختيار البروفيدر تتأكد من جودة الاتصال ثم بعد ذلك تقوم بتحويل الملف إلى ملف TXT وتقوم بنسخ البروفايدر ونقله إلى كود ربط قاعدة البيانات

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

اخي جرب الكود التالي

Imports System.Data.OleDB
Imports System.Data.SqlClient
Imports System.Data.OracleClient

Private Sub btnAccess_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAccess.Click
Dim conn As New OleDBConnection("ConnectionString")
conn.open()
...
conn.Close()
End Sub

Private Sub btnSQLServer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSQLServer.Click
Dim conn As New SqlConnection("ConnectionString")
conn.open()
...
conn.Close()
End Sub

Private Sub btnOracle_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOracle.Click
Dim conn As New OracleConnection("ConnectionString")
conn.open()
...
conn.Close()
End Sub

Mady-AGC كتب:

السلام عليكم

يمكنك عمل ذلك من خلال عمل ملف TXT جديد ثم تقوم بتحويل أمتداد الملف من TXT إلى UDL ثم تقوم بفتحه واختيار نوع الداتا المطلوب الربط بها سواء كان أكسيس أو SQL أو أوركل أو ODBC

ثم بعد اختيار البروفيدر تتأكد من جودة الاتصال ثم بعد ذلك تقوم بتحويل الملف إلى ملف TXT وتقوم بنسخ البروفايدر ونقله إلى كود ربط قاعدة البيانات

وعليكم السلام

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

VB Helper كتب:

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

اخي جرب الكود التالي

Imports System.Data.OleDB
Imports System.Data.SqlClient
Imports System.Data.OracleClient

Private Sub btnAccess_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAccess.Click
Dim conn As New OleDBConnection("ConnectionString")
conn.open()
...
conn.Close()
End Sub

Private Sub btnSQLServer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSQLServer.Click
Dim conn As New SqlConnection("ConnectionString")
conn.open()
...
conn.Close()
End Sub

Private Sub btnOracle_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOracle.Click
Dim conn As New OracleConnection("ConnectionString")
conn.open()
...
conn.Close()
End Sub

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

اشكرك اخي الكريم وإن شاء الله راح اجرب الكود

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

احتاج هذه الخصائص

1.وجود اتصال فيما بين قواعد البيانات المختلفة فمثلا عندما اجري عمليات اضافة او حذف او تحديث ....الخ,اريد هذه العمليات تبقى نفسها من استدعي اي قاعدة بيانات ولا اضطر الى ان اجري عمليات جديدة.

بارك الله بيك اخي