Public Sub NewIssue( _
intIssueNumber As Integer, _
strDescription As String, _
intStatus As Integer, _
intUrgency As Integer, _
strDueDate As String, _
intValue As Integer, _
intTimeEstimate As Integer, _
strContact1 As String, _
strContact2 As String, _
strContact3 As String, _
strAssignee As String, _
strAssignee2 As String, _
strDateAdded As String, _
strDateAssigned As String, _
strDateOpened As String, _
strDateResolved As String, _
strDateClosed As String, _
strDateChanged As String, _
intParentIssue As Integer, _
strGroup As String, _
strCategory As String _
)
'
m_Record.Add "IssueNbr", intIssueNumber
m_Record.Add "Description", strDescription
m_Record.Add "Status", intStatus
m_Record.Add "Urgency", intUrgency
m_Record.Add "DueDate", strDueDate
m_Record.Add "BusValue", intValue
m_Record.Add "TimeEst", intTimeEstimate
m_Record.Add "Contact1", strContact1
m_Record.Add "Contact2", strContact2
m_Record.Add "Contact3", strContact3
m_Record.Add "AssignedTo", strAssignee
m_Record.Add "SuperUser", strAssignee2
m_Record.Add "AddDate", strDateAdded
m_Record.Add "AssignDate", strDateAssigned
m_Record.Add "OpenDate", strDateOpened
m_Record.Add "ResolveDate", strDateResolved
m_Record.Add "CloseDate", strDateClosed
m_Record.Add "ChgDate", strDateChanged
m_Record.Add "ParentIssueNbr", intParentIssue
m_Record.Add "GroupID", strGroup
m_Record.Add "Category", strCategory
'
End Sub
Private Sub Class_Initialize()
Set m_Record = New clsRecord
Set m_Conn = New Connection
Set m_Command = New Command
'
m_Conn.Open "Provider=sqloledb;" & _
"Data Source=SQLSERVER;" & _
"Initial Catalog=DATABASE;" & _
"Integrated Security=SSPI"
'
m_Command.ActiveConnection = m_Conn
'
End Sub
Public Property Get Insert_Satement() As Variant
Insert_Satement = "INSERT INTO " & TABLE_NAME & " " & m_Record.Names_Values
End Property