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. <[EMAIL PROTECTED]>: > > > > > -----Mensaje original----- > De: GRUPO SIC, S.A. DE C.V. [mailto:[EMAIL PROTECTED] > Enviado el: Miércoles, 05 de Noviembre de 2008 05:39 p.m. > Para: 'pgsql-es-ayuda@postgresql.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
