discrepancy using ADODB.Connection
Updated the platform to the latest version.In the server database are loaded to this database from excel.
Connecting to Excel error occurs when calling context method (Open):
Caught exception (Microsoft JET Database Engine): Unexpected error external database driver (1).
See the attachment about the failure. If you know write, if you don't. Thank you.
Try these settings Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0; HDR=NO; IMEX=1;
Install if not yet, that such a distribution would: http://www.microsoft.com/en-us/download/details.aspx?id=23734 and an alternative solution to recover xls online through the service https://excel.recoverytoolbox.com/online/ru/
Try another option:
Function ПолучитьКоннектExcel( of primafila, pisatelej = False ) Export
lres = New ComObject(ADODB.Connection);
Strokepolka = Provider=Microsoft.Jet.OLEDB.4.0; Data Source = + of primafila + ; Extended Properties = Excel $ver$.0;HDR=NO;IMEX=1;;
СтрокаПодключения12 = Provider=Microsoft.Jet.OLEDB.4.0; Data Source = + of primafila + ; Extended Properties=Excel 12.0 Xml;HDR=No;IMEX=1;;
Strokootlivnaya = Provider=Microsoft.ACE.OLEDB.12.0;Data Source= + of primafila + ;Extended Properties=Excel 12.0;HDR=NO;IMEX=1;;
Attempt
lres.Open(СтрокаПодключения12);
The return of lres;
Exception
Opisaniyami = Opisaniyami();
Connectorid;
Attempt
lres.Open(Strokootlivnaya);
The return of lres;
Exception
Opisaniyami = Opisaniyami();
Connectorid;
For Version = 8 To 15 Loop
//connect to the data source
Extracapillary = to Strumenti(Stromatolite, $ver$, String(Version));
Attempt
lres.Open(Extracapillary);
The return of lres;
Exception
Opisaniyami = Opisaniyami();
Connectorid;
Conectica;
If pisatelej Then
textolite = Opisaniyami;
lfil = New File( imefajla );
If VREG( lfil.Extension )=.XLSX Then
textolite = textolite the + Symbols.PS + Save downloadable file in MS Excel 97-2003 (*.XLS) and try the download again.;
Kanezaki;
Wyswietlenia( textolite );
Otherwise
Return Undefined;
Kanezaki;
Connecthandle