Reads/Saves specific settings from DB table
Mainly for Classic ASP, but can be used inside VBA
Table Columns are ...
ID | SettingName | SettingValue | SettingValue2 | Description | DateAdded
Needs connection already defined and functions DB_Read1stRow, CutString3 for Classic ASP
Or DB_Connect_AndOr_Fix for VBA
Edit 2020-09-22: Adding DB_SettingDelete() function
Function DB_SettingRead(SettingName)
' Reads specific settings from DB table
Rett = DB_SettingRead_Row(SettingName , "{||}")
DB_SettingRead = CutString3(Rett, 3, "{||}")
End Function
Sub DB_SettingSave(SettingName, SettingNewValue)
' Saves specific setting into Settings table
'
SQL2 = "Insert into dbo.Settings(SettingName,SettingValue,SettingVakue2,Description,DateAdded) Values('" & SettingName & "','" & SettingNewValue & "','','','" & DateinSQL & "')"
Found1 = DB_SettingRead(SettingName)
If Found1 > "" Then SQL2 = "Update dbo.Settings Set SettingValue='" & _
SettingNewValue & "' where SettingName like '" & SettingName & "'"
connection.execute(SQL2)
' For VBA, use ... DB_Connect_AndOr_Fix SQL2
End Sub
Function DB_SettingRead_Value2(SettingName)
' Reads Value2 of specific settings from DB table
Rett = DB_SettingRead_Row(SettingName , "{||}")
DB_SettingRead_Value2 = CutString3(Rett, 4, "{||}")
End Function
Sub DB_SettingSave_Value2(SettingName, SettingNewValue2)
End Sub
Function DB_SettingRead_Description(SettingName)
' Reads Value2 of specific settings from DB table
Rett = DB_SettingRead_Row(SettingName , "{||}")
DB_SettingRead_Description = CutString3(Rett, 5, "{||}")
End Function
Sub DB_SettingSave_Description(SettingName, SettingNewDescription)
End Sub
Function DB_SettingRead_Row(SettingName, Sepa)
' Reads full row for certain settings from DB table
' Table Columns are ...
' ID | SettingName | SettingValue | SettingValue2 | Description | DateAdded
Rett = ""
If Sepa = "" Then Sepa = "{||}"
SQL1 = "Select * from dbo.Settings where SettingName like '" & SettingName & "' "
Rett = DB_Read1stRow(SQL1, Sepa)
DB_SettingRead_Row = Rett
End Function
Function DB_SettingDelete(SettingID)
SQLSt = "Delete From " & DBSchema & ".[Settings] where [SettingName]='" & SettingID & "' "
Set recordsetF = oConn.execute(SQLSt)
Set RecordsetF = Nothing
End Function
' Reads specific settings from DB table
Rett = DB_SettingRead_Row(SettingName , "{||}")
DB_SettingRead = CutString3(Rett, 3, "{||}")
End Function
Sub DB_SettingSave(SettingName, SettingNewValue)
' Saves specific setting into Settings table
'
SQL2 = "Insert into dbo.Settings(SettingName,SettingValue,SettingVakue2,Description,DateAdded) Values('" & SettingName & "','" & SettingNewValue & "','','','" & DateinSQL & "')"
Found1 = DB_SettingRead(SettingName)
If Found1 > "" Then SQL2 = "Update dbo.Settings Set SettingValue='" & _
SettingNewValue & "' where SettingName like '" & SettingName & "'"
connection.execute(SQL2)
' For VBA, use ... DB_Connect_AndOr_Fix SQL2
End Sub
Function DB_SettingRead_Value2(SettingName)
' Reads Value2 of specific settings from DB table
Rett = DB_SettingRead_Row(SettingName , "{||}")
DB_SettingRead_Value2 = CutString3(Rett, 4, "{||}")
End Function
Sub DB_SettingSave_Value2(SettingName, SettingNewValue2)
End Sub
Function DB_SettingRead_Description(SettingName)
' Reads Value2 of specific settings from DB table
Rett = DB_SettingRead_Row(SettingName , "{||}")
DB_SettingRead_Description = CutString3(Rett, 5, "{||}")
End Function
Sub DB_SettingSave_Description(SettingName, SettingNewDescription)
End Sub
Function DB_SettingRead_Row(SettingName, Sepa)
' Reads full row for certain settings from DB table
' Table Columns are ...
' ID | SettingName | SettingValue | SettingValue2 | Description | DateAdded
Rett = ""
If Sepa = "" Then Sepa = "{||}"
SQL1 = "Select * from dbo.Settings where SettingName like '" & SettingName & "' "
Rett = DB_Read1stRow(SQL1, Sepa)
DB_SettingRead_Row = Rett
End Function
Function DB_SettingDelete(SettingID)
SQLSt = "Delete From " & DBSchema & ".[Settings] where [SettingName]='" & SettingID & "' "
Set recordsetF = oConn.execute(SQLSt)
Set RecordsetF = Nothing
End Function
SettingName
or
SettingName, SettingNewValue
or
SettingName, SettingNewValue
Views 5,040
Downloads 1,480
CodeID
DB ID
ANmarAmdeen
614
Revisions
v3.0
Tuesday
September
22
2020