Read unicode (Asian Languages) from Excel spreadsheet

Frank · 05-02-2005, 10:06 PM

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

keepITcool · 05-02-2005, 11:07 PM

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

Read unicode (Asian Languages) from Excel spreadsheet

LinkBack

Thread Tools

Rate This Thread

Display

Read unicode (Asian Languages) from Excel spreadsheet

Re: Read unicode (Asian Languages) from Excel spreadsheet

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions