Reads and save setting into settings table per 2 IDs, similar to SettingRead and SettingSave
Setting is saved per EULID, which means same setting can be found for different EULID.
Can be used as (Setting per user id), (Setting per ProjectID), (Setting per ProgramID), ... etc
Function DB_Setting2Read(EULID, SettingID)
If EULID = "" Then EULID="Global"
If UCase(EULID) = "GLOBAL" Then EULID="Global"
DB_Setting2Read = "{{$N/A$}}"
SQLSt = "Select * from [FinishProduct_Settings] where [FinishProduct_EULID]='" & EULID & "' and [SettingName]='" & Str2DB(SettingID) & "' "
Set recordsetF = Conn.execute(SQLSt)
if recordsetF.eof Then exit function
DB_Setting2Read = trim(RecordSetF(3).value)
Set RecordsetF = nothing
End Function
Sub DB_Setting2Save(EULID, SettingID, SettingValueNew)
If EULID = "" Then EULID = "Global"
If UCase(EULID) = "GLOBAL" Then EULID="Global"
Found1 = DB_SettingRead(EULID, SettingID)
SQL2 = "Insert into FinishProduct_Settings ([FinishProduct_EULID],[SettingName],[SettingValue],DateUpdated) " & _
"Values(N'" & EULID & "',N'" & Str2DB(SettingID) & "',N'" & Str2DB(SettingValueNew) & "',GetUTCDate())"
If Found1 < > "{{$N/A$}}" Then _
SQL2 = "Update FinishProduct_Settings " & _
"Set [SettingValue]=N'" & Str2DB(SettingValueNew) & "',DateUpdated=GetUTCDate() " & _
"where [FinishProduct_EULID]='" & EULID & "' and [SettingName]='" & Str2DB(SettingID) & "'"
Conn.execute(SQL2)
End Sub
If EULID = "" Then EULID="Global"
If UCase(EULID) = "GLOBAL" Then EULID="Global"
DB_Setting2Read = "{{$N/A$}}"
SQLSt = "Select * from [FinishProduct_Settings] where [FinishProduct_EULID]='" & EULID & "' and [SettingName]='" & Str2DB(SettingID) & "' "
Set recordsetF = Conn.execute(SQLSt)
if recordsetF.eof Then exit function
DB_Setting2Read = trim(RecordSetF(3).value)
Set RecordsetF = nothing
End Function
Sub DB_Setting2Save(EULID, SettingID, SettingValueNew)
If EULID = "" Then EULID = "Global"
If UCase(EULID) = "GLOBAL" Then EULID="Global"
Found1 = DB_SettingRead(EULID, SettingID)
SQL2 = "Insert into FinishProduct_Settings ([FinishProduct_EULID],[SettingName],[SettingValue],DateUpdated) " & _
"Values(N'" & EULID & "',N'" & Str2DB(SettingID) & "',N'" & Str2DB(SettingValueNew) & "',GetUTCDate())"
If Found1 < > "{{$N/A$}}" Then _
SQL2 = "Update FinishProduct_Settings " & _
"Set [SettingValue]=N'" & Str2DB(SettingValueNew) & "',DateUpdated=GetUTCDate() " & _
"where [FinishProduct_EULID]='" & EULID & "' and [SettingName]='" & Str2DB(SettingID) & "'"
Conn.execute(SQL2)
End Sub
EULID, SettingID, SettingValueNew
Views 4,435
Downloads 1,322
CodeID
DB ID
ANmarAmdeen
626
Revisions
v3.0
Saturday
January
11
2020