Kurto2021

I think I may know the answer to this but figure I will ask just in case there is a way around it I am navigating to a page where I need to input a path to a file. I have gone through the process to get to the final page but I can't get the file name in the box. At the very end I get a browser "securuty" error. What I think is tripping me up is this The document box is grayed out......if I am doing this manually I have to browse to the file. Assuming it is this that is tripping me up is there a way around it? here is what I get from the debugger 0061: 0-0: Local $form4 = _IEFormGetObjByName($oIE,"docEntry") ; 0062: 0-1: Local $filebox = _IEFormElementGetObjByName($form4, "attachedDoc") 0063: 0-1: _IEFormElementSetValue($Filebox, "c:xxx.xls") --> IE.au3 T3.0-1 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidObjectType (Browser securuty prevents SetValue of TYPE=FILE) 0067: 4-1: Exit

Sorry to bring this back from the dead but....I got the code to work and click the documents list....I am not sure exactly what is happening but it opens it. Next I need to choose My Favorites but not sure what to do from there I am assuming JLogan got it to work but just can't follow what happened edit: I got it to work well...1 step further $oIE.document.parentWindow.execScript('var faveID = "15624042";if (faveID != "") {showInWorkspace("../../InfoViewApp/listing/objectList.do?objId=" + faveID);}',"javascript") now I just can't figure out how to open the report...I see it though which is a step in the right direction

OK this is weird.... I was thinking there was a connection of this thing returning null values in the results from the query. I ran the query in the teradata application and found that 2 results contained a null value. I simply put in a case statement for null value to be 0 and it worked...... The weird part is I asked my coworker if he ran the exe this morning and he said yes it worked great. I then tried to run the exe again and it worked as well. Is there any reason why I am randomly getting this error. Is it possibly a timing issue?

JLogan a lot of failure probably is the reason it is there and once it worked I didn't want to mess with it. Just commented it out and it works.....for the first query...still fails on the second query. I put in this if @error Then msgbox(1,"error","recordset doesn't exist") EndIf $Recordset.cursortype = 3 ; specifies the type of cursor to use when you open a Recordset object - see Recordset populate link above I do get the error. Now to try and find out why the second recordset is not working

I was running this the last few days without error. I compiled it to an exe yesterday and ran it a few times with no error. Today I am getting an error...ugh!!!! "C:Program Files (x86)AutoIt3SciTEteradata auto query3.au3" (67) : ==> Variable must be of type "Object".: $Recordset.cursortype = 3 $Recordset^ ERROR ->09:03:27 AutoIt3.exe ended.rc:1 +>09:03:27 AutoIt3Wrapper Finished. I am trying to figure out what this means. Is it the results from the query that are invalid? Could a null value within one of the records trigger this. My biggest issue is I just don't know how to troubleshoot this. #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\..\..\Users\a870631\Downloads\favicon.ico #AutoIt3Wrapper_Outfile=C:\test.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <array.au3> #include <file.au3> #include <CSV.au3> #include <clipboard.au3> Dim $arr Dim $i $User = "xxxxxxx" $Pass = "xxxxxxx" ; password $DSN = "Production Teradata" ; dsn $Delim = "|" ; Delimiter $Line_N = 0 $DSN = 'DSN=' & $DSN & ';uid=' & $User & ';pwd=' & $Pass $Connection = ObjCreate("ADODB.Connection") $sCSV = FileRead("\\CS01Corp\Root\Files\Corp\RO\965090\PUB-DB\Daily Labor Reports\Automated_Query_File\Automated_Queries.txt") ; read the source txt file ; Can't use CSV since queries have commas in them may need to be something other than pipes Local $arr = _CsvToArray2D($sCSV) ; take results of the source csv and use the function to parse into an array ;_ArrayDisplay($arr) ;displays contents of the array ;output file has been created - Query is assigned to a variable now create the recordset and run the query $Connection.open($DSN) ; open the DSN connection ; see these sites for information regarding recordsets ; https://www.autoitscript.com/wiki/ADO_RecordSet_Process ; https://www.autoitscript.com/wiki/ADO_RecordSet_Populate For $i = 1 To UBound($arr) - 1 $err = 0 ; variables designating the desired file location/name and query to be executed $CSVLoc = $arr[$i][1] & $arr[$i][0] & ".txt" $SqlString = $arr[$i][9] $Recordset = ObjCreate("ADODB.Recordset") ; create the recordset If FileExists($CSVLoc) Then ;Checking to see if the desired filename exists FileSetAttrib($CSVLoc, "-RS") ; make sure file is not read only FileDelete($CSVLoc) ;delete the file If @error Then $err = 1 EndIf EndIf If $err = 0 Then ; if the file delete was successful next step is to create the file _FileCreate($CSVLoc) ;after the file is deleted or if it doesn't exist then create the new output file. If @error Then $err = 1 EndIf EndIf If $err = 0 Then ; if the file create was successful then open the new file $sFile = FileOpen($CSVLoc, 1) ;open the file to be output If @error Then $err = 1 EndIf EndIf If $err = 0 Then ; file delete, create, and open were successful $Recordset = $Connection.Execute($SqlString) ;$SqlString $Recordset.cursortype = 3 ; specifies the type of cursor to use when you open a Recordset object - see Recordset populate link above $Recordset.open($SqlString);$SqlString If Not $Recordset.BOF And $Recordset.EOF Then $err = 1 ;MsgBox(0, "Error", "Error Occurred trying to excute query.") Else $t = 0 $Recordset.MoveFirst While Not $Recordset.EOF $line = "" For $fld In $Recordset.Fields If $t = 0 Then $line = $fld.value $t = 1 Else $line = $line & $Delim & $fld.value EndIf Next $t = 0 FileWriteLine($sFile, $line & @CRLF) ;ConsoleWrite ($Line) If @error Then MsgBox(0, "Error Occurred", "Unable to write to File") Exit EndIf $Recordset.MoveNext WEnd EndIf FileClose($sFile) FileSetAttrib($CSVLoc, "+RS") ; set read only with system $Recordset.close EndIf If $err = 1 Then ;here I will call for a function to email to notify the user of the error EndIf Next $Connection.close Func _CsvToArray2D($sCSV) Local $aTmp = StringRegExp($sCSV & @CR, '(\V*)\v{1,2}', 3) Local $NumCols[UBound($aTmp)] For $x = 0 To UBound($aTmp) - 1 StringReplace($aTmp[$x], "|", "|") $NumCols[$x] = @extended + 1 Next Local $Max = _ArrayMax($NumCols, 1) Dim $aArr[UBound($aTmp)][$Max] For $i = 0 To UBound($aArr, 1) - 1 Local $aTemp = StringSplit($aTmp[$i], "|") For $j = 0 To $aTemp[0] - 1 $aArr[$i][$j] = $aTemp[$j + 1] Next Next Return $aArr EndFunc ;==>_CsvToArray2D

I solved it. For those looking for an answer if they ever encounter this I changed my method for opening the recordset I changed this $oRecordset.Open($sSQL, $oConnection, $iCursorType, $iLockType, $iOptions) ; Issue the SQL query to $oRecordset = $oConnection.Execute ($sSQL) $oRecordset.cursortype = 3 This is the complete code below #include <array.au3> #include <file.au3> Global Const $iCursorType = 0 ; adOpenForwardOnly Global Const $iLockType = 1 ; adLockReadOnly Global Const $iOptions = 2 ; adCmdTable Global $oConnection = ObjCreate("ADODB.Connection") ; Create a connection object Global $oRecordset = ObjCreate("ADODB.Recordset") ; Create a recordset object Global $sConnectionString = "DSN=Production Teradata;uid=a870631;pwd=a870631" $oConnection.Open($sConnectionString) ; Open the connection Global $sSQL = "select top 10 job_cde as job, count(job_cde) as job_total, job_ttl_nm as job_count from PRODBBYMEADHOCVWS.ACTIVE_EMPLOYEE_DETAIL_CURR where rtl_loc_flg = 'Y' group by job_cde, job_ttl_nm" ; Select all records and all fields $oRecordset = $oConnection.Execute ($sSQL) $oRecordset.cursortype = 3 With $oRecordset While Not .EOF ; repeat until End-Of-File (EOF) is reached ; Write the content of all fields to the console separated by | by processing the fields collection ConsoleWrite("Process the fields collection: ") For $oField In .Fields ConsoleWrite($oField.Value & "|") Next ConsoleWrite(@CR) ; Write a second line by accessing all fields of the collection by item number ConsoleWrite("Process the fields by item number: " & .Fields(0).Value & "|" & .Fields(1).Value & "|" & .Fields(2).Value & "|" & @CR) .MoveNext ; Move To the Next record WEnd EndWith $oRecordset.Close ; Close the recordset $oRecordset = 0 ; Release the connection object $oConnection.Close ; Close the connection $oConnection = 0 ; Release the connection object

you realize I said I have it working in access so one would assume my connection string is fine

I have been able to connect to our teradata sever in MS Access and dump results into a text file. I wanted to be able to pull this off from an exe instead of access so I fired up AutoIt. I am pretty sure I am not connecting to the server because I replaced the Connection String with random garbage and got the same results. Question 1 how do I verify I have connected to the database Question 2 how do I actually connect to the database because I am evidently wrong Here is the code I have in autoit which is pretty much a straight rip from the wiki page #include <array.au3> #include <file.au3> Global Const $iCursorType = 0 ; adOpenForwardOnly Global Const $iLockType = 1 ; adLockReadOnly Global Const $iOptions = 2 ; adCmdTable Global $oConnection = ObjCreate("ADODB.Connection") ; Create a connection object Global $oRecordset = ObjCreate("ADODB.Recordset") ; Create a recordset object Global $sConnectionString = "DSN=Production Teradata;uid=Axxxxx;pwd=Axxxxxx" $oConnection.Open($sConnectionString) ; Open the connection Global $sSQL = "select top 10 job_cde as job, count(job_cde) as job_total, job_ttl_nm as job_count from PRODBBYMEADHOCVWS.ACTIVE_EMPLOYEE_DETAIL_CURR where rtl_loc_flg = 'Y' group by job_cde, job_ttl_nm" ; Select all records and all fields $oRecordset.Open($sSQL, $oConnection, $iCursorType, $iLockType, $iOptions) ; Issue the SQL query With $oRecordset While Not .EOF ; repeat until End-Of-File (EOF) is reached ; Write the content of all fields to the console separated by | by processing the fields collection ConsoleWrite("Process the fields collection: ") For $oField In .Fields ConsoleWrite($oField.Value & "|") Next ConsoleWrite(@CR) ; Write a second line by accessing all fields of the collection by item number ConsoleWrite("Process the fields by item number: " & .Fields(0).Value & "|" & .Fields(1).Value & "|" & .Fields(2).Value & "|" & @CR) .MoveNext ; Move To the Next record WEnd EndWith $oRecordset.Close ; Close the recordset $oRecordset = 0 ; Release the connection object $oConnection.Close ; Close the connection $oConnection = 0 ; Release the connection object For comparison sake here is the working vba code from access Private Sub Command0_Click() Dim cnt As Object Dim rst As Object Dim stSQL As String Const stCon As String = "DSN=Production Teradata;Uid=axxxxxx; Pwd=axxxxxx;" Set cnt = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset") cnt.ConnectionString = stCon cnt.Open Set fso = CreateObject("Scripting.FileSystemObject") Set txtFile = fso.CreateTextFile("C:\temp\Temptext.txt", True) stSQL = "select top 10 job_cde as job, count(job_cde) as job_total, job_ttl_nm as job_count from PRODBBYMEADHOCVWS.ACTIVE_EMPLOYEE_DETAIL_CURR where rtl_loc_flg = 'Y' group by job_cde, job_ttl_nm" rst.Open stSQL, cnt, adOpenDynamic If rst.RecordCount > 0 Or Not rst.EOF Then rst.MoveFirst Do Until rst.EOF = True txtFile.Write (rst![job] & "," & rst![job_total] & "," & rst![job_count] & vbCrLf) rst.MoveNext Loop rst.Close cnt.Close End If End Sub

on mine application I had to move the mouse to a certain location and copy a section of text. If the resulting text was not the desired result I close the window and start over

how do I see the error? I am just returning a value of 0 for $FindTable for better reference here is the code $FindTable = _StringBetween($HTMLFile,"Today's Date","</Table>","-1") if $FindTable = 0 Then $ParseError = 1 exit Else $FindRows = _StringBetween($FindTable[0],"<tr","</tr>","-1") $FindColumns = _StringBetween($FindRows[0],"<td","</td>","-1") Global $HeaderBuild[ubound($FindColumns)][ubound($FindRows)] For $i = 0 to Ubound($FindRows)-1 $SplitColumns = _StringBetween($FindRows[$i],"<td","</td>","-1") For $s = 0 to Ubound($SplitColumns)-1 $varArray = "<" & $SplitColumns[$s] $ArraySplit = _StringBetween($varArray,"<",">") For $d = 0 to Ubound($ArraySplit)-1 $varArray = stringreplace($varArray,"<" & $ArraySplit[$d] & ">","") Next $HeaderBuild[$s][$i] = StringStripWS($varArray,3) Next Next EndIf

I just had to move this application that I built a year or so ago over to a new machine due to winXP no longer being supported but I can't seem to get it to work. I have this code which should be pretty simple. $FindTable = _StringBetween($HTMLFile,"Today's Date","</Table>","-1") I have looked at my $HTMLFile variable and it looks good. All the data is there but the $FindTable value is always an error. Did something change between these versions? I saw changes with 3.3.7 but those shouldn't apply to this.

I have a script that runs constantly and is moving sending and deleting emails all the time. The program locked up a couple times becasue the deleted items gets full. Is there a way to delete emails and have them not go to the deleted items box. Is there a way to remove all emails from a folder instead.

you have to be kidding me....it was that easy....I have probably wondered this for 6 years.

This has to be super easy. Can't believe I can't figure out how to do it. I have been writing this application for over a year....lots of moving and editing of the code. Is there an easy way where we can get the code to autoformat it's alignment within the code window.

when I go to the properties of the email there is information Received: from BN1PR06MB072.namprd06.prod.outlook.com (XXXXX) by BN1PR06MB071.namprd06.prod.outlook.com (XXXXX) with Microsoft SMTP Server (TLS) id XXXXXX via Mailbox Transport; Thu, 1 Aug 2013 20:10:16 +0000 Received: from BN1PR06MB054.namprd06.prod.outlook.com (10.242.211.20) by XXXXX.namprd06.prod.outlook.com (XXXXXXX) with Microsoft SMTP Server (TLS) id XXXXXXX; Thu, 1 Aug 2013 20:10:15 +0000 Received: from BY2PRD0610HT005.namprd06.prod.outlook.com (XXXXXXX) by BN1PR06MB054.namprd06.prod.outlook.com (XXXXXXX) with Microsoft SMTP Server (TLS) id XXXXXX; Thu, 1 Aug 2013 20:10:13 +0000 Received: from XXXXXXX.namprd06.prod.outlook.com (XXXXXXX) by XXXXXXX.namprd06.prod.outlook.com (XXXXX) with Microsoft SMTP Server (TLS) id XXXXX; Thu, 1 Aug 2013 20:10:12 +0000 Received: from mail203-ch1-R.bigfish.com (216.32.181.169) by XXXXXXX.namprd06.prod.outlook.com (XXXXXXX) with Microsoft SMTP Server (TLS) id XXXXXX; Thu, 1 Aug 2013 20:10:12 +0000 Received: from mail203-ch1 (localhost [XXXXXXX]) by mail203-ch1-R.bigfish.com (Postfix) with ESMTP id 7DA78180146 for <Scheduling@service.XXXXX.com>; Thu, 1 Aug 2013 20:10:11 +0000 (UTC) X-Forefront-Antispam-Report: CIP:XXXXXX;KIP:XXXXXXX;UIP:(null);(null);H:mail10.XXXXXX.com;R:internal;EFV:INTSFV:SKN;SFS:;DIR:INB;SFP:;SCL:-1;SRVR:BN1PR06MB054;H:BY2PRD0610HT005.namprd06.prod.outlook.com;CLIP:10.43.68.237;LANG:en;;SKIP:1; X-Safelisted-IP: 198.22.122.4 X-FOPE-CONNECTOR: Id$8462%Dn$SERVICE.XXXXXX.COM%PF$0%SF$0%RO$0% X-FFO-Routing-Override: service.bestbuy.com%inboundsmtpprofile-250466.customer.frontbridge.com; Received-SPF: softfail (mail203-ch1: transitioning domain of XXXXXX.com does not designate XXXXXX as permitted sender) client-ip=XXXXXX; envelope-from=Scheduling@XXXXXX.com; helo=mail10.bestbuy.com ;.bestbuy.com ; Received: from mail203-ch1 (localhost.localdomain [127.0.0.1]) by mail203-ch1 (MessageSwitch) id 1375387810713003_13447; Thu, 1 Aug 2013 20:10:10 +0000 (UTC) Received: from CH1EHSMHS036.bigfish.com (snatpool2.int.messaging.microsoft.com [XXXXXX]) by mail203-ch1.bigfish.com (Postfix) with ESMTP id A9BDE40049 for <Scheduling@service.XXXXX.com>; Thu, 1 Aug 2013 20:10:10 +0000 (UTC) Received: from mail10.XXXXXX.com (XXXXX) by CH1EHSMHS036.bigfish.com (XXXXX) with Microsoft SMTP Server (TLS) id 14.16.227.3; Thu, 1 Aug 2013 20:10:07 +0000 Received: from ds45mail.na.XXXXX.com (168.94.71.163) by DSP59MAIL.na.bestbuy.com (XXXXXX) with Microsoft SMTP Server id 14.3.123.3; Thu, 1 Aug 2013 15:10:06 -0500 Received: from mail1.XXXXX.com ([XXXXXX]) by ds45mail.na.bestbuy.com with Microsoft SMTPSVC(XXXXXX); Thu, 1 Aug 2013 15:10:06 -0500 X-Mailer: BBY SOS SDG Emailer. Date: Thu, 1 Aug 2013 15:10:06 -0500 From: <Scheduling@bestbuy.com> To: <scheduling@bestbuy.com>, <DDC74@Freight.fedex.com> Reply-To: <Scheduling@bestbuy.com> Subject: FXFE and FXNL DDC 74 Schedule Summary MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="_83cebf97-1852-430f-a491-4560cd1f9a19_"x Message-ID: <DS45MAILXpqvc6dI6UN0001ff31@ds45mail.XXXXX.com> X-OriginalArrivalTime: 01 Aug 2013 20:10:06.0542 (UTC) FILETIME=[1D9E16E0:01CE8EF3] X-OrganizationHeadersPreserved: DSP59MAIL.na.bestbuy.com Return-Path: Scheduling@bestbuy.com X-MS-Exchange-Organization-MessageDirectionality: Incoming X-CrossPremisesHeadersPromoted: XXXXXXX.namprd06.prod.outlook.com X-CrossPremisesHeadersFiltered: XXXXXX.namprd06.prod.outlook.com X-MS-Exchange-Organization-SCL: -1 X-MS-Exchange-Organization-AVStamp-Mailbox: MSFTFF;1;0;0 0 0 X-MS-Exchange-Organization-Network-Message-Id: fd1b92ac-6dfb-45db-4fdd-08d05d0a4478 X-MS-Exchange-Organization-AVStamp-Service: 1.0 X-MS-Exchange-Organization-AuthSource: DSP59MAIL.na.XXXXX.com X-MS-Exchange-Organization-AuthAs: Anonymous X-OriginatorOrg: mail10.bestbuy.com inside all of that is this Message-ID: <DS45MAILXpqvc6dI6UN0001ff31@ds45mail.XXXXX.com> IPs have been XXX'd out to protect the innocent.