Dim data1 As String Dim conn1 As SqlConnection Dim cmd1 As New SqlCommand><< Dim ada1 As New SqlDataAdapter() Dim ds1 As New DataSet data1 = lbldmdate.Text.ToString() conn1 = New SqlConnection("Persist Security Info=false;User Id=justin;Data Source=ARULJUSTIN\SQLEXPRESS;Initial Catalog=firemaintain;Integrated Security=True;Pooling=False") conn1.Open() ada1 = New SqlDataAdapter("select Recordno, uhnumber,uhbuilding,uhlocation from hydrantmaintain WHERE unndate= '" & Today.ToString("dd/mm/yyyy") & "'", conn) ada1.Fill(ds1) dgnxtmdates.DataSource = ds1.Tables(0)
"select Recordno, uhnumber,uhbuilding,uhlocation from hydrantmaintain WHERE CONVERT(DATE,unndate)= '" & Today.ToString("yyyy-MM-dd") & "'"
"select Recordno, uhnumber,uhbuilding,uhlocation from hydrantmaintain WHERE CONVERT(DATE,unndate)= '" & Today.Day & "'"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)