Re: RV: ayuda please INSERT VISUAL B 6 POSTGRES

Pasa a la lista el INSERT (no el codigo Visual) que queres ejecutar en
postgres, y te podemos decir si es correcto o no.

Ya de entrada, me parece que hay algo que esta mal

"INSERT INTO " & IIf(AccionGuia = 2, "guiatmp", "guia") & " (id,
fecha, codairway, NumAirWay, AirWayBill, " _

esto es mal parseado y hay algo que no me cierra mucho que es ese iif
en el medio, dentro de una asignacion...

pasa la consulta solamente porque sinceramente es peor que pasarle un
dtrace a un programa hecho en smalltalk. ;P

2008/11/6 GRUPO SIC, S.A. DE C.V. <gsic(at)prodigy(dot)net(dot)mx>:
>
>
>
>
> -----Mensaje original-----
> De: GRUPO SIC, S.A. DE C.V. [mailto:gsic(at)prodigy(dot)net(dot)mx]
> Enviado el: Miércoles, 05 de Noviembre de 2008 05:39 p.m.
> Para: 'pgsql-es-ayuda(at)postgresql(dot)org'
> Asunto: ayuda please INSERT VISUAL B 6 POSTGRES
>
>
>
> Saludos espero me puedan ayudar o dar una idea
>
> Estoy migrando una aplicación en visual 6 con acces a v baisc 6 con
> postgresql
>
>
>
> Ya migre la base , y ya realice la conexión en algunas partes ya esta
> funcional pero en otras aun no trabaja
>
> Ya realice el cambio de los campos de la bd a minusculas
>
>
>
> Ya revise los campos de las tablas en este insert y todos los campos son
> correctos, pero el problema es que no envia ningun error
>
> Y tampoco inserta datos (ALGUNA RESTRICCION O CAMBIO DE FORMATO CON POSTGRES
> ¿?)
>
> GRACIAS POR SU AYUDA
>
>
>
> CadenaComando = "INSERT INTO " & IIf(AccionGuia = 2, "guiatmp", "guia") & "
> (id, fecha, codairway, NumAirWay, AirWayBill, " _
>
> ' & "Dir1, Dir2, Dir3, Rfc, Pais, NumGuia, DigitoVerif,
> IdShipper, " _
>
> ' & "Shipper, Dir1Ship, Dir2Ship, Dir3Ship, Dir4Ship,
> IdConsignee, Consignee, Dir1Consig, " _
>
> ' & "Dir2Consig, Dir3Consig, Dir4Consig, IdCarrier, Carrier,
> Dir1Carrier, Dir2Carrier, AgIATACarrier, " _
>
> ' & "AccountNo, AccountInf1, AccountInf2, AccountInf3,
> Airport, ToP1, " _
>
> ' & "ByFirstCarrier, To1, By1, To2, By2, Reference,
> OptShipInf1, OptShipInf2, " _
>
> ' & "PCurrencyy, CHGSCod, WV_ppd, WV_coll, OT_ppd, OT_coll,
> DeclareValue_Carr, " _
>
> ' & "DeclareValue_Cust, AirportDest, FlightDate1,
> FlightDate2, Amount, " _
>
> ' & "HandlingInf, handlinginf2, handlinginf3, SCI, "
>
>
>
> 'CadenaComando2 = "IdPartida, PNoPieces, PGross, PUm,
> PRateClass, PComodity, " _
>
> ' & "PChargeable, PRate_Charge, PTotal, PNature,
> OCharges_Desc1, OCharges_Val1, " _
>
> ' & "OCharges_Desc2, OCharges_Val2, OCharges_Desc3,
> OCharges_Val3, OCharges_Desc4, " _
>
> ' & "OCharges_Val4, OCharges_Desc5, OCharges_Val5,
> OCharges_Desc6, OCharges_Val6, " _
>
> ' & "OCharges_Desc7, OCharges_Val7, OCharges_Desc8,
> OCharges_Val8, OCharges_Desc9, OCharges_Val9, OCharges_Desc10,
> OCharges_Val10, OCharges_Desc11, OCharges_Val11, OCharges_Desc12,
> OCharges_Val12, SignatureShip, ExecutedOn, ExecutedOn2, SignatureCarr,
> TWeightC_Pre, TWeightC_Coll, " _
>
> ' & "TValuatC_Pre, TValuatC_Coll, TTax_Pre, TTax_Coll,
> TTotOtherCAgent_Pre, " _
>
> ' & "TTotOtherCAgent_Coll, TTotOtherCCarrier_Pre,
> TTotOtherCCarrier_Coll, " _
>
> ' & "TTOTAL_PREPAID, TTOTAL_COLLECT, TCurrencyyConvr,
> TccCharges, TChargesDest, " _
>
> ' & "TTotalColl_Charges, PDimentios, Fac_PesoVol, PNature2,
> PNature3, PNature4, PNature5, PNature6, PNature7, PNature8, PNature9,
> PNature10, PNature11, PNature12, PNature13, PNature14,agreed, IdMaquina)"
>
>
>
> 'CadenaSql = ValNulo(rcs(0)!nueva) + 1 & ",' #" &
> Format(FrPrin.Txt(2), "dd/mm/yy") & "#','" & Trim(Mid(FrPrin.CmbAW, InStr(1,
> FrPrin.CmbAW, " -") + 2)) & "', '" & StrNulo(Mid(FrPrin.CmbAW, 1, 3)) & "',
> '" & StrNulo(FrPrin.LblAirWay(0)) & "', '" & StrNulo(FrPrin.LblAirWay(1)) &
> "', '" & StrNulo(FrPrin.LblAirWay(2)) & "', '" &
> StrNulo(FrPrin.LblAirWay(3)) & "', '" & StrNulo(FrPrin.LblAirWay(4)) & "',
> '" & StrNulo(FrPrin.Txt(0)) & "', '" & StrNulo(FrPrin.Txt(1)) & "', " &
> ValNulo(FrPrin.LblDigito) & ", '" & StrNulo(FrPrin.TLblNS) _
>
> ' & "', '" & StrNulo(FrPrin.CmbShip) & "', '" &
> StrNulo(Trim(Mid(FrPrin.LblDirS(0), 1, 39))) & "', '" &
> StrNulo(Trim(Mid(FrPrin.LblDirS(1), 1, 39))) & "', '" &
> StrNulo(Trim(Mid(FrPrin.LblDirS(2), 1, 39))) & "', '" &
> StrNulo(Trim(Mid(FrPrin.LblDirS(3), 1, 39))) & "', '" &
> StrNulo(FrPrin.TLblNC) & "', '" & StrNulo(FrPrin.CmbCon) & "', '" &
> StrNulo(Trim(Mid(FrPrin.TxtDirC(0), 1, 39))) & "', '" &
> StrNulo(Trim(Mid(FrPrin.TxtDirC(1), 1, 39))) & "', '" &
> StrNulo(Trim(Mid(FrPrin.TxtDirC(2), 1, 39))) & "', '" &
> StrNulo(Trim(Mid(FrPrin.TxtDirC(3), 1, 39))) & "', '" & 0 & "', '" &
> StrNulo(FrPrin.TxtCarrier) & "', '" & StrNulo(FrPrin.LblDirCarr(0)) & "', '"
> & StrNulo(FrPrin.LblDirCarr(1)) & "', '" & StrNulo(FrPrin.Txt(7)) & "', '" &
> StrNulo(FrPrin.Txt(8)) & "', '" & StrNulo(FrPrin.Txt(4)) & "', '" _
>
> ' & StrNulo(FrPrin.Txt(5)) & "', '" & StrNulo(FrPrin.Txt(6))
> & "', '" & StrNulo(FrPrin.Txt(9)) & "', '" & StrNulo(Mid(FrPrin.CmbAer, 1,
> 3)) & "', '" & StrNulo(FrPrin.Txt(14)) & "', '" & StrNulo(FrPrin.Txt(15)) &
> "', '" & StrNulo(FrPrin.Txt(16)) & "', '" & StrNulo(FrPrin.Txt(17)) & "', '"
> & StrNulo(FrPrin.Txt(18)) & "', '" & StrNulo(FrPrin.Txt(10)) & "', '" &
> StrNulo(FrPrin.Txt(11)) & "', '" & StrNulo(FrPrin.Txt(12)) _
>
> ' & "', '" & StrNulo(FrPrin.Txt(19)) & "', '" &
> StrNulo(FrPrin.Txt(20)) & "', " & IIf(FrPrin.Chk(0).Value, 1, 0) & ", " &
> IIf(FrPrin.Chk(1).Value, 1, 0) & ", " & IIf(FrPrin.Chk(2).Value, 1, 0) & ",
> " & IIf(FrPrin.Chk(3).Value, 1, 0) & ", '" & StrNulo(FrPrin.Txt(21)) & "',
> '" & StrNulo(FrPrin.Txt(22)) & "', '" & StrNulo(FrPrin.Txt(23)) & "', '" &
> StrNulo(FrPrin.Txt(24)) & "', '" & StrNulo(FrPrin.Txt(25)) & "', '" _
>
> ' & StrNulo(FrPrin.Txt(26)) & "', '" _
>
> ' & StrNulo(FrPrin.Txt(27)) & "', '" &
> StrNulo(FrPrin.TxtHand2) & "', '" & StrNulo(FrPrin.TxtHand3) & "', '" &
> StrNulo(FrPrin.Txt(28)) & "', " & ValNulo(rcs(0)!nueva) + 1 & ", " &
> ValNulo(TxtNew(1)) & ", '" & StrNulo(TxtNew(2)) & "', '" & StrNulo(CmbUm) &
> "', '" & StrNulo(CmbRC) & "', '" & StrNulo(TxtNew(3)) & "', " &
> ValNulo(TxtNew(4)) & ", '" & StrNulo(TxtNew(5)) & "', " & ValNulo(TxtNew(6))
> & ", '" & StrNulo(TxtNat(0)) & "', '" & StrNulo(FrPrin.CmbOC(0)) & "', " _
>
> ' & ValNulo(FrPrin.TxtOC(3)) & ", '" &
> StrNulo(FrPrin.CmbOC(1)) & "', " & ValNulo(FrPrin.TxtOC(4)) & ", '" &
> StrNulo(FrPrin.CmbOC(2)) & "', " & ValNulo(FrPrin.TxtOC(5)) & ", '" &
> StrNulo(FrPrin.CmbOC(6)) & "', " & ValNulo(FrPrin.TxtOC(9)) & ", '" &
> StrNulo(FrPrin.CmbOC(7)) & "', " & ValNulo(FrPrin.TxtOC(10)) & ", '" &
> StrNulo(FrPrin.CmbOC(8)) & "', " & ValNulo(FrPrin.TxtOC(11)) & ", '" &
> StrNulo(FrPrin.CmbOC(3)) & "', " & ValNulo(FrPrin.TxtOCA(1)) & ", '" &
> StrNulo(FrPrin.CmbOC(9)) & "', " & ValNulo(FrPrin.TxtOCC(1)) & ", '" &
> StrNulo(FrPrin.CmbOC(4)) & "', " & ValNulo(FrPrin.TxtOCAN(0)) & ", '" &
> StrNulo(FrPrin.CmbOC(5)) & "', " & ValNulo(FrPrin.TxtOCAN(1)) & ", '" &
> StrNulo(FrPrin.CmbOC(10)) & "', " & ValNulo(FrPrin.TxtOCCN(0)) & ", '" &
> StrNulo(FrPrin.CmbOC(11)) & "', " & ValNulo(FrPrin.TxtOCCN(1)) & ", '" &
> StrNulo(FrPrin.TxtMD(1)) & "', '" _
>
> ' & StrNulo(FrPrin.TxtMD(2)) & "', '" &
> StrNulo(FrPrin.TxtMD(3)) & "', '" & StrNulo(FrPrin.TxtMD(0)) & "', " &
> ValNulo(FrPrin.TxtTot(0)) & ", " & ValNulo(FrPrin.TxtTot(1)) & ", " &
> ValNulo(FrPrin.TxtTot(2)) & ", " & ValNulo(FrPrin.TxtTot(3)) & ", " &
> ValNulo(FrPrin.TxtTot(4)) & ", " & ValNulo(FrPrin.TxtTot(5)) & ", " &
> ValNulo(FrPrin.TxtTot(6)) & ", " & ValNulo(FrPrin.TxtTot(7)) & ", " &
> ValNulo(FrPrin.TxtTot(8)) & ", " & ValNulo(FrPrin.TxtTot(9)) & ", " _
>
> ' & ValNulo(FrPrin.TxtTot(10)) & ", " &
> ValNulo(FrPrin.TxtTot(11)) & ", " & ValNulo(FrPrin.TxtTot(12)) & ", " &
> ValNulo(FrPrin.TxtTot(13)) & ", " & ValNulo(FrPrin.TxtTot(14)) & ", " &
> ValNulo(FrPrin.TxtTot(15)) & ", '" & StrNulo(TxtNew(8)) & "', " &
> ValNulo(LblFactorPesoVol) & ", '" & StrNulo(TxtNat(1)) & "', '" &
> StrNulo(TxtNat(2)) & "', '" & StrNulo(TxtNat(3)) & "', '" &
> StrNulo(TxtNat(4)) & "', '" & StrNulo(TxtNat(5)) & "', '" &
> StrNulo(TxtNat(6)) & "', '" & StrNulo(TxtNat(7)) & "', '" &
> StrNulo(TxtNat(8)) & "', '" & StrNulo(TxtNat(9)) & "', '" &
> StrNulo(TxtNat(10)) & "', '" & StrNulo(TxtNat(11)) & "', '" &
> StrNulo(TxtNat(12)) & "', '" & StrNulo(TxtNat(13)) & "'," &
> IIf(Agreed.Value, 1, 0) & ", " & IdMaquina
>
> Cn.Execute (CadenaComando & CadenaComando2 _
>
> & " VALUES (" & CadenaSql & ")")
>
>

--
Emanuel Calvo Franco
Syscope Postgresql DBA
BaPUG / AOSUG Member