Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > ASP > ASP Forum > รบกวนสอบถาม การ Export Database to CSV อยากให้ SET Encoding เป็น UTF8 ต้องทำอย่างไรค่ะ

รบกวนสอบถาม การ Export Database to CSV อยากให้ SET Encoding เป็น UTF8 ต้องทำอย่างไรค่ะ

เริ่มหัวข้อใหม่

meaey

โพสกระทู้ ( 16 )
บทความ ( 0 )

จากโค้ด Export Database to CSV อยากให้ save ไฟล์ อัตโนมัติ เป็น Encoding เป็น UTF8 จากเดิมเป็น ANSII ต้องทำอย่างไรค่ะ
รบกวนด้วยนะคะ

Code (ASP)

<%Option Explicit%>
<html>
<head>
<title>ThaiCreate.Com ASP  & Export Access To CSV</title>
</head>
<body>
<%
Dim objFSO,oFiles
Dim Conn,strSQL,objRec

Dim sFileName

'*** Connect to Access ***'
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
strSQL = "SELECT * FROM customer "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3
If Not objRec.EOF Then
sFileName = "customer.csv"
'*** Create Object ***'
Set objFSO = CreateObject("Scripting.FileSystemObject")
'*** Create Text Files ***'
Set oFiles = objFSO.CreateTextFile(Server.MapPath(sFileName), 2)
While Not objRec.EOF
oFiles.WriteLine(objRec.Fields("CustomerID").Value&","&_
objRec.Fields("Name").Value&","&_
objRec.Fields("Email").Value&","&objRec.Fields("CountryCode").Value&","&_
objRec.Fields("Budget").Value&","&objRec.Fields("Used").Value)
objRec.MoveNext()
Wend

oFiles.Close()
Set oFiles = Nothing
Set objFSO = Nothing

Response.write"<br>Generate CSV Done.<br><a href="&sFileName&">Download</a>"
End If
 
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing

%>
</table>
</body>
</html>

Tag : ASP

Date : 2015-03-02 10:11:39

By : gustey

View : 1784

Reply : 2

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Code

var a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("This is a test.");
a.Close();

ปกติตรงนี้น่าจะเป็น Unicode ครับ

Date : 2015-03-02 16:15:20

By : mr.win

No. 2

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

อาจจะลองใช้ ADODB.Stream ครับ

Code

Set strm = CreateObject("ADODB.Stream")
With strm
   .Open
   .CharSet = "UTF-8"
   .WriteText "AutoUpdateDisable=1"
   .SaveToFile "c:\myName.txt", 1
   .Close
End With

Date : 2015-03-02 16:16:45

By : mr.win

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : รบกวนสอบถาม การ Export Database to CSV อยากให้ SET Encoding เป็น UTF8 ต้องทำอย่างไรค่ะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05