Private Sub ExportCostSheetData()
InsertRow("")
InsertRow("Run 2:Export CostingSheet=========================")
InsertRow("Status:System Connectting DataBase!")
If ConnJWeb() = False Or ConnJWeb2() = False Then
InsertRow("Status:System Connectting DataBase fialed!")
AddRow("", "", "Status:System Connectting DataBase fialed!", "system")
Exit Sub
' GoTo End1
End If
Dim CurrentComp As Integer
Dim strDestFolder As String = "\\1.1.1.1\BogartCosting\CostSheet\"
Dim rsR As New ADODB.Recordset
Dim Flag As String = selectValue(" select top 1 flag from CostingSheetFileInfo ", adoJWeb, 0)
Try
Dim strFiles() As String = Directory.GetFiles(strDestFolder)
Dim strFile As String
Dim AbsolutePath As String
Dim strFilePresent As String
rsR.Open("select * from CostingSheetFileInfo ", adoJWeb, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
For Each strFile In strFiles
strFilePresent = Path.GetFileName(strFile)
AbsolutePath = strDestFolder & strFilePresent
Dim netCmd As New OleDb.OleDbCommand("P_DeleteRecord", netJWeb)
netCmd.CommandType = CommandType.StoredProcedure
netCmd.Parameters.Add("@FileName", strFilePresent)
netCmd.Parameters.Add("@FileType", "Complete Costing")
netCmd.ExecuteNonQuery()
rsR.AddNew()
rsR.Fields("FileName").Value = strFilePresent
rsR.Fields("FileType").Value = "Complete Costing"
rsR.Fields("AbsolutePath").Value = AbsolutePath
rsR.Fields("LastUpdateDate").Value = Now()
rsR.Fields("Flag").Value = IIf(Flag = 0, "1", "0")
rsR.Update()
InsertRow(strFilePresent & "===OK!")
CurrentComp = CurrentComp + 1
Me.ProgressBar1.Value = (CurrentComp / strFiles.Length) * 100
Next
rsR.Close()
Catch ex As Exception
SendEmail()
InsertRow("===Open Folder Fail===")
InsertRow("End Time:" & Now)
Exit Sub
End Try
adoJWeb.Execute("Update CostingSheetFileInfo set flag='" & IIf(Flag = 0, "1", "0") & "' where flag is null ")
adoJWeb.Execute(" delete from CostingSheetFileInfo where flag='" & Flag & "'")
' InsertRow(" Total error records:" & strFiles.r & "")
InsertRow("")
InsertRow("***************** System export result *******************")
InsertRow("")
InsertRow("End Time:" & Now)
InsertRow("***************************************************************")
End Sub