Registro en MYSQL
Publicado por Ramon (81 intervenciones) el 29/09/2010 21:48:50
Hola... buenas tardes... qusiera me apoyaran con la siguiente cadena para almacenar en MYSQL.
LOCAL lGraba
lGraba="INSERT INTO vehiculos(UR,RFA, NCONSECUTIVO,PLACAS,"+;
"MARCA,TIPO,MODELO,COLOR,"+;
"RFA,NECONOMICO,CILINDROS,"+;
"NUMSERIE,NUMMOTOR,NINVENTARIO,"+;
"VREGIMEN,SITACTUAL,ACCIDENTES,"+;
"FECHAACCID,RFC,RESPONSABLE,PUESTO,"+;
"ADSCRIPCION,NUMLICENCIA,VENCELIC,"+;
"NUMRESGUARDO,FACTURA,TARJETON,"+;
"TCIRCULACION,POLIZA,ACCESORIOS,"+;
"DICTAMEN,FECHADICTAM,CARROCERIA,"+;
"MOTOR,TAPIZ,LLANTAS,SISELECTRICO,"+;
"SUSPENSION,DIFERENCIAL,AIREAC,"+;
"EDOGENERAL,FECHAREVIS,OBSERVACION)"+;
"values(?varur,?mrfa,?mcons,?mplacas,"+;
"?mmarca,?mtipo,?mmodelo,?mColor,"+;
"?mRfa,?mnecono,?mcilin,"+;
"?mserie,?mnmotor,?minventa,"+;
"?mregimen,?mSitActual,?mtpAccid,"+;
"?mfechaacci,?mrfc,?mresguarda,?mpuesto,"+;
"?madscrip,?mlicencia,?mvigencia,"+;
"?mnresguardo,?mfactura,?mtarjeton,"+;
"?mtcirculac,?mpoliza,?maccesorios,"+;
"?mdictamen,?dfechad,?mCarro,?mSisElec,"+;
"?mmotor,?mtapis,?mllanta,"+;
"?mSusp,?mDifer, ?aireacond,"+;
"?medogral,?mfrevis,?cobserva2)"
TRY
SQLEXEC(Con,lGraba)
CATCH
MESSAGEBOX('No es posible grabar los datos...')
RETURN 0
ENDTRY
a Ver en que estoy mal...??
Saludos
LOCAL lGraba
lGraba="INSERT INTO vehiculos(UR,RFA, NCONSECUTIVO,PLACAS,"+;
"MARCA,TIPO,MODELO,COLOR,"+;
"RFA,NECONOMICO,CILINDROS,"+;
"NUMSERIE,NUMMOTOR,NINVENTARIO,"+;
"VREGIMEN,SITACTUAL,ACCIDENTES,"+;
"FECHAACCID,RFC,RESPONSABLE,PUESTO,"+;
"ADSCRIPCION,NUMLICENCIA,VENCELIC,"+;
"NUMRESGUARDO,FACTURA,TARJETON,"+;
"TCIRCULACION,POLIZA,ACCESORIOS,"+;
"DICTAMEN,FECHADICTAM,CARROCERIA,"+;
"MOTOR,TAPIZ,LLANTAS,SISELECTRICO,"+;
"SUSPENSION,DIFERENCIAL,AIREAC,"+;
"EDOGENERAL,FECHAREVIS,OBSERVACION)"+;
"values(?varur,?mrfa,?mcons,?mplacas,"+;
"?mmarca,?mtipo,?mmodelo,?mColor,"+;
"?mRfa,?mnecono,?mcilin,"+;
"?mserie,?mnmotor,?minventa,"+;
"?mregimen,?mSitActual,?mtpAccid,"+;
"?mfechaacci,?mrfc,?mresguarda,?mpuesto,"+;
"?madscrip,?mlicencia,?mvigencia,"+;
"?mnresguardo,?mfactura,?mtarjeton,"+;
"?mtcirculac,?mpoliza,?maccesorios,"+;
"?mdictamen,?dfechad,?mCarro,?mSisElec,"+;
"?mmotor,?mtapis,?mllanta,"+;
"?mSusp,?mDifer, ?aireacond,"+;
"?medogral,?mfrevis,?cobserva2)"
TRY
SQLEXEC(Con,lGraba)
CATCH
MESSAGEBOX('No es posible grabar los datos...')
RETURN 0
ENDTRY
a Ver en que estoy mal...??
Saludos
Valora esta pregunta


0