Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
waiting Query result
Hi,
I've a query ... Connstring = "ODBC;DSN=simic;ArrayFetchOn=1;ArrayBufferSize=8;D BQ=simic;OpenMode=0;DecimalSymbol=,;ClientVersion= 8.10.117.017;CodePageConvert=1252" Sqlstring = "SELECT CentriDiProfitto.CodCentroProfitto, CentriDiProfitto.Descrizione " Sqlstring = Sqlstring & "FROM CentriDiProfitto " Sqlstring = Sqlstring & "WHERE (((CentriDiProfitto.Stato)<1)) " With ActiveSheet.QueryTables.Add(Connection:=Connstring , _ Destination:=Worksheets("Commesse").Range("A1"), Sql:=Sqlstring) .Refresh End With ..... ..... With Worksheets("Commesse") .Visible = xlSheetVisible .Select .Cells.Copy End With With Worksheets("Commesse.tmp") .Cells.PasteSpecial Paste:=xlPasteValues .Select .Range("A1").Select End With Worksheets("Commesse").Visible = xlSheetVeryHidden ................................. After the query I copy the cells of "commesse" into "commesse.tmp" and I hidden the sheet. But the query has not terminate, and I copy only 1 o 2 row. How I can wait the end of the query? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
waiting Query result
Hi Paolo,
See the BackgroundQuery propert in VBA help. Try changing: .Refresh to .Refresh BackgroundQuery:=False --- Regards, Norman "Paolo9001" wrote in message ... Hi, I've a query ... Connstring = "ODBC;DSN=simic;ArrayFetchOn=1;ArrayBufferSize=8;D BQ=simic;OpenMode=0;DecimalSymbol=,;ClientVersion= 8.10.117.017;CodePageConvert=1252" Sqlstring = "SELECT CentriDiProfitto.CodCentroProfitto, CentriDiProfitto.Descrizione " Sqlstring = Sqlstring & "FROM CentriDiProfitto " Sqlstring = Sqlstring & "WHERE (((CentriDiProfitto.Stato)<1)) " With ActiveSheet.QueryTables.Add(Connection:=Connstring , _ Destination:=Worksheets("Commesse").Range("A1"), Sql:=Sqlstring) .Refresh End With .... .... With Worksheets("Commesse") .Visible = xlSheetVisible .Select .Cells.Copy End With With Worksheets("Commesse.tmp") .Cells.PasteSpecial Paste:=xlPasteValues .Select .Range("A1").Select End With Worksheets("Commesse").Visible = xlSheetVeryHidden ................................ After the query I copy the cells of "commesse" into "commesse.tmp" and I hidden the sheet. But the query has not terminate, and I copy only 1 o 2 row. How I can wait the end of the query? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Importing result from Access query to Excel but the result only c. | Excel Discussion (Misc queries) | |||
put query result into variable | Excel Programming | |||
Waiting for data to be returned from Microsoft Query | Excel Discussion (Misc queries) | |||
Waiting Mode when query data from Db via VBA! | Excel Programming | |||
Query result and formula | Excel Programming |