مشكلة فى عرض البيانات

ان كان قصدك البحث

فهذا الكود

Dim conn As New SqlConnection("server = (local); database = Database name ; integrated security =true")

Dim comm As SqlCommand

Dim DA As SqlDataAdapter

Dim DS As DataSet

Dim SQL As String

Dim search As String = TextBox1.Text

If Len(Trim(search)) > 0 Then

SQL = ("select id,name,degree,start,end from اسم الحقل where id like " & "'%" & Replace(search, "'", "'") & "%'")

comm = New SqlCommand(SQL, conn)

DA = New SqlDataAdapter(comm)

DS = New DataSet

DA.Fill(DS)

GridView1.DataSource = (DS)

GridView1.DataBind()

Else : MsgBox(" there is no such value in the database ")

End If

conn.Close()

شرح الكود

الكود يعمل على البحث عن الكلمه الي كتبتها في مربع النص (Text) ويعمل على عرض البيانات في Grid