Asp.net / MS Access - คอมของ Hosting ที่จะเช่ามีระบบเวลาเป็น ค.ศ. ในขณะที่เว็บที่ทำมา ทำบนคอมที่เป็น พ.ศ.
Asp.net / MS Access - คอมของ Hosting ที่จะเช่ามีระบบเวลาเป็น ค.ศ. ในขณะที่เว็บที่ทำมา ทำบนคอมที่เป็น พ.ศ.
ทางโฮสติ้ง แนะนำให้ set คอมที่ใช้ทำโปรแกรมเป็น ค.ศ. ก็เลย set ตามนี้ http://www.li.mahidol.ac.th/innopac/set-date.pdf
พอ set คอมเป็น ค.ศ. เสร็จ
ก่อนลองใช้โปรแกรมเว็บ คิดว่าน่าจะเกิดปัญหา เพราะโค้ดไม่ได้ทำมาเพื่อพ.ศ.หรือ ค.ศ.เลย (หมายความว่า เดิมเครื่องเป็น พ.ศ.อยู่แล้ว ตอนสร้างหน้าเว็บสำหรับ insert ก็บังคับใส่ พ.ศ. ใน textbox โค้ดใน .aspx.vb จึงไม่ได้ convert อะไรทั้งสิ้น)
แต่พอใช้แล้วปรากฏว่า ใช้งานได้เหมือนเดิม โดยที่ยังไม่ได้แก้อะไรเลย
เลยงง และคิดว่า ถ้าใช้คอมตัวอื่น มันต้องมีซักเครื่องแหละที่ error ที่ข้อมูลวันที่มันเพี้ยนๆไป เพราะเคยอ่านเจอแบบผ่านๆ คนในเน็ตมีปัญหาแบบนี้
ขอผู้มีความรู้เกี่ยวกับเรื่องนี้หน่อยว่า จริงๆดิฉันต้อง เขียนโค้ดอะไรเพิ่มคะ
หรือ ดิฉันไม่ต้องแก้คะ แล้วช่วยบอกหน่อยค่ะทำไมมันไม่ error หรือ ไม่เพี้ยนเลยคะ
ช่วยด้วยค่ะ ขอบคุณล่วงหน้ามากๆจริงๆค่ะ ช่วยด้วยนะคะ
-----------------------------------------------------------------------
หมายเหตุ : โค้ดตอนนี้
โค้ดที่ว่าใช้งานได้เหมือนเดิม ทั้งที่ยังไม่แก้ ดังนี้ค่ะ
คือ
1. insert กรอก พ.ศ. 2555 ใน textbox --> แต่พอเปิด MS Access ดูข้อมูลกลายเป็น ปี ค.ศ. 2012
strSQL = "INSERT INTO Cust (Id,Name,BirthDate) VALUES (1,'Napa','13/01/2555')"
2. select 1 record
ใน MS Access = 2012 --> แต่พอดึงมาแสดงบนหน้าจอเป็น 2555
Dim dBirth As Date
dBirth = dbread.Item("BirthDate").ToString
spanBirthDate.InnerHtml = dBirth.ToString("dd/MM/yyyy")
3. select หลาย record แสดงใน datagrid
พอดึงมาแสดงบนหน้าจอเป็น 2555
<asp:Datagrid>
...
<asp:BoundColumn DataField="CreateDate" ReadOnly="True" HeaderText="วันที่สั่งซื้อ" DataFormatString="{0:dd/MM/yyyy}" HeaderStyle-BackColor="#ffe7c2" HeaderStyle-Font-bold="True"></asp:BoundColumn>
...
</asp:Datagrid>
อันนี้โค้ดใน .aspx.vb ไม่ดัดแปลงฟอแมตไรเลย select column มาธรรมดา
4. select หลาย record แสดงใน datalist
พอดึงมาแสดงบนหน้าจอเป็น 2555
Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As DataListItemEventArgs)
Dim lblCreateDate As Label = CType(e.Item.FindControl("lblCreateDate"), Label)
If Not IsNothing(lblCreateDate) Then
If e.Item.DataItem("CreateDate").ToString = "" Then
lblCreateDate.Text = e.Item.DataItem("CreateDate").ToString
Else
Dim shortDate1 As DateTime = DateTime.Parse(e.Item.DataItem("CreateDate"))
lblCreateDate.Text = shortDate1.ToShortDateString()
End If
End If
End Sub Tag : .NET, Ms Access, Web (ASP.NET), VB.NET, VS 2003 (.NET 1.1)
Date :
2012-01-26 22:18:17
By :
นุ๊ก
View :
1345
Reply :
1
Load balance : Server 05