كود للبحث بين تاريخين..


* Maximum عدد المراحل ، أو Minimum فهو الرقم الأقل ، الخاصية Value تحدد القيمة الحالية أما الخاصية PerformStep فتقوم بزيادة مرحلة حسب المحدد من خاصية Step .



​
كود للبحث بين تاريخين..

كود:

Imports System.Data, System.Data.OleDb
Public Class Form3

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\DataBase.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SQLstr As String = "SELECT * FROM TableName WHERE FieldName Between ‘" & Me.textbox1.Text & "’ and ‘" & Me.textbox2.Text & "’"
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "TableName")
Conn.Close()
Me.DataGridView1.DataSource = DataSet1
Me.DataGridView1.DataMember = "TableName"
If Me.BindingContext(DataSet1, "TableName").Count = 0 Then
MsgBox("No Result, Please Try Again ")
Exit Sub
End If
End Sub

مع ضرورة تنسيق التاريخ

كود:

Dim x As String
Dim d As Date = CDate(TextBox1.Text)
x = Format(d, "dd/MM/yyyy")



​
لجعل الفورم دوماً في المقدمة


​
كود:

أسهل كود من A-REG'
Me.TopMost = True