problem with ACE.OLEDB.12.0 and Adomate

[loulou]

When I use ACEOLDEB.12.0 like provider with Adomate the recordset return is empty

Code: Select all

XIncludeFile #PB_Compiler_Home + "comate\comateplus.pbi"
XIncludeFile #PB_Compiler_Home + "comate\ADOmate.pbi"
Global databasename.s = GetCurrentDirectory() 
;XIncludeFile #PB_Compiler_Home + "comate\ADOmate.pbi"
;Ou se trouve le programme 
Global.s Buffer = Space(1000)
GetCurrentDirectory_(1000,@Buffer)
Global databasename.s = buffer 
MessageRequester("",databasename)
Global ConnectionString.s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + databasename + ";Extended Properties=" + Chr(34) + "text;HDR=Yes;FMT=Delimited(;)" + Chr(34) 
Global myConnection
 MyConnection = ADOmate_OpenDatabase(connectionString)
    SQL$ = "Select * from xx.csv"
    ADOmate_DatabaseQuery(myConnection, SQL$, #adOpenStatic) 
       numColumns = ADOmate_DatabaseColumns(myConnection)
       For i = 0 To  numColumns-1
       MessageRequester("ici",  ADOmate_DatabaseColumnName(myConnection, i) )
     Next
      ADOmate_CloseDatabase(myconnection)

Il if use

Code: Select all

Global ConnectionString.s = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + databasename + ";Extended Properties=" + Chr(34) + "text;HDR=Yes;FMT=Delimited(;)" + Chr(34) 

The recorset return is good
This problem arrive with Purfebasic 5.20LTS , Windows seven premium
Has someone have the same proble m ?