pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: pt:79443856c52b8105e9a14cdf8b5cdf11fb3b4401
Branches Tags
pt:master
..
compare: pt:34984de2606f12d23343fd7673b9232212806924
Branches Tags
pt:master

No commits in common. "79443856c52b8105e9a14cdf8b5cdf11fb3b4401" and "34984de2606f12d23343fd7673b9232212806924" have entirely different histories.
79443856c5 ... 34984de260

2 changed files with 3 additions and 27 deletions
Show Stats Expand all files Collapse all files

23
FL.bas
View File

@ -1673,31 +1673,10 @@ Sub nursery_parse()
End Sub End Sub
Sub convert_to_value() Sub convert_to_value()
Dim c As Object
For Each c In Selection.Cells For Each c In Selection.Cells
If IsNumeric(c.value) Then c.value = CDbl(c.value) If IsNumeric(c.value) Then c.value = CDbl(c.value)
Next c Next c
End Sub End Sub
Sub pricegroup_upload()
Dim sql As String
Selection.CurrentRegion.Select
sql = x.SQLp_build_sql_values(x.ARRAYp_get_range_string(Selection), True, True, PostgreSQL, False)
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
MsgBox (x.ADOo_errstring)
Else
MsgBox ("Upload Complete")
End If
Call x.ADOp_CloseCon(0)
End Sub

7
pricelist.frm
View File

@ -13,7 +13,6 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False Attribute VB_Exposed = False
Public proceed As Boolean Public proceed As Boolean
Private pl() As String Private pl() As String
Private plv() As Variant Private plv() As Variant
@ -111,7 +110,7 @@ Private Sub UserForm_Initialize()
' End If ' End If
' End If ' End If
If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@046") Then If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@042") Then
MsgBox (FL.x.ADOo_errstring) MsgBox (FL.x.ADOo_errstring)
Exit Sub Exit Sub
End If End If
@ -125,8 +124,6 @@ Private Sub UserForm_Initialize()
plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl)) plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl))
cbLIST.list = plv cbLIST.list = plv
lbLIST.list = plfv lbLIST.list = plfv
@ -171,7 +168,7 @@ Sub load_lists()
' End If ' End If
' End If ' End If
If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@046") Then If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@042") Then
MsgBox (FL.x.ADOo_errstring) MsgBox (FL.x.ADOo_errstring)
Exit Sub Exit Sub
End If End If