Tema: PROBLEMAS CON INSERT en SQL
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/08/2009, 00:29
Avatar de PedroJTR
PedroJTR
 
Fecha de Ingreso: febrero-2008
Ubicación: Guarenas, Venezuela
Mensajes: 116
Antigüedad: 17 años, 2 meses
Puntos: 1
PROBLEMAS CON INSERT en SQL
Saludos Amigos,

Tengo un problema en mis codigos INSERT... Resulta que me dice que tengo menos columnas en la Instruccion INSERT que valores en las clausulas VALUES. Pero esto me aparece cuando trato de insertar decimales.

Me pueden ayudar en esto please??... Es lo unico que me flata para culminar un proyecto importante para mañana!.. Estoy Locoooo!

Aqui les dejo mi codigo:
Código: 
'SQL_CERTIFICADO = "Insert Into CERTIFICADO (IDEPOL,NUMCERT,STSCERT,DESCCERT,FECING,CODCLI,CODCLIFACT,CODOFISUSC,CODOFIEMI,CLASERIESGO) " & "Values(" & idepol & "," & certificado & ",'" & Request.Form("STSPOL") & "','" & DESCCERT & "','" & Request.Form("FECEMI") & "','" & codcli & "','" & codclifact & "','" & Request.Form("sucsus") & "','" & Request.Form("sucemi") & "','" & CLASERIESGO & "')"
'INSERT_RS.open SQL_CERTIFICADO,DB
'SQL_CERT_VEH = "Insert Into CERT_VEH (IDEPOL,NUMCERT,CODMODELO,CODMARCA,CODDESTINADO,NUMPLACA,ANOVEH,CANTTONELADA,NUMPUESTOS,TIPOVEH,COLOR,SERIALCARROCERIA,SERIALMOTOR,CLASEVEH,INDFABRIC,CANTKMS,TIPOTRANS,TIPVEH,TIPOVEHTAR) " & "Values(" & idepol & "," & certificado & ",'" & Request.Form("modelo") & "','" & Request.Form("marca") & "','" & Request.Form("uso_vehiculo") & "','" & Request.Form("numero_placa") & "','" & Request.Form("ano_vehiculo") & "','" & Request.Form("toneladas_vehiculo") & "','" & Request.Form("numero_puestos") & "','" & Request.Form("tipo") & "','" & Request.Form("color_vehiculo") & "','" & Request.Form("serial_carroceria") & "','" & Request.Form("serial_motor") & "','" & Request.Form("clase") & "','" & Request.Form("fabricacion") & "','" & Request.Form("kilometros_vehiculo") & "','" & Request.Form("transmision") & "','" & Request.Form("clase") & "','" & Request.Form("tarifa") & "')"
'INSERT_RS.open SQL_CERT_VEH,DB
Dim COSASPRIMA, COSASSUMA, COSASTASA, PERSONASPRIMA, PERSONASSUMA, PERSONASTASA
COSASPRIMA = Request.Form("cosas_prima")
COSASPRIMA = CSng(COSASPRIMA)
COSASSUMA = Request.Form("cosas_suma")
COSASSUMA = CSng(COSASSUMA)
COSASTASA = Request.Form("cosas_tasa")
COSASTASA = CSng(COSASTASA)
PERSONASPRIMA = Request.Form("personas_prima")
PERSONASSUMA = Request.Form("personas_suma")
PERSONASTASA = Request.Form("personas_tasa")
'SQL_COBERT_CERT_cosas = "Insert Into COBERT_CERT (IDECOBERT,IDEPOL,NUMCERT,CODRAMOCERT,CODPLAN,REVPLAN,CODCOBERT,STSCOBERT,SUMAASEGMONEDA,TASA,PRIMAMONEDA,MTOTOTRECAMONEDA,CODMONEDA,SUMAASEG,PRIMA,FECINIVALID,FECFINVALID,INDINCREN,INDPLAZOESPERA,INDSUMADED,PORCDED,MTODEDMIN,BASEDED,PORCDESC,PORCREEMB,PORCMINASEG)" & "Values(" & idcobert_cosas & "," & idepol & "," & certificado & ",'" & Request.Form("codpro") & "','" & Request.Form("CODPLAN") & "','" & Request.Form("REVPLAN") & "','" & COSAS & "','" & Request.Form("STSPOL") & "'," & COSASSUMA & "," & COSASTASA & "," & COSASPRIMA & "," & CERO & ",'" & Request.Form("CODMONEDA") & "'," & COSASSUMA & "," & COSASPRIMA & ",'" & Request.Form("vPolizaDesde") & "','" & fechafin & "','" & Request.Form("INDINCREN") & "','" & Request.Form("INDPLAZOESPERA") & "','" & Request.Form("INDSUMADED") & "',"& CERO &","& CERO &",'" & Request.Form("BASEDED") & "',"& CERO &","& CIEN1 &","& CERO &")"
'INSERT_RS.open SQL_COBERT_CERT_cosas,DB
'SQL_COBERT_CERT_personas = "Insert Into COBERT_CERT (IDECOBERT,IDEPOL,NUMCERT,CODRAMOCERT,CODPLAN,REVPLAN,CODCOBERT,STSCOBERT,SUMAASEGMONEDA,TASA,PRIMAMONEDA,MTOTOTRECAMONEDA,CODMONEDA,SUMAASEG,PRIMA,FECINIVALID,FECFINVALID,INDINCREN,INDPLAZOESPERA,INDSUMADED,PORCDED,MTODEDMIN,BASEDED,PORCDESC,PORCREEMB,PORCMINASEG)" & "Values(" & idcobert_personas & "," & idepol & "," & certificado & ",'" & Request.Form("codpro") & "','" & Request.Form("CODPLAN") & "','" & Request.Form("REVPLAN") & "','" & PERSONAS & "','" & Request.Form("STSPOL") & "'," & PERSONASSUMA & "," & PERSONASTASA & "," & PERSONASPRIMA & "," & CERO & ",'" & Request.Form("CODMONEDA") & "'," & PERSONASSUMA & "," & PERSONASPRIMA & ",'" & Request.Form("vPolizaDesde") & "','" & fechafin & "','" & Request.Form("INDINCREN") & "','" & Request.Form("INDPLAZOESPERA") & "','" & Request.Form("INDSUMADED") & "',"& CERO &","& CERO &",'" & Request.Form("BASEDED") & "',"& CERO &","& CIEN1 &","& CERO &")"
'INSERT_RS.open SQL_COBERT_CERT_personas,DB
'SQL_MOD_COBERT_cosas= "Insert Into MOD_COBERT (IDEPOL,NUMCERT,CODRAMOCERT,IDECOBERT,NUMMOD,ORIGMODCOBERT,STSMODCOBERT,SUMAASEGMONEDA,TASA,PRIMAMONEDA,PRIMAFACTMONEDA,CODMONEDA,FECINIVALID,FECFINVALID,INDINCREN,INDPLAZOESPERA,IDEMOVPRIMAT,IDEMOVPRIMA)" & "Values(" & idepol & "," & certificado & ",'" & Request.Form("codpro") & "'," & modcobert_cosas & "," & CERO & ",'" & Request.Form("ORIGMODCOBERT") & "','" & Request.Form("STSPOL") & "'," & COSASSUMA & "," & COSASTASA & "," & COSASPRIMA & "," & COSASPRIMA & ",'" & Request.Form("CODMONEDA") & "','" & Request.Form("vPolizaDesde") & "','" & Request.Form("vPolizaHasta") & "','" & Request.Form("INDINCREN") & "','" & Request.Form("INDPLAZOESPERA") & "'," & IDEMOVPRIMAT & "," & IDEMOVPRIMA & ")"
'INSERT_RS.open SQL_MOD_COBERT_cosas,DB
SQL_MOD_COBERT_personas= "Insert Into MOD_COBERT (IDEPOL,NUMCERT,CODRAMOCERT,IDECOBERT,NUMMOD,ORIGMODCOBERT,STSMODCOBERT,SUMAASEGMONEDA,TASA,PRIMAMONEDA,PRIMAFACTMONEDA,CODMONEDA,FECINIVALID,FECFINVALID,INDINCREN,INDPLAZOESPERA,IDEMOVPRIMAT,IDEMOVPRIMA)" & "Values(" & idepol & "," & certificado & ",'" & Request.Form("codpro") & "'," & modcobert_personas & "," & CERO & ",'" & Request.Form("ORIGMODCOBERT") & "','" & Request.Form("STSPOL") & "'," & PERSONASSUMA & "," & PERSONASTASA & "," & PERSONASPRIMA & "," & PERSONASPRIMA & ",'" & Request.Form("CODMONEDA") & "','" & Request.Form("vPolizaDesde") & "','" & Request.Form("vPolizaHasta") & "','" & Request.Form("INDINCREN") & "','" & Request.Form("INDPLAZOESPERA") & "'," & IDEMOVPRIMAT & "," & IDEMOVPRIMA & ")"
INSERT_RS.open SQL_MOD_COBERT_personas,DB