[sher]

التحية و السلام اخوتي الكرام

اريد طريقة للبحث عن اسم في اكثر من قاعدة بيانات موجودة على نفس السيرفر و اريد بمجرد البحث عرضه في داتا جريد فيو

مع العلم تم برمجة البرنامج بلغة vb.net


ولكم جزيل الشكر

[تركي الحلواني]

PHP كود :

Imports System.Data.SqlClient
Imports System.Data

Public Class Form1
    Private Sub SearchButton_Click(sender As Object, e As EventArgs) Handles SearchButton.Click
        Dim serverName As String = "YourServerName"
        Dim databases As String() = {"Database1", "Database2"} ' قواعد البيانات المراد البحث فيها
        Dim searchName As String = SearchTextBox.Text.Trim()

        Dim dataTable As New DataTable()

        For Each dbName In databases
            Using connection As New SqlConnection($"Data Source={serverName};Initial Catalog={dbName};Integrated Security=True")
                connection.Open()

                Dim query As String = $"SELECT * FROM YourTableName WHERE Name LIKE '%{searchName}%'"
                Using adapter As New SqlDataAdapter(query, connection)
                    adapter.Fill(dataTable)
                End Using
            End Using
        Next

        DataGridView1.DataSource = dataTable
    End Sub
End Class 


[aljzazy]

كود :

Public Function SearchInDatabases(searchText As String, connectionStrings As List(Of String)) As DataTable
   Dim resultTable As New DataTable()

   Try
       For Each connectionString As String In connectionStrings
           Using connection As New SqlConnection(connectionString)
               Dim query As String = "SELECT * FROM YourTableName WHERE YourColumnName LIKE '%' + @SearchText + '%'"
               Using command As New SqlCommand(query, connection)
                   command.Parameters.AddWithValue("@SearchText", searchText)

                   Dim adapter As New SqlDataAdapter(command)
                   adapter.Fill(resultTable)
               End Using
           End Using
       Next
   Catch ex As Exception
       ' Handle exception, logging, etc.
   End Try

   Return resultTable
End Function

كود :

Sub Main()
   Dim searchText As String = "YourSearchText"
   Dim connectionStrings As New List(Of String)()
   
   ' Add your SQL Server connection strings here
   connectionStrings.Add("YourConnectionString1")
   connectionStrings.Add("YourConnectionString2")
   ' ... add more connection strings if needed
   
   Dim searchResults As DataTable = SearchInDatabases(searchText, connectionStrings)
   
 
End Sub