Attribute VB_Name = "Database"
'''should import reference:
'''Microsoft ActiveX Data Objects Library (2.8)
'''and Microsoft ActiveX Data Objects Recordset Library (2.8, or 6.0)

Private conn As New ADODB.Connection

Public Sub ImportImage(ByVal savedir As String)
    Dim paths() As String
    Dim fn, directory, sql As String, lens As Integer
    
    On Error GoTo EH
    If 0 = conn.State Then
        conn.Open "Data Source=psp", "pspdata", "psp@2015", adModeUnknown
    End If
    
    savedir = Replace(savedir, "\", "/")
    paths = Split(savedir, "/")
    lens = UBound(paths)
    fn = paths(lens)
    directory = paths(lens - 4) + "/" + paths(lens - 3) + "/" + paths(lens - 2) + "/" + paths(lens - 1) + "/"
    
    sql = "INSERT INTO psp.image(imgname, importdate, releasedate, directory)"
    sql = sql + " SELECT '" + fn + "', now(), to_timestamp(to_char(now()+'1 hour', 'YYYY-MM-DD HH24'), 'YYYY-MM-DD HH24'), '" + directory + "'"
    sql = sql + " WHERE NOT EXISTS(SELECT id FROM psp.image WHERE imgname='" + fn + "' AND directory='" + directory + "' LIMIT 1)"
    sql = sql + ";COMMIT;"
    
    conn.Execute sql
    conn.Close
    Exit Sub
EH:
    '''MsgBox ("Error at writing database:" + Err.Description)
    
End Sub

Public Sub ImportErrImage(ByVal savedir As String)
    Dim paths() As String
    Dim fn, directory, sql As String, lens As Integer
    
    On Error GoTo EH
    If 0 = conn.State Then
        conn.Open "Data Source=psp", "pspdata", "psp@2015", adModeUnknown
    End If
    
    savedir = Replace(savedir, "\", "/")
    paths = Split(savedir, "/")
    lens = UBound(paths)
    fn = paths(lens)
    directory = paths(lens - 4) + "/" + paths(lens - 3) + "/" + paths(lens - 2) + "/" + paths(lens - 1) + "/"
    
    sql = "INSERT INTO psp.errimage(imgname, importdate, releasedate, directory)"
    sql = sql + " SELECT '" + fn + "', now(), to_timestamp(to_char(now()+'1 hour', 'YYYY-MM-DD HH24'), 'YYYY-MM-DD HH24'), '" + directory + "'"
    sql = sql + " WHERE NOT EXISTS(SELECT id FROM psp.errimage WHERE imgname='" + fn + "' AND directory='" + directory + "' LIMIT 1)"
    sql = sql + ";COMMIT;"
    
    conn.Execute sql
    conn.Close
    Exit Sub
EH:
    '''MsgBox ("Error at writing database:" + Err.Description)
    
End Sub