"At one end of the system," Steve A writes "we have a fairly simple HTML-form that displayed a handful of shipping-related fields. At that the other end, there's a database table that pretty much matches those fields one-to-one. But in the middle.... there's a lot more."
"It's so hard to even begin describing our systems architectural problems, let alone using code to illustrate them. So instead, I'll just share this single line — a function definition — from a VB6 .dll that's called a as a plug-in by another VB6 .dll, which is in-turn called by a VB6 .exe that runs as a service. This function calls a single stored procedure, which in turn calls another stored procedure that call other stored procedures. But eventually, a row gets inserted."
Function InsertXMLShipment( _ ByVal GMImportId_fk As Variant, ByVal nShpId As Variant, _ ByVal nShpConConsigneeId As Variant, ByVal nShpConShipperId As Variant, _ ByVal nShpConBillId As Variant, ByVal fShpMiles As Variant, _ ByVal dtShpRequestedPickup As Variant, ByVal dtShpRequestedPickupDt As Variant, _ ByVal sShpRequestedPickupTime As Variant, ByVal dtShpRequestedDelivery As Variant, _ ByVal dtShpRequestedDeliveryDt As Variant, ByVal sShpRequestedDeliveryTime As Variant, _ ByVal dtShpPickup As Variant, ByVal dtShpPickupDt As Variant, ByVal sShpPickupTime As Variant, _ ByVal dtShpDelivery As Variant, ByVal dtShpDeliveryDt As Variant, ByVal sShpDeliveryTime As Variant, ByVal bShpAirRide As Variant, ByVal bShpTarps As Variant, _ ByVal sShpPO As Variant, ByVal sShpOrderedBy As Variant, ByVal sShpNotes As Variant, _ ByVal nShpCarIdFd As Variant, ByVal sShpTrailer As Variant, ByVal sShpBol As Variant, _ ByVal fShpCarPieces As Variant, ByVal dtShpRequestedPickupEnd As Variant, _ ByVal dtShpRequestedPickupEndDt As Variant, ByVal sShpRequestedPickupEndTime As Variant, _ ByVal dtShpRequestedDeliveryEnd As Variant, ByVal dtShpRequestedDeliveryEndDt As Variant, _ ByVal sShpRequestedDeliveryEndTime As Variant, ByVal sShpContainerProject As Variant, _ ByVal sShpGMContact As Variant, ByVal sShpGMContactPhone As Variant, _ ByVal dtShpSupplierPickup As Variant, ByVal dtShpSupplierPickupDt As Variant, _ ByVal sShpSupplierPickupTime As Variant, ByVal sShpSupplierBOL As Variant, _ ByVal nShpStatusFd As Variant, ByVal sEqtEquipmentType As Variant, _ ByVal sComType As Variant, ByVal fShpInvoicedFd As Variant, ByVal sStaStatus As Variant, _ ByVal nComId As Variant, ByVal nEqtId As Variant, ByVal nStaId As Variant, _ ByVal sCayType As Variant, ByVal nCayId As Variant) As Boolean