Public Class frmSearch
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CountWord As Integer
Dim i As Integer
i = 0
Dim SQLs1 As String
SQLs1 = ""
Dim MainString As String
MainString = TextBox1.Text
Dim values As String()
values = MainString.Split(New Char() {" "})
CountWord = values.Length
For i = 0 To CountWord
If i = 0 Then
SQLs1 = "select * from tbl_Company where Comp_name LIKE'%" + values(0) + "%'"
Else
If i = CountWord Then
GoTo Conndb
End If
SQLs1 = SQLs1 + " and Comp_name LIKE'%" + values(i) + "%'"
End If
Next i
Conndb:
Dim db As New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + Application.StartupPath + "/db1.mdb")
db.Open()
Dim ad As New OleDbDataAdapter(SQLs1, db)
Dim da As New DataSet
ad.Fill(da, "tbl_Company")
DataGridView1.DataSource = da
DataGridView1.DataMember = "tbl_Company"
End Sub
End Class
لو سمحتم اريد شرح للكود هذا