FoxPro/Visual FoxPro - Insert Into MySQL

   
Vista:

Insert Into MySQL

Publicado por es_binario (757 intervenciones) el 12/01/2010 14:19:58
Buenos dias a todos haber si me hechan una mano para mi codigo de insert a MySQL 5.1 con ODBC 5

Quiero migrar una tabla articulos a mysql con un for y un insert, aqui les pongo el codigo, el caso es que no me marca errores y tampoco me inserta ningun campo.

Migrar en un Boton en el evento click tengo esto:

TRY
*// declaramos las variables de la DBMySQL
LOCAL clave_, articulo_, precio_, precio_cont_, enganche_, abono_, bodega_,;
existencia_, camioneta_, descuento_, cash_, tipo_, conteo_, tipo_conteo_, tipo_e_
SET DELETED on

SELECT arti
FOR a = 1 TO RECCOUNT()
SELECT arti
GO a
*// asignamos los valores a las variables
STORE arti.clave TO clave_
STORE arti.articulo TO articulo_
STORE arti.precio TO precio_
STORE arti.precio_cont TO precio_cont_
STORE arti.enganche TO enganche_
STORE arti.abono TO abono_
STORE arti.bodega TO bodega_
STORE arti.existencia TO existencia_
STORE arti.camioneta TO camioneta_
STORE 0 TO descuento_
STORE arti.cash TO cash_
STORE arti.tipo TO tipo_
STORE arti.conteo TO conteo_
STORE "" TO tipo_conteo_
STORE "" TO tipo_e_
This.Parent.label1.Caption = articulo_

*// registramos
TRY
SQLEXEC(Con, 'Insert into articulos (clave, articulo , precio , precio_cont ,' ;
+'enganche, abono , bodega, existencia,';
+'camioneta, descuento, cash, ';
+'conteo,tipo_conteo, tipo,tipo_e) values ';
+'(?clave_, ?articulo_ , ?precio_ , ?precio_cont_ ,' ;
+'?enganche_, ?abono_ , ?bodega_, ?existencia_,';
+'?camioneta_, ?descuento_, ?tipo_,';
+'?conteo_, ?tipo_conteo_, ?cash_, tipo_e_)')
CATCH TO exep
MESSAGEBOX("No se inserto nada")
EXIT
ENDTRY



ENDFOR
MESSAGEBOX("listo")

CATCH
MESSAGEBOX("Ocurrio un problema en la conexion")
ENDTRY

y no me marca ningun error
------------------------------------------

en el init de form tengo mi conexion y me la da como exitosa

RELEASE Con
PUBLIC Con
TRY
*// los siguientes datos dependen de la configuracion de Mysql
*// usuario y contrasña

Con = SQLSTRINGCONNECT("DRIVER={MySQL ODBC 5.1 Driver};" + ;
"SERVER=localhost;" + ;
"UID=root;" + ;
"PWD=toor;" + ;
"DATABASE=lionas;" + ;
"OPTIONS=0;")

IF Con > 0
WAIT WINDOW "Conexión realizada con Exito...!" TIMEOUT 1
MESSAGEBOX('Conexion exitosa')
ENDIF

CATCH
MESSAGEBOX("Ocurrio un Error al Conectar",48,"Error...!!!")
RETURN
ENDTRY

y me da el mensage de que se conecto directamente, cualquier ayuda se las agradecere.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder