DB_SettingRead + DB_SettingSave + ...

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


Public

Tested

My Own Work
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

SettingName
or
SettingName, SettingNewValue

Views 4058 Downloads 1179

Classic ASP Database
ANmarAmdeen
755
Revisions

v3.0