From 0101b45e8ad2aaaca2dddf5d078ea7cab8056b6d Mon Sep 17 00:00:00 2001 From: Paul Trowbridge Date: Mon, 15 Mar 2021 16:02:45 -0400 Subject: [PATCH] set header values, wrap the sql in a commit block, close the connection --- FL.bas | 24 ++++++++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) diff --git a/FL.bas b/FL.bas index 3e3a9df..c747716 100644 --- a/FL.bas +++ b/FL.bas @@ -1489,6 +1489,18 @@ Sub price_load_pcore() For pcount = 1 To UBound(pcol) ReDim load(9, UBound(big, 2)) + '----set headers----- + load(0, 0) = "stlc" + load(1, 0) = "coltier" + load(2, 0) = "branding" + load(3, 0) = "accs" + load(4, 0) = "suff" + load(5, 0) = "pckg" + load(6, 0) = "pack" + load(7, 0) = "mp" + load(8, 0) = "bulk" + load(9, 0) = "plist" + '-----populate------------ For i = 1 To UBound(big, 2) load(0, i) = big(0, i) load(1, i) = big(1, i) @@ -1501,13 +1513,21 @@ Sub price_load_pcore() load(8, i) = Format(big(pcol(pcount) - 1, i), "####0.00") load(9, i) = big(pcol(pcount) - 0, i) Next i - sql = x.SQLp_build_sql_values(load, True, False, PostgreSQL, False, "S", "S", "S", "S", "S", "S", "N", "N", "N", "S") - sql = "INSERT INTO rlarp.pcore" & vbCrLf & sql + '------build insert statement for target price list----- + sql = "BEGIN;" + sql = sql & vbCrLf & "DELETE FROM rlarp.pcore WHERE plist = '" & load(9, 1) & "';" + sql = sql & vbCrLf & "INSERT INTO rlarp.pcore" + sql = sql & vbCrLf & x.SQLp_build_sql_values(load, True, True, PostgreSQL, False, "S", "S", "S", "S", "S", "S", "N", "N", "N", "S") & ";" + sql = sql & vbCrLf & "COMMIT;" + '------do the insert------------------------------------ If Not x.ADOp_Exec(0, sql) Then MsgBox (x.ADOo_errstring) Exit Sub End If Next pcount + Call x.ADOp_CloseCon(0) + + End Sub