 |
AutoHotkey Community
Let's help each other out
|
| View previous topic :: View next topic |
| Author |
Message |
Sean
Joined: 12 Feb 2007
Posts: 2197
|
 Posted: Sun Mar 08, 2009 1:46 am Post subject: |
 |
|
| tank wrote: | Ether way your exampled didnt work either  |
OK, I uploaded a new COM.ahk to support dot syntax also in COM_Invoke_(). Now, use like:
| Code: | COM_Invoke_(Excel, "Sheets['newName'].Copy", VT_ERROR:=10, DISP_E_PARAMNOTFOUND:=0x80020004, VT_DISPATCH:=9, COM_Invoke(Excel,"Sheets",1))
; COM_Invoke_(Excel, "Sheets['newName'].Copy", VT_ERROR:=10, DISP_E_PARAMNOTFOUND:=0x80020004, VT_DISPATCH:=9, COM_Invoke(Excel,".Sheets[1]")) |
|
|
| Back to top |
|
 |
daroc
Joined: 05 Mar 2009
Posts: 20
|
| Posted: Sun Mar 08, 2009 1:55 am Post subject: |
|
|
My solution to duplicate a worksheet in output window.
| Code: |
input:=COM_Invoke(oExcel,"workbooks.open",input_path)
output:=COM_Invoke(oExcel,"workbooks.open",output_path)
COM_Invoke(oExcel,"Windows(2).Activate") ; activate input window (which has a macro recorded)
COM_Invoke(oExcel,"Run","Makro2") ; run Makro2 in input window
|
In input_path document I have a macro:
| Code: |
Sub Makro2()
Windows(2).Activate ' activate output window
Sheets(1).Copy Before:=Sheets(1) ' duplicate the first sheet in output window
End Sub
|
I don't know why Windows(2) is the input window for com and simultaneously Windows(2) is output window in macros...
Then I change sheet's name...
| Code: | | COM_Invoke(output,"worksheets.item[1].name",sheetname) |
|
|
| Back to top |
|
|
Sean
Joined: 12 Feb 2007
Posts: 2197
|
| Posted: Sun Mar 08, 2009 11:39 am Post subject: |
|
|
| daroc wrote: | | I don't know why Windows(2) is the input window for com and simultaneously Windows(2) is output window in macros... |
The indices aren't fixed ones. Test this.
| Code: | sFile1:=A_Temp . "\test1.xls"
sFile2:=A_Temp . "\test2.xls"
COM_Init()
pxla := COM_CreateObject("Excel.Application")
COM_Invoke(pxla,"Workbooks.Open",sFile1)
COM_Invoke(pxla,"Workbooks.Open",sFile2)
MsgBox % "1: " COM_Invoke(pxla,"Windows[1].Caption") "`n2: " COM_Invoke(pxla,"Windows[2].Caption")
COM_Invoke(pxla,"Windows[2].Activate")
MsgBox % "1: " COM_Invoke(pxla,"Windows[1].Caption") "`n2: " COM_Invoke(pxla,"Windows[2].Caption")
COM_Invoke(pxla,"Quit")
COM_Release(pxla)
COM_Term()
|
|
|
| Back to top |
|
|
Leonidas225
Joined: 30 Jan 2009
Posts: 12
|
| Posted: Sun Apr 26, 2009 3:43 am Post subject: |
|
|
nice script! i tried out the script from the first post. works fine but i have some performance issues: if i make a query with a larger result 150 by 15 fields it takes forever. the connection to the .db is ok becouse if i have just a few matches it works fast enough. about the same time with a ~44MB .db and a ~350MB one.
anyone has simular experiences? |
|
| Back to top |
|
|
Sean
Joined: 12 Feb 2007
Posts: 2197
|
| Posted: Sun Apr 26, 2009 8:44 am Post subject: |
|
|
| Leonidas225 wrote: | | if i make a query with a larger result 150 by 15 fields it takes forever. |
Certainly concatenating all the results into one should be replaced with other means in this case. Replace the following with your own one
| Code: | | sData .= COM_Invoke(pField, "Name") . ": " . COM_Invoke(pField, "Value") . "`r`n" |
|
|
| Back to top |
|
|
Leonidas225
Joined: 30 Jan 2009
Posts: 12
|
| Posted: Sun Apr 26, 2009 3:13 pm Post subject: |
|
|
| Quote: | | Replace the following with your own one |
| Code: | | sData .= COM_Invoke(pField, "Name") . ": " . COM_Invoke(pField, "Value") . "`r`n" |
Which part should i replace?
| Code: | COM_Init()
prs := COM_CreateObject("ADODB.Recordset")
COM_Invoke(prs, "Open", sSource, sConnect)
Loop
{
If COM_Invoke(prs, "EOF")
Break
pFields := COM_Invoke(prs, "Fields")
Loop, % COM_Invoke(pFields, "Count")
pField:= COM_Invoke(pFields, "Item", A_Index-1)
, sData .= COM_Invoke(pField, "Name") . ": " . COM_Invoke(pField, "Value") . "`r`n"
, COM_Release(pField)
COM_Release(pFields)
COM_Invoke(prs, "MoveNext")
}
COM_Invoke(prs, "Close")
COM_Release(prs)
COM_Term()
MsgBox, % sData |
|
|
| Back to top |
|
|
silveredge78
Joined: 25 Jul 2006
Posts: 461
Location: Midwest, USA
|
| Posted: Thu May 21, 2009 8:45 pm Post subject: |
|
|
Sean, I am trying to adopt your script to Write data into an existing database. I do not understand ADO COM enough to adapt the base code to do this. I can read it fine and dandy, but I don't know what command structure to use to update this database. Any examples would greatly appreciated! 
_________________
SilverEdge78 |
|
| Back to top |
|
|
Sean
Joined: 12 Feb 2007
Posts: 2197
|
| Posted: Fri May 22, 2009 12:46 am Post subject: |
|
|
| silveredge78 wrote: | | I can read it fine and dandy, but I don't know what command structure to use to update this database. Any examples would greatly appreciated! |
Exactly what would you like to do? Here is a link to the MSDN on ADO, you may find what you want there:
Microsoft ActiveX Data Objects (ADO) |
|
| Back to top |
|
|
beardboy
Joined: 02 Mar 2004
Posts: 443
Location: SLC, Utah
|
| Posted: Thu Jul 09, 2009 12:14 am Post subject: |
|
|
I want to be able to open a connection and then not close it until my application is closed, but I have noticed that the Database will close the connection if it stays idle for too long, or if the network cable gets disconnected for a while. If I then run another query on the DB it pops up the following error:
| Code: | COM Error Notification
---------------------------
Function Name: "Execute"
ERROR: Unspecified error
(0x80004005)
PROG: Microsoft OLE DB Provider for ODBC Drivers
DESC: [Microsoft][ODBC SQL Server Driver][DBMSLPCN]ConnectionWrite (send()).
HELP: ,0
Will Continue?
---------------------------
Yes No |
Is there a way that I can test to see that the connection is still open? That way if it isn't I can re-open a connection? I have tried using the following code but it lists the connection still as open even after I manually kill the connection:
| Code: | | MsgBox % "Connection State = " . Com_Invoke(pConnect, "State") |
thanks,
beardboy |
|
| Back to top |
|
|
silveredge78
Joined: 25 Jul 2006
Posts: 461
Location: Midwest, USA
|
| Posted: Thu Jul 09, 2009 12:48 am Post subject: |
|
|
Why not close and then reopen the connection if it's going to be a certain amount of time in between? That way you're not keeping unnecessary traffic to the server, and you free up memory in your program I would think.
_________________
SilverEdge78 |
|
| Back to top |
|
|
beardboy
Joined: 02 Mar 2004
Posts: 443
Location: SLC, Utah
|
| Posted: Thu Jul 09, 2009 12:53 am Post subject: |
|
|
Speed. Disconnecting and reconnecting to the DB for every query slows down the speed. The user is going to be doing queries all day long, sometimes seconds apart, other times hours apart. They will leave the app open all day long, but if the user goes to lunch and the connection times out I will want to be able to see that the connection isn't open any more and open a new connection.
thanks,
beardboy |
|
| Back to top |
|
|
silveredge78
Joined: 25 Jul 2006
Posts: 461
Location: Midwest, USA
|
| Posted: Thu Jul 09, 2009 12:55 am Post subject: |
|
|
Why possibly somehow determine the length of time for time-out, and then add a timer for just under that to close it, flag a variable accordingly, then that way you'll know.
_________________
SilverEdge78 |
|
| Back to top |
|
|
beardboy
Joined: 02 Mar 2004
Posts: 443
Location: SLC, Utah
|
| Posted: Thu Jul 09, 2009 12:59 am Post subject: |
|
|
I can program around idle time outs, but where I first noticed the issue was when testing myself. I hibernate my laptop between work at home, and even when using my app on my laptops DB, due to hibernating and my IP address changing my connection to the DB was terminated. I would rather the user / client not see an error if there is a way I can just check to see if I have an active connection still.
thanks,
beardboy |
|
| Back to top |
|
|
silveredge78
Joined: 25 Jul 2006
Posts: 461
Location: Midwest, USA
|
| Posted: Thu Jul 09, 2009 1:01 am Post subject: |
|
|
That makes more sense then. If someone helps you in PM, please post it as I might be able to make use of this.
_________________
SilverEdge78 |
|
| Back to top |
|
|
Sean
Joined: 12 Feb 2007
Posts: 2197
|
| Posted: Thu Jul 09, 2009 1:20 am Post subject: |
|
|
| beardboy wrote: | | Is there a way that I can test to see that the connection is still open? That way if it isn't I can re-open a connection? I have tried using the following code but it lists the connection still as open even after I manually kill the connection: |
In that case, the straightforward way may be to turn off the Error Notification via
then handle the errors yourself. It may look like, assuming it's inside the function
| Code: | Global COM_HR
...
If COM_HR <> 0 ; error occured!
...
|
or
| Code: | ...
If COM_Error() <> 0 ; error occured!
...
|
|
|
| Back to top |
|
|
|
|
You can post new topics in this forum
You can reply to topics in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
