Groups > microsoft.public.excel.programming > #109407

VBA Excel SQL Query

From	Bruno Campanini <brunocam@libero.it>
Newsgroups	microsoft.public.excel.programming
Subject	VBA Excel SQL Query
Date	2016-10-11 14:40 +0200
Organization	Aioe.org NNTP Server
Message-ID	<ntimjb$9q$1@gioia.aioe.org> (permalink)

Show all headers | View raw

SQL = "SELECT " & xlTable2 & ".* "
SQL = SQL & "FROM " & xlTable2 & " "
SQL = SQL & "WHERE (((" & xlTable2 & ".F6) "
SQL = SQL & "In (SELECT " & xlTable1 & ".F1 "
SQL = SQL & "FROM " & xlTable1 & ";)));"

Set RS = xlDB.OpenRecordset(SQL, dbOpenDynaset)
Destination.CopyFromRecordset RS
-----------------------------------

This query works fine on Windows 10/Excel 2016 as long
as the number of records in the tables is <=65 000.

In my Windows 10 Enterprise the MaxLocksPerFile
is set to 9 500 (dec); I tried to set it at
1 000 000 (dec) but Excel continues showing error
"... could not find the object..." and stops at:
Set RS = xlDB.OpenRecordset(SQL, dbOpenDynaset)

Any suggestions?

Bruno

Back to microsoft.public.excel.programming | Previous | Next — Next in thread | Find similar | Unroll thread

Thread

VBA Excel SQL Query Bruno Campanini <brunocam@libero.it> - 2016-10-11 14:40 +0200
  Re: VBA Excel SQL Query isabelle <i@v.invalid> - 2016-10-23 10:54 -0400
    Re: VBA Excel SQL Query Bruno Campanini <brunocam@libero.it> - 2016-10-23 19:48 +0200

csiph-web