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?
Estou fazendo um select em uma tabela DBF via ADO, e a acentuação no RecordSet esta incorreta. Alguém já passou por isto?
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