addOrUpdateFile(fileNameSel, pathNameSel, (pathNameSel & "\" & fileNameSel), "n", 1000)
...
'======================================================================================================
Private Sub addOrUpdateFile(fileName As String, path As String, fullPath As String, fileNotFound As Char, fileSize As Long) As Boolean
'Check if full path exists
Dim qryStr As String
Dim dateStr As String
DateTime.DateFormat = "yyyy-MM-dd"
DateTime.TimeFormat = "HH:mm:ss"
dateStr = DateTime.Date(DateTime.Now) & " " & DateTime.Time(DateTime.Now)
qryStr = _
$"SELECT COUNT(fullPath) FROM tblRecentFiles WHERE fullPath = ?"$
Dim cur As ResultSet
' sqlRecent.BeginTransaction
Try
cur = sqlRecent.ExecQuery2(qryStr, Array As String(fullPath))
Catch
Log(LastException)
End Try
' sqlRecent.TransactionSuccessful
cur.NextRow
If cur.GetLong2(0) = 0 Then
qryStr = _
$"INSERT INTO tblRecentFiles (
fileName,
path,
fullPath,
dateFirstOpened,
dateLastOpened,
fileNotFound,
fileSize)
VALUES (?,
?,
?,
?,
?,
?,
?)"$
sqlRecent.BeginTransaction
Try
sqlRecent.ExecNonQuery2(qryStr, Array As String(fileName, path, fullPath, dateStr, dateStr, fileNotFound, fileSize))
Log("Recent File Added: " & fullPath & " Date: " & dateStr)
Catch
Log(LastException)
End Try
sqlRecent.TransactionSuccessful
Else
qryStr = _
$"UPDATE tblRecentFiles
SET
dateLastOpened = ?,
fileNotFound = ?,
fileSize = ?
WHERE fullPath = ?"$
sqlRecent.BeginTransaction
Try
sqlRecent.ExecNonQuery2(qryStr, Array As String(dateStr, fileNotFound, fileSize, fullPath))
Log("Recent File Updated: " & fullPath & " Date: " & dateStr)
Catch
Log(LastException)
End Try
sqlRecent.TransactionSuccessful
End If
Return True
End Sub
