كود :
Public Class Form1
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
Dim con As New OleDb.OleDbConnection(str)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
d.ColumnCount = 2
d.Columns(0).Name = "N"
d.Columns(1).Name = "Age"
Dim sql As String = "select * from tb where age between " & Val(t1.Text) & " and " & Val(t2.Text) & ""
Dim cm As New OleDb.OleDbCommand("", con)
cm.Parameters.Clear()
cm.CommandText = sql
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim dr As OleDb.OleDbDataReader = cm.ExecuteReader
If dr.HasRows Then
Do While dr.Read
Dim row As String() = New String() {dr.Item("tn"), dr.Item("age")}
d.Rows.Add(row)
Loop
End If
End Sub
End Classهذي فكرة اعمار اشخاص يبحث عن من اعمارهم بين 20 و 40 مثلا
ولو احببت البحث فقط عن من اعمارهم 40 يمكنك التعديل بالكود بكل سهولة
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
