Almost makes you sad that Jet has fallen out of favor. :-)
Luckily they got out their Unicode version (4.0). Its only real limitation
at this point that will probably never be fixed is that indexes on some
Unicode languages will be in code point order which can conceivably not
match what native speakers would expect....
michka
----- Original Message -----
From: "Mikko Lahti" <MikkoL@onyx.com>
To: "Michael (michka) Kaplan" <michka@trigeminal.com>;
<i18n-prog@acoin.com>; <unicode@unicode.org>
Sent: Thursday, July 27, 2000 4:48 PM
Subject: RE: Excel 2000, ADO and Unicode
:) I wasn't using the JET provider, that was the problem. All works now.
Thanks!
Later,
Mikko
Globalization Specialist
Onyx Software - Bringing e-business and business together
MikkoL@onyx.com
www.onyx.com
425.519.4172
-----Original Message-----
From: Michael (michka) Kaplan [mailto:michka@trigeminal.com]
Sent: Thursday, July 27, 2000 4:38 PM
To: Mikko Lahti; i18n-prog@acoin.com; unicode@unicode.org
Subject: Re: Excel 2000, ADO and Unicode
So you do not think I am nuts here. :-)
Set con = New ADODB.Connection
set rs = New ADODB.Recordset
con.Provider = "Microsoft.JET.OLEDB.4.0"
stCon = "Excel 5.0;DATABASE=book1.xls;HDR=NO;IMEX=2"
con.ConnectionString = stCon
con.Open
stSql = "SELECT * FROM [Sheet1$]"
rs.Open stSql, con, adOpenStatic, adLockReadOnly
The spreadsheet had the following in Sheet1: ر.س. 5,678.90
When I looked at Hex(AscW(rs(0))) I got back 0631 (Arabic Letter Reh) as
expected.
Definitely, the Unicode data in the spreadsheet was preserved.
michka
----- Original Message -----
From: "Michael (michka) Kaplan" <michka@trigeminal.com>
To: "Mikko Lahti" <MikkoL@onyx.com>; <i18n-prog@acoin.com>;
<unicode@unicode.org>
Sent: Thursday, July 27, 2000 4:05 PM
Subject: Re: Excel 2000, ADO and Unicode
> Ok, I guess I am not sure what exactly you are trying to do here.
>
> You are using the Jet OLE DB IISAM that does Excel?
>
> michka
>
>
> ----- Original Message -----
> From: "Mikko Lahti" <MikkoL@onyx.com>
> To: "Michael (michka) Kaplan" <michka@trigeminal.com>;
> <i18n-prog@acoin.com>; <unicode@unicode.org>
> Sent: Thursday, July 27, 2000 3:57 PM
> Subject: RE: Excel 2000, ADO and Unicode
>
>
> > I tried OLE DB as well but results are same. Data type returned is
> > adVarChar. Any other ideas?
> >
> > Later,
> >
> > Mikko
> > Globalization Specialist
> > Onyx Software - Bringing e-business and business together
> > MikkoL@onyx.com
> > www.onyx.com
> > 425.519.4172
> >
> > -----Original Message-----
> > From: Michael (michka) Kaplan [mailto:michka@trigeminal.com]
> > Sent: Thursday, July 27, 2000 2:46 PM
> > To: Mikko Lahti; i18n-prog@acoin.com
> > Subject: Re: Excel 2000, ADO and Unicode
> >
> > Try not using the ODBC driver. use the OLE DB driver, you will be much
> > happier with teh Unicode persistence.
> >
> > michka
> >
> >
> > ----- Original Message -----
> > From: "Mikko Lahti" <MikkoL@onyx.com>
> > To: <i18n-prog@acoin.com>
> > Sent: Thursday, July 27, 2000 2:37 PM
> > Subject: Excel 2000, ADO and Unicode
> >
> >
> > > I'm running into a problem when I try to query Unicode data from
> Microsoft
> > > Excel using the Excel ODBC driver via ADO/VB.
> > >
> > > My queries work fine w/ ANSI data but not for multilingual (Unicode)
> data.
> > > I'm just getting ??? back so somebody does not support Unicode.
> > >
> > > When I looked at
> http://msdn.microsoft.com/library/psdk/dasdk/odbc8h4j.htm
> > > <http://msdn.microsoft.com/library/psdk/dasdk/odbc8h4j.htm> , if I'm
> > reading
> > > it correctly, Excel data type TEXT is mapping to SQL VARCHAR and not
> > > NVARCHAR, which would be a problem in this case.
> > >
> > > Is this the case or am I don't something wrong? Is there a workaround
> for
> > > this (other than not to use Excel)?
> > >
> > > Later,
> > >
> > > Mikko
> > > Globalization Specialist
> > > Onyx Software - Bringing e-business and business together
> > > MikkoL@onyx.com
> > > www.onyx.com
> > > 425.519.4172
> > >
> > >
> > > Here is the VB code:
> > >
> > > Dim adoConnection As ADODB.Connection
> > > Dim adoRecordset As ADODB.Recordset
> > > Dim sConnectionString As String
> > > Dim sQuery As String
> > >
> > > 'Instantiate the connection and recordset objects
> > > Set adoConnection = New ADODB.Connection
> > > Set adoRecordset = New ADODB.Recordset
> > >
> > > 'Create the connection string
> > > sConnectionString = "Driver={Microsoft Excel Driver
> > > (*.xls)};DBQ=e:\temp\test.xls;DriverID=790"
> > >
> > > 'Create the query string
> > > sQuery = "select data from ""Sheet1$"" where id = 2"
> > >
> > > 'Open the connection
> > > adoConnection.Open sConnectionString
> > > 'Get the recordset
> > > adoRecordset.Open sQuery, adoConnection, adOpenStatic,
> adLockReadOnly
> > >
> > >
> > >
> >
> > /* the i18n-prog homepage is at: */
> > /* http://www.acoin.com/i18n/i18n-prog.htm */
> > /* See the page for removal instructions, etc. */
> >
>
> /* the i18n-prog homepage is at: */
> /* http://www.acoin.com/i18n/i18n-prog.htm */
> /* See the page for removal instructions, etc. */
>
>
This archive was generated by hypermail 2.1.2 : Tue Jul 10 2001 - 17:21:06 EDT