Database

' Write a schedule entry to the database
'
' IN
' sched - the schedule entry
'
' OUT - success?
Public Function CreateScheduleEntry(sched As cScheduleEntry) As Boolean
On Error GoTo Error

    Dim adoConn As New ADODB.Connection
    Set adoConn = OpenDatabase
    
    adoConn.Execute "INSERT INTO tblSchedule " & sched.FormatSQL & ";"
    
    adoConn.Close

    CreateScheduleEntry = True
    Exit Function

Error:
    CreateScheduleEntry = False
    Exit Function
End Function

Public ID As Integer
Public Employee As cEmployee
Public job As cJob
Public ScheduleDate As Date
Public Area As cArea
Public Description As String
Public Status As Integer

' Returns a SQL statement formatted for an INSERT INTO statement,
' of formtat ({fields}) VALUES ({values})
'
' IN
' OUT - SQL string as described above
Public Function FormatSQL() As String
    FormatSQL = "(" & _
                "EmployeeID,JobID,Date,AreaID,Description,Status" & _
                ") VALUES (" & _
                Employee.ID & "," & _
                job.ID & "," & _
                "#" & Month(Date) & "/" & Day(Date) & "/" & Year(Date) & "#," & _
                Area.ID & "," & _
                QuoteString(Description) & "," & _
                Status & _
                ")"
End Function

INSERT INTO tblSchedule (EmployeeID,JobID,Date,AreaID,
Description,Status) VALUES (1,2,#4/1/2002#,4,'test',1)