[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