[عنوان معدل]ما هي نص الاتصال المناسب للاتصال بقاعدة البيانات

كود :

Imports System.Data.OleDb

Imports System.Data.SqlClient



Module Module1

    Public Conn_Mdb As New OleDbConnection

    Public Conn_Sql As New SqlConnection

    '*************************************

    Public Command_Mdb As New OleDbCommand

    Public Command_Sql As New SqlCommand

    '*************************************

    Public DataAdapter_Mdb As OleDbDataReader

    Public DataAdapter_Sql As SqlDataAdapter

    '*************************************

    Public Sql_Statment_Mdb As String = Nothing

    Public Sql_Statment_Sql As String = Nothing



Sub ConnToDB()Sub ConnToDB()

        Try

            With Conn_Mdb

                If .State = ConnectionState.Open Then .Close()

                ' .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=ADDRESS_BOOK.accdb"

                .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & System.Environment.CurrentDirectory.ToString() & "\ADDRESS_BOOK.accdb;" & "Jet OLEDB:Database Password=" 123456789 ";"

                .Open()

            End With

        Catch ex As Exception

            MessageBox.Show("توجد مشكلة في الاتصال بقاعدة بيانات الدخول", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Application.Exit()

        End Try

    End Sub

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Call ConnToDB()

        Call ConnToSqlServer2005()

        Sql_Statment_Mdb = "SELECT * from setup_server where [ID_CON] = '1' "

        Command_Mdb = New OleDbCommand

        With Command_Mdb

            .CommandText = Sql_Statment_Mdb

            .Connection = Conn_Mdb

            .ExecuteNonQuery()

            DataAdapter_Mdb = Command_Mdb.ExecuteReader

                       DataAdapter_Mdb.Read()

            TextBox6.Text = (DataAdapter_Mdb("id_server"))

                 End With

كود :

"Data Source=Main;Initial Catalog=Master;Persist Security Info=True;User ID=sa;password=;"

كود :

Sub ConnToSqlServer2005()

        Try

            With Conn_Sql

                If .State = ConnectionState.Open Then .Close()

                '********************************************************************************

                'الاستعلام عن جملة الاتصال في ملف الأكسس

                Sql_Statment_Mdb = "SELECT * from setup_server where [ID_CON] = '1' "

                Command_Mdb = New OleDbCommand



                Command_Mdb.CommandText = Sql_Statment_Mdb

                Command_Mdb.Connection = Conn_Mdb

                Command_Mdb.ExecuteNonQuery()

                DataAdapter_Mdb = Command_Mdb.ExecuteReader

                DataAdapter_Mdb.Read()

                ' myqry = (mydr("id_server"))

                '*****************************************************

                Dim xxx As String

                xxx = (DataAdapter_Mdb("id_server"))



                .ConnectionString = xxx



                             .Open()



            End With

        Catch ex As Exception

            MessageBox.Show("توجد مشكلة في الاتصال بقاعدة بيانات سيكوال", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Application.Exit()

        End Try

    End Sub