Forgot Password ??

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

	Registered : 109,027

HOME > Community Zone > Forum > สร้าง QR Code จากAccess วิธีแก้ไขให้รองรับภาษาญี่ปุ่น

สร้าง QR Code จากAccess วิธีแก้ไขให้รองรับภาษาญี่ปุ่น

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

earth1234

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

ตอนนี้ทำโปรแกรมสร้างQRจากAccessได้แล้ว โดยทำตามจากลิงค์นี้ค่ะ
https://youtu.be/GN0ecCs3TOY

ซึ่งสามารถสร้างและอ่านได้ แต่ปัญหาคืออยากให้สามารถอ่านภาษาญี่ปุ่นได้ด้วย ซึ่งตอนนี้ไม่รองรับค่ะ
เช่นรหัส 050078801CS ギャクシベンスプール สามารถสร้างQR Code ได้
แต่ตอนอ่าน ไม่รองรับภาษาญี่ปุ่น จะแสดงเป็น 050078801CS ??????แทนค่ะ

ที่คิดไว้คือสามารถแก้ไขตรงไหน หรือไปConvert Encoding เป็นShift_JIS ให้รองรับภาษาญี่ปุ่นได้ไหมคะ

รบกวนผู้รู้ทุกท่านด้วยนะคะ

โค้ดจากModule
Code

Private Declare PtrSafe Sub QRCodeEncode Lib "QRCode_x86.dll" _
(ByVal Message As String, ByVal version As Integer, ByVal level As Integer, ByVal Mask As Integer)

Private Declare PtrSafe Function QRCodeGetRows Lib "QRCode_x86.dll" () As Integer
Private Declare PtrSafe Function QRCodeGetCols Lib "QRCode_x86.dll" () As Integer
Private Declare PtrSafe Function QRCodeGetCharAt Lib "QRCode_x86.dll" (ByVal RowIndex As Integer, ByVal ColIndex As Integer) As Integer

Private Const version = 0
Private Const level = 0
Private Const Mask = 0

Public Function QRGen(Plain_Text As String)
Dim RowCount As Long, ColCount As Long, i As Long, j As Long
Dim Message As String, EncodedMsg As String

Message = Plain_Text
Call QRCodeEncode(Message, version, level, Mask)
RowCount = QRCodeGetRows()
ColCount = QRCodeGetCols()
For i = 1 To RowCount
For j = 1 To ColCount
EncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(i - 1, j - 1))

Next j
EncodedMsg = EncodedMsg & vbCrLf
Next i
QRGen = EncodedMsg

End Function

Tag : Ms Access, MySQL, Report Others, VB.NET

ประวัติการแก้ไข
2018-06-21 11:25:07

Date : 2018-06-21 11:21:27

By : earth1234

View : 2251

Reply : 3

No. 1

Chaidhanan

โพสกระทู้ ( 9,559 )
บทความ ( 2 )

https://msdn.microsoft.com/en-us/library/system.text.encoding.utf8(v=vs.110).aspx

ลองดูครับ

Date : 2018-06-21 11:43:08

By : Chaidhanan

No. 2

earth1234

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : Chaidhanan เมื่อวันที่ 2018-06-21 11:43:08

รายละเอียดของการตอบ ::

ถ้าเป็นโค้ดในVBA ใช้กับAccess พอมีแนวทางไหมคะ

Date : 2018-06-21 11:51:07

By : earth1234

No. 3

Chaidhanan

โพสกระทู้ ( 9,559 )
บทความ ( 2 )

เป็น web app หรือเปล่าครับ ถ้าใช้่ กำหนด
<meta charset="utf8" >
ก็น่าจะใช้ได้แล้วนะครับ

Date : 2018-06-21 13:10:57

By : Chaidhanan

ค้นหาข้อมูล

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

Re : สร้าง QR Code จากAccess วิธีแก้ไขให้รองรับภาษาญี่ปุ่น

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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