انا عملت نموذج لاظهار بيانات عن اسماء اوجدت عندي .. وفي هذا المشروع صممت فورم خاص بالبحث عن الاسماء الموجوده في قاعدة البيانات .. ويوجد عندي في قاعدة البيانات اسماء مثل :
احمد
محمد
حسن
حسنين
اريد ان ابحث عن "ح" .. سؤالي هو كيف عندما ابحث عن "ح" يظهر لي جميع الاسماء التي يوجد بها "ح" في البداية او النهاية او في الوسط ؟؟؟ شكرا ليكم
انا عملت صورة مموضح ليكم شوية
وده الكود بتاع الفورم
Imports System.Data
Imports System.Data.OleDb
Public Class searchform
Dim main As New Mainform
Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\data1.mdb"
Dim newconnection As New OleDbConnection(Connectionstring)
Dim DataSet1 As New DataSet
Dim SQLstr As String
Dim m As String
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newconnection)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static m As Integer = 0
If TextBox1.Text = Trim("") Then
Exit Sub
ElseIf RadioButton7.Checked = True Then
ExactSearch()
ElseIf RadioButton6.Checked = True Then
GeneralSearch()
End If
newconnection.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newconnection)
DataAdapter1.Fill(DataSet1, "TableA")
newconnection.Close()
TextBox2.DataBindings.Add("Text", DataSet1, "TableA.الاسم")
TextBox3.DataBindings.Add("Text", DataSet1, "TableA.العمر")
TextBox4.DataBindings.Add("Text", DataSet1, "TableA.الجنس")
TextBox5.DataBindings.Add("Text", DataSet1, "TableA.الهاتف")
TextBox6.DataBindings.Add("Text", DataSet1, "TableA.العنوان")
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "TableA"
DataGridView1.AllowDrop = True
Button1.Enabled = False
If Me.BindingContext(DataSet1, "TableA").Count = 0 Then
MsgBox("No Result, Please Try Again ")
Exit Sub
End If
End Sub
Public Sub ExactSearch()
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الاسم = '" & TextBox1.Text & "'"
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العمر = '" & TextBox1.Text & "'"
ElseIf RadioButton3.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الجنس = '" & TextBox1.Text & "'"
ElseIf RadioButton4.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الهاتف = '" & TextBox1.Text & "'"
ElseIf RadioButton5.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العنوان = '" & TextBox1.Text & "'"
End If
End Sub
Public Sub GeneralSearch()
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الاسم LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العمر LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton3.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الجنس LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton4.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الهاتف LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton5.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العنوان LIKE '%" & TextBox1.Text & "%'"
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
main.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox4.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Button1.Enabled = True
SQLstr = ""
DataSet1.Clear()
Me.DataGridView1.DataSource = Nothing
End Sub
Private Sub searchform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RadioButton1.Checked = True
RadioButton6.Checked = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Obj1 As Object
Obj1 = CreateObject("powerpoint.application")
Obj1.Visible = True
Obj1.Presentations.Open(FileName:="H:\تعديل\أ\أبارك الرب في كل حين.ppt")
End Sub
End Classودي الصورة التوضيحية
