Xailer & OZ Software

Gracias otra vez alguien me puede echar la mano con esto
tenngo dbf y necesito migrar a una tabla mysql
select clientes
go top
do while (i<20000)
vnumcli :=str(clientes->no_cli)
cvnombre :=alltrim(clientes->nombre)
snombre :=clientes->nombrenego
mer_tx1 :=clientes->clave
ven_zonav :=clientes->tie
dfi_calle :=clientes->calle
dfi_cp :=str(clientes->cod_pos)
dfi_colonia:=clientes->colonia
dfi_ciudad :=clientes->ciudad
dfi_estado :=clientes->estado
dfi_tel1 :=str(clientes->telefono)
cre_fpcre :=clientes->credito
ven_prege :=str(clientes->tipocli)
dfi_email :=clientes->mail
elquery:="select vnombre from directorio where
vnombre='"+cvnombre+"'"
swesta:=(::oMySQLDataSource1:Execute(elquery))
if swesta
msgalert("ya esta el dato: ")
//::oDBBrowse1:Refresh()
else
msgalert("no esta el dato hay que dar de alta")
//::oDBBrowse1:Refresh()
endif
i++
skip
::oDbfBrowse1:Refresh()
enddo
Elías Israel Oros Magno.

Elías,
> elquery:="select vnombre from directorio where
> vnombre='"+cvnombre+"'"
swesta := !Empty( ::oMySQLDataSource1:QueryValue( elquery ) )
> if swesta
> msgalert("ya esta el dato: ")
> //::oDBBrowse1:Refresh()
> else
> msgalert("no esta el dato hay que dar de alta")
> //::oDBBrowse1:Refresh()
> endif
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info