[sher]

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

و لكم الدعاء بالتوفيق و النجاح

[fouadhdfouad]

كود :

Imports System.Data.SqlClient

Public Class Form1
   Dim connectionString As String = "Data Source=اسم_الخادم;Initial Catalog=اسم_قاعدة_البيانات;User ID=اسم_المستخدم;Password=كلمة_المرور;"
   Dim connection As SqlConnection
   Dim dataAdapter As SqlDataAdapter
   Dim dataTable As DataTable

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' إعداد اتصال القاعدة بيانات واستعداد DataTable
       connection = New SqlConnection(connectionString)
       dataTable = New DataTable()
       DataGridView1.DataSource = dataTable
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim searchName As String = TextBox1.Text.Trim()

       ' التحقق من صحة اسم البحث
       If String.IsNullOrEmpty(searchName) Then
           MessageBox.Show("الرجاء إدخال اسم للبحث.")
           Return
       End If

       Try
           ' إعداد وتنفيذ الاستعلام
           Dim query As String = "SELECT * FROM اسم_الجدول WHERE اسم_العمود LIKE '%" & searchName & "%'"
           dataAdapter = New SqlDataAdapter(query, connection)
           dataTable.Clear()
           dataAdapter.Fill(dataTable)

           ' عرض النتائج في DataGridView
           DataGridView1.DataSource = dataTable
       Catch ex As Exception
           MessageBox.Show("حدث خطأ أثناء البحث: " & ex.Message)
       End Try
   End Sub
End Class