Re: RV: ayuda please INSERT VISUAL B 6 POSTGRES

On Thu, Nov 6, 2008 at 5:50 PM, Emanuel CALVO FRANCO
<postgres(dot)arg(at)gmail(dot)com> wrote:
> 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, " _

Para mi eso esta bien ...porque esta solo formando un string para
pasarle a la Bd... revisa el string que le estas pasando a la BD al
final y ese envialo... ahi te daras cuenta enseguida que puede estar
pasando ...
Slds.

J

>
> 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
> --
> TIP 5: ¿Has leído nuestro extenso FAQ?
> http://www.postgresql.org/docs/faqs.FAQ.html
>

--
Cumprimentos
jchavez
linux User #397972 on http://counter.li.org/