Provider cannot be found. it may not be properly installed

**hometech** · 11-15-2012, 10:01 PM

i am trying to get the values of of some MS Project fields into MS Word but i keep getting this error "Provider cannot be found. it may not be properly installed" although everything seems to be fine, please any ideas on how to go about it.

Code:

Sub ConnectLocally()
    Dim conData As New ADODB.Connection
    Dim rstAssigns As New ADODB.Recordset
    Dim intCount As Integer
    Dim strSelect As String
    Dim strResults As String
    fhre = ActiveDocument.Path
    part = fhre & "\timetrack.mpp"
    
    
    conData.ConnectionString = "Provider=Microsoft.Project.OLEDB.9.0;PROJECT NAME=" & part
    conData.ConnectionTimeout = 30
    conData.Open

    strSelect = "SELECT ResourceUniqueID, AssignmentResourceID, AssignmentResourceName , TaskUniqueID, AssignmentTaskID, " & _
         " AssignmentTaskName FROM Assignments WHERE TaskUniqueID > 0 ORDER BY AssignmentTaskID ASC"
    rstAssigns.Open strSelect, conData

    Do While Not rstAssigns.EOF
        For intCount = 0 To rstAssigns.Fields.Count - 1
            strResults = strResults & "'" & _
            rstAssigns.Fields(intCount).Name & "'" & _
                Space(30 - Len(rstAssigns.Fields(intCount).Name)) & vbTab & CStr(rstAssigns.Fields(intCount).Value) & vbCrLf
        Next
        strResults = strResults & vbCrLf
        rstAssigns.MoveNext
    Loop
    
    conData.Close
    
    Open "C:\My Documents\Results.txt" For Output As #1
    Print #1, strResults
    Close #1
        
    Shell "Notepad C:\My Documents\Results.txt", vbMaximizedFocus

End Sub

PS: i added the Ms project library reference and also the ADO 2.6 library reference

i appreciate your suggestions.

**Excel Fox** · 11-15-2012, 11:47 PM

Won't be able to really check this without the working file. However, from an initial look, why don't you try this..

Code:

Sub ConnectLocally()
    Dim conData As Object 'New ADODB.Connection
    Dim rstAssigns As Object 'New ADODB.Recordset
    Dim intCount As Integer
    Dim strSelect As String
    Dim strResults As String
    fhre = ActiveDocument.Path
    part = fhre & "\timetrack.mpp"
    
    Set conData = CreateObject("ADODB.Connection")
    Set rstAssigns = CreateObject("ADODB.RecordSet")
    conData.ConnectionString = "Provider=Microsoft.Project.OLEDB.10.0;PROJECT NAME=" & part
    conData.ConnectionTimeout = 30
    conData.Open

    strSelect = "SELECT ResourceUniqueID, AssignmentResourceID, AssignmentResourceName , TaskUniqueID, AssignmentTaskID, " & _
         " AssignmentTaskName FROM Assignments WHERE TaskUniqueID > 0 ORDER BY AssignmentTaskID ASC"
    rstAssigns.Open strSelect, conData

    Do While Not rstAssigns.EOF
        For intCount = 0 To rstAssigns.Fields.Count - 1
            strResults = strResults & "'" & _
            rstAssigns.Fields(intCount).Name & "'" & _
                Space(30 - Len(rstAssigns.Fields(intCount).Name)) & vbTab & CStr(rstAssigns.Fields(intCount).Value) & vbCrLf
        Next
        strResults = strResults & vbCrLf
        rstAssigns.MoveNext
    Loop
    
    conData.Close
    
    Open "C:\My Documents\Results.txt" For Output As #1
    Print #1, strResults
    Close #1
        
    Shell "Notepad C:\My Documents\Results.txt", vbMaximizedFocus

End Sub

**Excel Fox** · 11-15-2012, 11:51 PM

Try using OLEDB.11.0 or OLEDB.12.0 also if you are using 2003 or 2007

**hometech** · 11-16-2012, 04:40 PM

**Excel Fox** · 11-16-2012, 08:53 PM

Can't say much without the file. If it isn't strictly confidential, would you be able to share it on a file share site and post the link here? If it is confidential, why don't you strip down the data and post a sample data file.