W
Walter
Hello, I am a newbie to this. I have the following code.
I have a query which gets the data from the SQL Server. On the server the
date is formatted as 'yyyy-MM-dd HH:MM:SS'
If I run the application, the date is being displayed as 'MM/dd/yyyy
HH:MM:SS AM/PM'
Is there anyone who can help me to get the date into the right format.
Thanks
/*** Start code ***/
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
End Sub
sub TextBox1_TextChanged(Sender As Object, E As EventArgs)
Datalist1.DataSource = GetInfoSSCC(mid(TextBox1.text, 3, 18))
DataList1.DataBind()
end sub
Sub ApplyFilter_Click(Sender As Object, E As EventArgs)
Datalist1.DataSource = GetInfoSSCC(mid(TextBox1.text, 3, 18))
DataList1.DataBind()
End Sub
Function GetInfoSSCC(ByVal sSCC As String) As System.Data.DataSet
Dim connectionString As String = "server='OLNSQL03'; user
id='sa'; password=''; database='APPL_WTP'"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.SqlClient.SqlConnection(connectionString)
Dim queryString As String = "SELECT
[INFO_SSCC].[SSCC],[INFO_SSCC].[ITEM_CODE],[INFO_SSCC].[CASECOUNT],[INFO_SSCC].[LANDCODE]," & _
"[INFO_SSCC].[BESTEMMINGSCODE],[INFO_SSCC].[PRODUCTION_DATE],[INFO_SSCC].[PROD_DATE_LAST]," & _
"[INFO_SSCC].[BEST_BEFORE_DATE],[INFO_SSCC].[LOG_DATE],[INFO_SSCC].[BATCH_CODE],[INFO_LIJN].[SKEPCODE]," & _
"[INFO_STATUS].[STATUS_OMSCHRIJVING] FROM [INFO_SSCC] INNER JOIN " & _
"[INFO_LIJN] ON [INFO_SSCC].[LINE_ID] = [INFO_LIJN].
I have a query which gets the data from the SQL Server. On the server the
date is formatted as 'yyyy-MM-dd HH:MM:SS'
If I run the application, the date is being displayed as 'MM/dd/yyyy
HH:MM:SS AM/PM'
Is there anyone who can help me to get the date into the right format.
Thanks
/*** Start code ***/
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
End Sub
sub TextBox1_TextChanged(Sender As Object, E As EventArgs)
Datalist1.DataSource = GetInfoSSCC(mid(TextBox1.text, 3, 18))
DataList1.DataBind()
end sub
Sub ApplyFilter_Click(Sender As Object, E As EventArgs)
Datalist1.DataSource = GetInfoSSCC(mid(TextBox1.text, 3, 18))
DataList1.DataBind()
End Sub
Function GetInfoSSCC(ByVal sSCC As String) As System.Data.DataSet
Dim connectionString As String = "server='OLNSQL03'; user
id='sa'; password=''; database='APPL_WTP'"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.SqlClient.SqlConnection(connectionString)
Dim queryString As String = "SELECT
[INFO_SSCC].[SSCC],[INFO_SSCC].[ITEM_CODE],[INFO_SSCC].[CASECOUNT],[INFO_SSCC].[LANDCODE]," & _
"[INFO_SSCC].[BESTEMMINGSCODE],[INFO_SSCC].[PRODUCTION_DATE],[INFO_SSCC].[PROD_DATE_LAST]," & _
"[INFO_SSCC].[BEST_BEFORE_DATE],[INFO_SSCC].[LOG_DATE],[INFO_SSCC].[BATCH_CODE],[INFO_LIJN].[SKEPCODE]," & _
"[INFO_STATUS].[STATUS_OMSCHRIJVING] FROM [INFO_SSCC] INNER JOIN " & _
"[INFO_LIJN] ON [INFO_SSCC].[LINE_ID] = [INFO_LIJN].
Code:
INNER JOIN "
& _
"[INFO_STATUS] ON [INFO_SSCC].[SSCC_STATUS] =
[INFO_STATUS].[STATUS_CODE] " & _
"WHERE ([INFO_SSCC].[SSCC] = @SSCC)"
Dim dbCommand As System.Data.IDbCommand = New
System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_sSCC As System.Data.IDataParameter = New
System.Data.SqlClient.SqlParameter
dbParam_sSCC.ParameterName = "@SSCC"
dbParam_sSCC.Value = sSCC
dbParam_sSCC.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_sSCC)
Dim dataAdapter As System.Data.IDbDataAdapter = New
System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
</script>
<html>
<head>
</head>
<body style="FONT-FAMILY: arial">
<h2>SSCC Info
</h2>
<hr size="1" />
<form runat="server">
<p>
<asp:TextBox id="TextBox1" runat="server"
OnTextChanged="ApplyFilter_Click" AutoPostBack="True"></asp:TextBox>
<asp:Button id="Button1" onclick="ApplyFilter_Click"
runat="server" Text="Get Info"></asp:Button>
</p>
<p>
<asp:DataList id="DataList1" runat="server">
<ItemTemplate>
<p>
SSCC : <asp:Label id="Label1" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"SSCC") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
Pallet Status : <asp:Label id="Label12"
runat="server" text='<%#
DataBinder.Eval(Container.DataItem,"STATUS_OMSCHRIJVING") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
ItemCode : <asp:Label id="Label2" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"Item_Code") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
CaseCount : <asp:Label id="Label3" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"CaseCount") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
LandCode : <asp:Label id="Label4" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"LandCode") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
Bestemming : <asp:Label id="Label5" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"BestemmingsCode") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
First case : <asp:Label id="Label6" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"Production_Date") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
Last case : <asp:Label id="Label7" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"Prod_Date_Last") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
Best Before Date : <asp:Label id="Label8"
runat="server" text='<%#
DataBinder.Eval(Container.DataItem,"BEST_BEFORE_DATE") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
Print Date : <asp:Label id="Label9" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"LOG_DATE") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
Batchcode : <asp:Label id="Label10" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"BATCH_CODE") %>'
forecolor="#0000C0"></asp:Label>
</p>
<p>
Line ID : <asp:Label id="Label11" runat="server"
text='<%# DataBinder.Eval(Container.DataItem,"SKEPCODE") %>'
forecolor="#0000C0"></asp:Label>
</p>
</ItemTemplate>
</asp:DataList>
</p>
</form>
</body>
</html>
/*** End Code ***/