Could Not Fine Installable Isam Follow

0
Avatar
Legacy Poster

I'm new to VB Scripting and on the below code I get an: Could not find installable ISAM error. I looked on the Internet and it said something about the path where the file is located but it is correct.

 

dim objLab

dim strLab

 

strLab = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ='C\My Documents\Testdata.xls';Extended Properties=""Excel 2013;HDR=YES;"""

 

      dim strIMEI

        Set objLab = CreateObject("ADODB.Connection")

      objLabOpen strLab

      Set rs = CreateObject("ADODB.Recordset")

     Set rs = objLab.Execute("Select * FROM [Sheet1$]")

         strIMEI = ""

       rs.MoveFirst()

       do while Not rs.EOF

               strIMEI = strIMEI + CStr( rs.fields("IMEI")) + vbCrLf

               rs.MoveNext()

       loop

 

value-strIMEI

 

 

 

 

1 comments

0
Avatar
Legacy Poster
Comment actions Permalink

Never mind I figured this one out myself it's"

 

str.conn = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source='C:\My Documents\Testdata.xls';Extended Properties=""Excel 12.0 Xml;HDR = YES;""

Please sign in to leave a comment.