Returns a certain field from Settings table by a SettingName.
Similar to DB_SettingRead, except here you can control which field to return, not only the 'Value' field.
Function DB_SettingRead_DateAdded(SettingID)
DB_SettingRead_DateAdded = DB_SettingRead_Field(SettingID, 5)
End Function
Function DB_SettingRead_DateModified(SettingID)
DB_SettingRead_DateModified = DB_SettingRead_Field(SettingID, 6)
End Function
Function DB_SettingRead_Field(SettingID, FieldNo)
DB_SettingRead_Field = "{{$N/A$}}"
SQLSt = "Select * from [Settings] where [SettingName]='" & SettingID & "' "
Set recordsetF = oConn.execute(SQLSt)
if recordsetF.eof Then Exit Function
DB_SettingRead_Field = Trim(RecordSetF(FieldNo).value)
Set RecordsetF = Nothing
End Function
DB_SettingRead_DateAdded = DB_SettingRead_Field(SettingID, 5)
End Function
Function DB_SettingRead_DateModified(SettingID)
DB_SettingRead_DateModified = DB_SettingRead_Field(SettingID, 6)
End Function
Function DB_SettingRead_Field(SettingID, FieldNo)
DB_SettingRead_Field = "{{$N/A$}}"
SQLSt = "Select * from [Settings] where [SettingName]='" & SettingID & "' "
Set recordsetF = oConn.execute(SQLSt)
if recordsetF.eof Then Exit Function
DB_SettingRead_Field = Trim(RecordSetF(FieldNo).value)
Set RecordsetF = Nothing
End Function
SettingID, FieldNo
DB_SettingRead_DateAdded = DB_SettingRead_Field(SettingID, 5)
DB_SettingRead_DateModified = DB_SettingRead_Field(SettingID, 6)
DB_SettingRead_DateModified = DB_SettingRead_Field(SettingID, 6)
Views 5,521
Downloads 1,342
CodeID
DB ID