'Declarations Section
Private m_daJobsInfo As SqlDataAdapter = New SqlDataAdapter
Private m_cmdSelectJobsInfo As SqlCommand = New SqlCommand
Private m_cmdInsertNewJob As SqlCommand = New SqlCommand
Private m_cmdUpdateJobStatus As SqlCommand = New SqlCommand
Private m_cmdDeleteJob As SqlCommand = New SqlCommand
Private m_dtJobs As DataTable = New DataTable
Private Sub Form_Load()
Me.m_cmdSelectJobsInfo.CommandText = "SELECT Job_ID, Job_Type_ID, LocationCode, CountryName, Status, Server, EnteredBy, EnteredDate, FirstRunDate, Notes FROM FOR_Jobs_List WHERE MONTH(EnteredDate) = MONTH(GETDATE()) AND DAY(EnteredDate) = DAY(GETDATE()) AND YEAR(EnteredDate) = YEAR(GETDATE()) AND Status = 'Not Started' ORDER BY Job_ID"
Me.m_cmdSelectJobsInfo.Connection = new SqlConnection(string.Format(m_connectInfo,m_serverName,m_jobsDB))
Me.m_cmdInsertNewJob.CommandText = "INSERT INTO FOR_Jobs_List (Job_ID, Job_Type_ID, LocationCode, CountryName, Status, Server, EnteredBy, EnteredDate, FirstRunDate, Notes) VALUES(@Job_Type_ID,@LocationCode,@CountryName,@Status,@Server,@EnteredBy,@EnteredDate,@FirstRunDate,@Notes)"
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@Job_Type_ID", SqlDbType.Int, 4, "Job_Type_ID"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@LocationCode", SqlDbType.VarChar, 3, "LocationCode"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@CountryName", SqlDbType.VarChar, 50, "CountryName"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@Status", SqlDbType.VarChar, 100, "Status"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@Server", SqlDbType.VarChar, 30, "Server"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@EnteredBy", SqlDbType.VarChar, 50, "EnteredBy"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@EnteredDate", SqlDbType.DateTime, 8, "EnteredDate"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@FirstRunDate", SqlDbType.DateTime, 8, "FirstRunDate"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@Notes", SqlDbType.VarChar, 200, "Notes"))
Me.m_cmdInsertNewJob.Parameters.Add(new SqlParameter("@Job_ID", SqlDbType.Int, 4).Direction=ParameterDirection.ReturnValue)
Me.m_cmdInsertNewJob.Connection = new SqlConnection(string.Format(m_connectInfo,m_serverName,m_jobsDB))
Me.m_cmdUpdateJobStatus.CommandText = "UPDATE FOR_Jobs_List SET Status = @Status WHERE (Job_ID = @Original_Job_ID)SELECT Job_ID, Job_Type_ID, LocationCode, CountryName, Status, Server, EnteredBy, EnteredDate, FirstRunDate, Notes FROM FOR_Jobs_List WHERE (Job_ID = @Job_ID)"
Me.m_cmdUpdateJobStatus.Parameters.Add(new SqlParameter("@Original_Job_ID", System.Data.SqlDbType.Int, 4, ParameterDirection.Input, false, ((System.Byte)(0)), ((System.Byte)(0)), "Job_ID", System.Data.DataRowVersion.Original, null))
Me.m_cmdUpdateJobStatus.Parameters.Add(new SqlParameter("@Job_ID", SqlDbType.Int, 4, "Job_Type_ID"))
Me.m_cmdUpdateJobStatus.Parameters.Add(new SqlParameter("@Status", SqlDbType.VarChar, 100, "Status"))
Me.m_cmdUpdateJobStatus.Connection = new SqlConnection(string.Format(m_connectInfo,m_serverName,m_jobsDB))
Me.m_cmdDeleteJob.CommandText = "DELETE FOR_Jobs_List WHERE (Job_ID = @Original_Job_ID)SELECT Job_ID, Job_Type_ID, LocationCode, CountryName, Status, Server, EnteredBy, EnteredDate, FirstRunDate, Notes FROM FOR_Jobs_List"
Me.m_cmdDeleteJob.Parameters.Add(new SqlParameter("@Original_Job_ID", System.Data.SqlDbType.Int, 4, ParameterDirection.Input, false, ((System.Byte)(0)), ((System.Byte)(0)), "Job_ID", System.Data.DataRowVersion.Original, null))
Me.m_cmdDeleteJob.Connection = new SqlConnection(string.Format(m_connectInfo,m_serverName,m_jobsDB))
Me.m_daJobsInfo.SelectCommand = Me.m_cmdSelectJobsInfo
Me.m_daJobsInfo.InsertCommand = Me.m_cmdInsertNewJob
Me.m_daJobsInfo.UpdateCommand = Me.m_cmdUpdateJobStatus
Me.m_daJobsInfo.DeleteCommand = Me.m_cmdDeleteJob
End Sub
Public Sub CreateMulitplePostJob(_user As String,_jobTypeID As Int32)
Dim _cnTargetServer As SqlConnection = new SqlConnection(string.Format(m_connectInfo,m_serverName,m_dataDB))
Dim _cnTargetServer.Open
Dim _cmdActivePosts As SqlCommand = new SqlCommand("spSelActivePosts",_cnTargetServer)
Dim _drActivePosts As SqlDataReader
Try
m_daJobsInfo.Fill(m_dtJobs)
Dim _JobTypes As DataRow() = m_dtJobTypes.Select("Job_Type_ID = " + _jobTypeID)
Dim _description As String = _JobTypes(0)("Description").ToString
_drActivePosts = _cmdActivePosts.ExecuteReader
If _drActivePosts.HasRows = True Then
Do While _drActivePosts.Read
Dim _loc As String = _drActivePosts["Location"].ToString
Dim _country As String = _drActivePosts["Country"].ToString
Dim _newJob As DataRow = m_dtJobs.NewRow
_newJob["Job_Type_ID"] = _jobTypeID
_newJob["LocationCode"] = _loc
_newJob["CountryName"] = _country
_newJob["Status"] = "Not Started"
_newJob["Server"] = m_serverName
_newJob["EnteredBy"] = _user
_newJob["EnteredDate"] = DateTime.Now
_newJob["Notes"] = "Testing"
m_dtJobs.Rows.Add(_newJob)
Loop
m_daJobsInfo.Update(m_dtJobs)
m_dtJobs.Clear
dim _daJobs As SqlDataAdapter = New SqlDataAdapter("spselJobs",string.Format(m_connectInfo,m_serverName,m_jobsDB))
_daJobs.Fill(m_dtJobs)
End If
Catch(Exception ex)
MessageBox.Show(ex.ToString)
End Try
_cnTargetServer.Close
End Sub