[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