From d75cb849e8f952af9c1aa7f751eab5b6a3d1ab0f Mon Sep 17 00:00:00 2001 From: Paul Trowbridge Date: Tue, 20 Dec 2022 10:07:03 -0500 Subject: [PATCH] update ports --- FL.bas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/FL.bas b/FL.bas index 3e4a0cd..bb45c7b 100644 --- a/FL.bas +++ b/FL.bas @@ -793,7 +793,7 @@ Sub extract_price_matrix() If Not login.proceed Then Exit Sub - If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5030;Database=ubm") Then + If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5432;Database=ubm") Then MsgBox ("not able to connect to CMS" & vbCrLf & x.ADOo_errstring) Exit Sub End If @@ -1012,7 +1012,7 @@ Sub extract_price_matrix_suff() If Not login.proceed Then Exit Sub - If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5030;Database=ubm") Then + If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5432;Database=ubm") Then MsgBox ("not able to connect to CMS" & vbCrLf & x.ADOo_errstring) Exit Sub End If @@ -1341,7 +1341,7 @@ Sub price_load_pcore() ReDim Preserve pcol(pcount) ReDim typeflag(9) - If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5030;Database=ubm") Then + If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5432;Database=ubm") Then MsgBox (Err.Description) Exit Sub End If @@ -1535,7 +1535,7 @@ Sub nursery_parse() ' sql = tbo.ADOp_BuildInsertSQL(ext, "rlarp.nregional", True, 1, UBound(ext, 2), Array("S", "S", "N", "S")) ' sql = "truncate table rlarp.nregional;" & vbCrLf & sql & ";" -' If Not tbo.ADOp_Exec(0, sql, 1, True, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5030;Database=ubm") Then +' If Not tbo.ADOp_Exec(0, sql, 1, True, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5432;Database=ubm") Then ' MsgBox (tbo.ADOo_errstring) ' Else ' MsgBox ("Uploaded") @@ -1563,7 +1563,7 @@ Sub pricegroup_upload() sql = x.SQLp_build_sql_values(x.ARRAYp_get_range_string(Selection), True, True, PostgreSQL, False, True, "S", "S", "S", "S", "S", "S", "S", "S", "S", "N", "S", "S", "S", "A", "A", "J") sql = "BEGIN;" & vbCrLf & "DELETE FROM rlarp.price_map;" & vbCrLf & "INSERT INTO rlarp.price_map" & vbCrLf & sql & ";" & vbCrLf & "COMMIT;" - If Not x.ADOp_Exec(0, sql, 1, True, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5030;Database=ubm") Then + If Not x.ADOp_Exec(0, sql, 1, True, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5432;Database=ubm") Then MsgBox (x.ADOo_errstring) Exit Sub Else