para substituir o SETFILTER

[ronaldo]

baixei este drive acho que visal studio 2010, com ele instalado e colocando as string abaixo, esto substituindo meu set filter, com com string sql é muito mais rapido.

ps. dica: nao aconselho abrir banco de dados com o mesmo nome do indice ex: imovel.dbf e imovel.cdx, ele da problma, e tb não fiz teste de inclsao e alteração, somente consulta...

precisa instalar o drive mas dexei o caminho abaixo.

espero ter ajudado...

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

Ronaldo Mina

Ronaldo Minacapelli

(11) 2950 3069

[ronaldo]

baixei este drive acho que visal studio 2010, com ele instalado e colocando as string abaixo, esto substituindo meu set filter, com com string sql é muito mais rapido.

ps. dica: nao aconselho abrir banco de dados com o mesmo nome do indice ex: imovel.dbf e imovel.cdx, ele da problma, e tb não fiz teste de inclsao e alteração, somente consulta...

precisa instalar o drive mas dexei o caminho abaixo.

espero ter ajudado...

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

Ronaldo Mina

Ronaldo Minacapelli

(11) 2950 3069