23-10-18, 02:22 PM
23-10-18, 04:23 PM
كود :
للبحث عن تاريخ واحد
Public Sub search_date()
dt_bank.Clear()
Select Case Me.CmbField.SelectedIndex
Case 11
da_bank = New SqlDataAdapter("SELECT * FROM bank WHERE bank_date = '" & Me.DateTimePicker0.Text & "'order by bank_id", Con)
End Select
da_bank.Fill(dt_bank)
DGVSearch.DataSource = dt_bank
End Subاما للبحث بين تاريخين
كود :
Public Sub search_between2date()
dt_bank.Clear()
Select Case Me.CmbField.SelectedIndex
Case 11
da_bank = New SqlDataAdapter("SELECT * FROM bank WHERE bank_date > '" & Me.DateTimePicker1.Text & "' AND bank_date < '" & Me.DateTimePicker2.Text & "'order by bank_date", Con)
da_bank.Fill(dt_bank)
DGVSearch.DataSource = dt_bank
End Select
End Sub23-10-18, 04:29 PM
كود :
DataGridView1.DataSource = Nothing
Dim sql = "SELECT * FROM tb_name WHERE VoucherDate= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' "
Dim adp As New SqlClient.SqlDataAdapter(sql, cn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
DataGridView1.DataSource = dtكود :
DataGridView1.DataSource = Nothing
Dim sql = "SELECT * from tb_name WHERE VoucherDate>= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "'and VoucherDate<= '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "'ORDER BY VoucherDate "
Dim adp As New SqlClient.SqlDataAdapter(sql, cn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
DataGridView1.DataSource = dt