Visual Foxpro string sql in DBF

[ronaldo]

I am using the Microsoft Visual Foxpro library, it is possible to open DBF using SQL string I put it in cool ADORDD

ps. the opening speed and filter is super fast

Ronaldo Minacapelli

[nageswaragunupudi]

It is possible to open DBF files with ADO on any Windows PC and I use this for some complex SQL queries.

But may I know if Visual FoxPro library is different and its additional advantages?

[nageswaragunupudi]

I have seen the link you posted in the Spanish forums and I downloaded the vfpoledb. It is working well. Thanks for the info.

I am using the connection string:
'Provider=vfpoledb;Data Source=<mydatapath>;Collating Sequence=general;'
and this is working.

Do you suggest any different connection string?

[ronaldo]

see example,

try
oRs := CreateObject("ADODB.RecordSet")
oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oRs:CursorType := adOpenDynamic
oRs:ActiveConnection := "Provider=VFPOLEDB.1;Data Source="+Curdrive()+":\"+Curdir()+";Mode=Read;Extended Properties=DBASE IV"
catch
oDlg:Refresh()
If MsgYesno("Erro no acesso ao OLEDB Visual FoxPro, deseja baixa-lo agora? ","Drive VFP")
ShellExecute( 0, "open", "http://www.bazevani.com.br/atualizacao/VFPOLEDBSetup.msi" )
Else
oDlg:Refresh()
MsgStop("Operação cancelada, necessário a instalação do drive: OLEDB Visual FoxPro","Erro !")
Endif

oDlg:Refresh()
return(.T.)

end



try
oRs:Source := cSQL1
oRs:Open()
catch
oDlg:Refresh()
MsgStop("Operação cancelada, ocorreu alguem problema na leitura do arquivo internet.dbf","Erro !")
oDlg:Refresh()
return(.T.)
end

While .NOT. oRs:Eof

nNro := oRs:Fields("Imovel"):value