Forum Discussion

rovin's avatar
rovin
Occasional Contributor
6 years ago

Getting error : [ODBC Driver Manager] Data source name not found and no default driver specified

I am getting error while trying to make a connection with excel file placed on my local system. Below the code snippet -

 

Sub Connect()
Dim objFso
Dim m_strDatabasePath
Dim m_strDatabaseName
m_strDatabaseName = "TestData.xls"
m_strDatabasePath = "E:\Krishnia\Automation\Karan\Fusion\TestSuite\TestData\"
Set objFso = CreateObject("Scripting.FileSystemObject")
If Not objFso.FolderExists(m_strDatabasePath) Then
Err.Raise 5001, "Data Access Library", "ExcelDataAccess class: The given database path does not exist!"
End If
Set objFso = Nothing

If m_strDatabaseName = "" Then
Err.Raise 5002, "Data Access Library", "ExcelDataAccess class: The database name cannot be blank!"
End If



Dim strFilePath, strConnectionString
strFilePath = m_strDatabasePath & m_strDatabaseName
Set m_objConn = cnnOpenADODBConnection(strFilePath)

strConnectionString = "Provider=Microsoft.ACE.OLEDB.13.1;Data Source=" & strFilePath &_
";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""

Set m_objConn = CreateObject("ADODB.Connection")
m_objConn.Open
strConnectionString
Set cnnOpenADODBConnection = m_objConn

End Sub

1 Reply

Sort By
  • NisHera's avatar
    NisHera
    Valued Contributor
    6 years ago

    did you go throught this..?

    are you going to use excell for some thing more than DDT Excel driver ?

     

    also please format your code in message as code...

    otherwise difficult to read ...

    eg...

    function How2Display()
{
  var xyz = "this is simple message";
  Log.Message(xyz);
}