Public Function QueryDatabase(ByVal Query As String, Byval dt as DateTime) As DataTable
Try
Dim objDataSet As New DataSet
Dim objDataTable As New DataTable
Dim objDataAdapter As New SqlDataAdapter(Query, con)
objDataAdapte.SelectCommand.Parameters.AddWithValue("@dt",dt)
objDataAdapter.Fill(objDataSet, "DefaultTable")
objDataTable = objDataSet.Tables("DefaultTable")
con.Close()
Return objDataTable
Catch ex As Exception
MessageBox.Show(ex.Message, "Λάθος", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return DbSwtable
End Try
End Function
call it as
isigroup = objdata.QueryDatabase("SELECT * FROM tblPlan WHERE plan_date >= @dt ORDER BY plan_date", tpDate.Value.Date)