Could Not Fine Installable Isam

Legacy Poster

• 2015年05月07日 14:29

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

 

 

 

 

0

• 

  Legacy Poster

  ★ BarTender Hero ★

  • 2015年05月07日 21:53

  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;""

  0

请先登录再写评论。