-----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 & ")")