dbf->mysql ayuda
Publicado: Mié Jun 04, 2008 3:39 pm
Gracias a todos de antemano.
soy nuevo en Xailer. y no se que metodos son para actualizar tablas mysql
tengo esto alguine me podria ayudar
select clientes
go top
do while (i<10 )
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
msgalert(str(i)+".- "+tipocte+vnumcli+cvnombre+snombre+;
mer_tx1+ven_zonav+dfi_calle+dfi_cp+dfi_colonia+dfi_ciudad+;
dfi_tel1+cre_fpcre+ven_prege+dfi_email)
eldato:=::oMySQLDataSource1:Execute("select vnombre from
directorio where vnombre='"+cvnombre+"'")
//eldato:=::oMySQLDataSource1:Execute("select vnombre from
directorio where vnombre='&cvnombre'")
msgalert(str(i)+".-"+eldato)
if cvnombre=eldato
msgalert("existe")
::oDBBrowse1:Refresh()
else
msgalert("alta")
//::oMySQLDataSource1:Execute( "INSERT INTO directorio
(tipocte,vnumcli,vnombre,snombre,;
//
mer_tx1,ven_zonav,dfi_calle,df_cp,dfi_colonia,dfi_ciudad,;
//
dfi_tel1,cre_fpcre,ven_prege,dfi_email) VALUES
(tipocte,vnumcli,vnombre,snombre;
//
mer_tx1,ven_zonav,dfi_calle,dfi_colonia,dfi_ciudad,;
//
dfi_tel1,cre_fpcre,ven_prege,dfi_email)" )
::oDBBrowse1:Refresh()
endif
i++
skip
::oDbfBrowse1:Refresh()
enddo
--
_______________________________
Ing. Elías Israel Oros Magno.
Servicio Comercia Garis. S.A. de C.V.
Boulevard Toluca-Metepec 201 Nte.
Col. La Purísima. c.p. 52140
Metepec Estado de México
TEL. 722-2761100 Ext.. 1130
orosmagno@garis.com.mx
http:/ /www.garis.com.mx
soy nuevo en Xailer. y no se que metodos son para actualizar tablas mysql
tengo esto alguine me podria ayudar
select clientes
go top
do while (i<10 )
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
msgalert(str(i)+".- "+tipocte+vnumcli+cvnombre+snombre+;
mer_tx1+ven_zonav+dfi_calle+dfi_cp+dfi_colonia+dfi_ciudad+;
dfi_tel1+cre_fpcre+ven_prege+dfi_email)
eldato:=::oMySQLDataSource1:Execute("select vnombre from
directorio where vnombre='"+cvnombre+"'")
//eldato:=::oMySQLDataSource1:Execute("select vnombre from
directorio where vnombre='&cvnombre'")
msgalert(str(i)+".-"+eldato)
if cvnombre=eldato
msgalert("existe")
::oDBBrowse1:Refresh()
else
msgalert("alta")
//::oMySQLDataSource1:Execute( "INSERT INTO directorio
(tipocte,vnumcli,vnombre,snombre,;
//
mer_tx1,ven_zonav,dfi_calle,df_cp,dfi_colonia,dfi_ciudad,;
//
dfi_tel1,cre_fpcre,ven_prege,dfi_email) VALUES
(tipocte,vnumcli,vnombre,snombre;
//
mer_tx1,ven_zonav,dfi_calle,dfi_colonia,dfi_ciudad,;
//
dfi_tel1,cre_fpcre,ven_prege,dfi_email)" )
::oDBBrowse1:Refresh()
endif
i++
skip
::oDbfBrowse1:Refresh()
enddo
--
_______________________________
Ing. Elías Israel Oros Magno.
Servicio Comercia Garis. S.A. de C.V.
Boulevard Toluca-Metepec 201 Nte.
Col. La Purísima. c.p. 52140
Metepec Estado de México
TEL. 722-2761100 Ext.. 1130
orosmagno@garis.com.mx
http:/ /www.garis.com.mx