Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read unicode (Asian Languages) from Excel spreadsheet
Hi,
I guess it is a common problem when read some DBCS value from Excel spreadsheet but got question marks. Following are my code ----------------------------------------------------------------------------------- <% Session.CodePage=65001 response.charset="UTF-8" % <HTML <HEAD <META http-equiv="Content-Type" content="text/html; charset=utf-8" </HEAD <BODY <% 'Create a connection Set oConn = Server.CreateObject("ADODB.Connection") strConn = "Driver={Microsoft Excel Driver (*.xls)}; " &_ "DBQ=<someXLS file;" 'How to can set codepage or characterset here? oConn.Open strConn strCmd = "SELECT * from `<some Name defined in Excel'" 'Create a recordset Set oRS = Server.CreateObject("ADODB.Recordset") oRS.Open strCmd, oConn 'Output conects of Excel while not oRS.EOF for each item in oRs.Fields response.write item.Name & "==" & item.value & "<br" Next ORs.moveNext Wend set ORs= nothing set oConn = nothing % </BODY </HTML ------------------------------------------------------------------------------------- For the cloumn that include some Asian languages like Chinese, Japanese and Korean, will display question marks ??? at this page. Is it any way we can set codepage or characterset in the connectionstring? Regadrs, Frank |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Read unicode (Asian Languages) from Excel spreadsheet
Frank,
have you tried with Jet provider iso ODBC?.. the Jet Driver has unicode support. Your DSN/ODBC approach is not the best way to use Ado. you should use ADO with Jet's OLEDB provider. hmm.. even Jet is listed as deprecated these days :) Data Access Technologies Roadmap (http://msdn.microsoft.com/library/de...y/en-us/dnmdac /html/data_mdacroadmap.asp) #see Obsolete Note the font you're using should support the dbms characters.. Have you checked that you can write a hardcoded asian string? Sub ReadXL() Const cConXL = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Extended Properties='Excel 8.0';Data Source=%File%;" Dim oCon As ADODB.Connection Dim oRst As ADODB.Recordset Dim sFile$ Dim sSQL$ sFile = "c:\test.xls" sSQL = "Select * from [Sheet1$]" 'Connect to the workbook Set oCon = New ADODB.Connection oCon.CursorLocation = adUseClient oCon.Open Replace(cConXL, "%File%", sFile) Set oRst = New ADODB.Recordset oRst.Open sSQL, oCon, adOpenForwardOnly, adLockReadOnly, adCmdText Stop ' or do your stuff If oRst.State 0 Then oRst.Close If oCon.State 0 Then oCon.Close Set oRst = Nothing Set oCon = Nothing End Sub -- keepITcool | www.XLsupport.com | keepITcool chello nl | amsterdam Frank wrote : Hi, I guess it is a common problem when read some DBCS value from Excel spreadsheet but got question marks. Following are my code: ---------------------------------------------------------------------- ------------- <% Session.CodePage=65001 response.charset="UTF-8" % <HTML <HEAD <META http-equiv="Content-Type" content="text/html; charset=utf-8" </HEAD <BODY <% 'Create a connection Set oConn = Server.CreateObject("ADODB.Connection") strConn = "Driver={Microsoft Excel Driver (*.xls)}; " &_ "DBQ=<someXLS file;" 'How to can set codepage or characterset here? oConn.Open strConn strCmd = "SELECT * from `<some Name defined in Excel'" 'Create a recordset Set oRS = Server.CreateObject("ADODB.Recordset") oRS.Open strCmd, oConn 'Output conects of Excel while not oRS.EOF for each item in oRs.Fields response.write item.Name & "==" & item.value & "<br" Next ORs.moveNext Wend set ORs= nothing set oConn = nothing % </BODY </HTML ---------------------------------------------------------------------- --------------- For the cloumn that include some Asian languages like Chinese, Japanese and Korean, will display question marks ??? at this page. Is it any way we can set codepage or characterset in the connectionstring? Regadrs, Frank |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel Character Path Limit for Asian Characters | Excel Discussion (Misc queries) | |||
Saving Spreadsheet to Unicode extra quotation marks | Excel Discussion (Misc queries) | |||
Saving Spreadsheet to Unicode extra quotation marks | Excel Discussion (Misc queries) | |||
How do you display Greek and Russian languages in excel? | Excel Discussion (Misc queries) | |||
how to read excel spreadsheet into database (DB2) | Excel Programming |