myqsl

[Oros Magno]

Perdón la insistencia, alguien me puede ayudar con los métodos que se usan
con mysql.
Gracias.
--
_______________________________
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

[jfgimenez]

Orma,
> Perdón la insistencia, alguien me puede ayudar con los métodos que se
> usan con mysql.
Dinos exactamente qué quieres hacer y podremos orientarte mejor.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Oros Magno]

Gracias.
Tengo que migrar algunos campos una dbf de a una tabla mysql que no tiene
ningun tipo de indice.
por lo que primero nesecito hacer un query para saber si existe dicho
alemento, si existe lo actualizo y no existe no doy de alta.
tengo esto:
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
----- Original Message -----
From: "Jose F. Gimenez" <jfgimenez@wanadoo.es>
Newsgroups: local.xailer.spanish
Sent: Tuesday, June 10, 2008 2:30 PM
Subject: Re: myqsl
> Orma,
>
>> Perdón la insistencia, alguien me puede ayudar con los métodos que se
>> usan con mysql.
>
> Dinos exactamente qué quieres hacer y podremos orientarte mejor.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=484ed677@ozsrv2.ozlan.local...]484ed677@ozsrv2.ozlan.local...[/email]
> Orma,
>
>> Perdón la insistencia, alguien me puede ayudar con los métodos que se
>> usan con mysql.
>
> Dinos exactamente qué quieres hacer y podremos orientarte mejor.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>

[jfgimenez]

Orma,
> Tengo que migrar algunos campos una dbf de a una tabla mysql que no tiene
> ningun tipo de indice.
Cualquier tabla en SQL debería tener una clave primaria, o de lo contrario
no se puede asegurar que una operación de 'update' afecte solamente al
registro que esperas. P.ej., imagínate que haces la siguiente operación:
UPDATE clientes SET ciudad='Madrid' WHERE nombre='Fulano'
puede parecer una operación inocente pero, ¿qué ocurre si hay más de un
registro de nombre='Fulano'?
> eldato:=::oMySQLDataSource1:Execute("select vnombre from
> directorio where vnombre='"+cvnombre+"'")
Cámbialo por:
eldato := ::oMySQLDataSource1:QueryValue( "select vnombre from
directorio where vnombre='"+cvnombre+"'", "" )
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info