+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] البحث في اكثر من قاعدة بيانات (/showthread.php?tid=46737)
البحث في اكثر من قاعدة بيانات - sher - 15-08-23
التحية و السلام اخوتي الكرام
اريد طريقة للبحث عن اسم في اكثر من قاعدة بيانات موجودة على نفس السيرفر و اريد بمجرد البحث عرضه في داتا جريد فيو
مع العلم تم برمجة البرنامج بلغة vb.net
ولكم جزيل الشكر
RE: البحث في اكثر من قاعدة بيانات - تركي الحلواني - 17-08-23
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
RE: البحث في اكثر من قاعدة بيانات - aljzazy - 17-08-23
كود :
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