كود للبحث بين تاريخين..
* 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
* 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