Private Sub FillCustDataGrid() Try Dim sqlQRY As String sqlQRY = "Select * From Customers WHERE DateAdded >= #" + Today + "#" Dim da As OleDbDataAdapter Dim ds As DataSet = New DataSet da = New OleDbDataAdapter(sqlQRY, cnnOLEDB) Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da) da.Fill(ds, "Customers") DataGridViewCustomer.DataSource = ds DataGridViewCustomer.DataMember = "Customers" lbl_RowCount.Text = DataGridViewCustomer.RowCount Dim row As Integer If DataGridViewCustomer.RowCount > 0 Then row = DataGridViewCustomer.FirstDisplayedCell.RowIndex DataGridViewCustomer.Rows(row).Selected = True DataGridViewCustomer.Sort(DataGridViewCustomer.Columns(6), ListSortDirection.Ascending) If RowIndex_Cust_TXT.Text = vbNullString Then Exit Sub Else Me.DataGridViewCustomer.ClearSelection() Me.DataGridViewCustomer.Rows(RowIndex_Cust_TXT.Text).Selected = True Me.DataGridViewCustomer.FirstDisplayedScrollingRowIndex = RowIndex_Cust_TXT.Text End If Else row = 0 End If Catch ex As OleDbException MessageBox.Show(ex.Message) End Try End Sub
sqlQRY = "Select * From Customers WHERE DateAdded >= #" + Today + "#"
Const sqlQRY As String = "Select * From Customers WHERE DateAdded >= ?" Dim da As New OleDbDataAdapter(sqlQRY, cnnOLEDB) da.SelectCommand.Parameters.AddWithValue("@p0", Today)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)