ADO com DBF (Acentuação)

[digordo]

Fala pessoal!

Estou fazendo um select em uma tabela DBF via ADO, e a acentuação no RecordSet esta incorreta. Alguém já passou por isto?

Code: Select all | Expand

Function U_Teste()
Local oConn
Local cSQL
Local rsClaims

oConn:= CreateObject("ADODB.Connection")
oConn:Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\dados;Extended Properties=DBASE IV")

cSQL := "SELECT * FROM SP50001"

rsClaims := CreateObject("ADODB.Recordset")
rsClaims:CursorLocation := 3  // adUseClient
rsClaims:CursorType := 3 // adOpenStatic
rsClaims:ActiveConnection:= oConn
rsClaims:Open(cSQL)

rsClaims:MoveFirst()
MsgStop(rsClaims:Fields("SP5_CODIGO"):Value)    //ONDE DEVERIA SER 'MIRIÃ' É RETORNADO 'MIRI+'

Return

[digordo]

Achei!


É só alterar a chave do registro do windows: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\xBase, DataCodePage=OEM para DataCodePage=ANSI


Valeu