Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Displaying a status message
How do I specify the text to be displayed in the status
area? I am executing stored procedures that retrieve data from a SQL Server database and I would like to indicate what data I am retrieving in a status message, rather than having the "Connecting to datasource..." and "Getting data..." (or whatever displays) showing in the lower left of the Excel window. How do I do this? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Displaying a status message
Application.StatusBar = "My message"
-- Jim Rech Excel MVP "Scott Arnold" wrote in message ... | How do I specify the text to be displayed in the status | area? I am executing stored procedures that retrieve data | from a SQL Server database and I would like to indicate | what data I am retrieving in a status message, rather than | having the "Connecting to datasource..." and "Getting | data..." (or whatever displays) showing in the lower left | of the Excel window. | | How do I do this? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Displaying a status message
"Scott Arnold" wrote ...
| How do I specify the text to be displayed in the status | area? I am executing stored procedures that retrieve data | from a SQL Server database and I would like to indicate | what data I am retrieving in a status message, rather than | having the "Connecting to datasource..." and "Getting | data..." (or whatever displays) showing in the lower left | of the Excel window. "Jim Rech" wrote ... Application.StatusBar = "My message" Jim Rech Excel MVP If you are not already doing so, consider sinking your ADO Connection and Recordset objects in a class so you can connect/fetch asynchronously e.g. Option Explicit Private WithEvents m_rs As ADODB.Recordset Public Event FetchComplete() Public Function FetchBegin() As Boolean Set m_rs = New ADODB.Recordset With m_rs .LockType = adLockReadOnly .CursorLocation = adUseClient ' required .CursorType = adOpenForwardOnly .Source = "SELECT * FROM LongTime" .ActiveConnection = m_con .Open , , , , adAsyncFetch Or adCmdText End With FetchBegin = True End Sub Private Sub m_rs_FetchComplete(ByVal pError As ADODB.Error, _ adStatus As ADODB.EventStatusEnum, _ ByVal pRecordset As ADODB.Recordset) RaiseEvent FetchComplete End Sub -- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calculating: (1 Processor(s)): 25% MESSAGE ON STATUS BAR | Excel Discussion (Misc queries) | |||
calculate message in status bar | Excel Discussion (Misc queries) | |||
Auto filter not displaying number of results in status bar. | Excel Discussion (Misc queries) | |||
Status Message | Excel Programming | |||
'Calculate' message at the status bar | Excel Programming |