海南省住房公积金管理局app/seo是哪个英文的缩写

最近在忙一些项目管理的上的事情，主要是把资源整合和任务统筹，因此要把项目进度计划里面的任务整合到公司的项目管理系统中。正好用到以前练习时用到的一小段宏，这里跟大家分享一下。

'Read tasks from project files
Public Sub readTasks()
    Dim ts As Tasks
    Dim t As Task
    Set ts = ActiveProject.Tasks

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    With cn
        .ConnectionString = "Provider=SQLOLEDB.1;Password=XXXXX;Persist Security Info=True;User ID=XXXXX;Initial Catalog=XXXX;Data Source=XXXXXX"
        .Open
    End With

    Dim cmd As ADODB.Command
    Set cmd = New Command '实例化Command对象

    cmd.ActiveConnection = cn

    '======clear old data=================
    cmd.CommandText = "delete from dbo.ProjectSchedule"

    cmd.Execute


    Dim sql As String
    Dim pt As Task

    '====================================================
    For Each t In ts
        If Not t Is Nothing Then

            sql = "insert into dbo.ProjectSchedule (prjID, taskID, taskparentID, taskName, taskDuration, taskStart, taskFinish, taskActualStart, taskActualFinish, taskPredecessors, taskCompleted, taskResourceName) values (1, "
            'taskID
            sql = sql + CStr(t.ID) + ", "

            'taskparentID
            If t.OutlineLevel > 1 Then
                sql = sql + CStr(t.OutlineParent.ID) + ", "
            Else
                sql = sql + "0, "
            End If

            'taskName
            sql = sql + "'" + t.Name + "', "

            'taskDuration
            'sql = sql + "0, "
            sql = sql + CStr(t.Duration / 480) + ", "

            'taskStart
            sql = sql + "'" + CStr(t.Start) + "', "
            'sql = sql + Format(t.Start, "#yyyy-MM-dd HH:mm") + ", "

            'taskFinish
            sql = sql + "'" + CStr(t.Finish) + "', "
            'sql = sql + Format(t.Finish, "#yyyy-MM-dd HH:mm") + ", "

            'taskActualStart
            If CStr(t.ActualStart) = "NA" Then
                sql = sql + "null, "
            Else
                sql = sql + "'" + CStr(t.ActualStart) + "', "
            End If
            'sql = sql + Format(t.ActualStart, "#yyyy-MM-dd HH:mm") + ", "

            'taskActualFinish
            If CStr(t.ActualFinish) = "NA" Then
                sql = sql + "null, "
            Else
                sql = sql + "'" + CStr(t.ActualFinish) + "', "
            End If
            'sql = sql + Format(t.ActualFinish, "#yyyy-MM-dd HH:mm") + ", "

            'taskPredecessors
            sql = sql + "'" + t.Predecessors + "', "

            'taskCompleted
            sql = sql + CStr(t.PercentComplete) + ", "

            'taskResourceName
            sql = sql + "'" + t.ResourceNames + "') "

            cmd.CommandText = sql

            'MsgBox sql

            cmd.Execute
        End If
    Next t


    Set cmd = Nothing
    cn.Close
    Set cn = Nothing
End Sub