Jump to content

Recommended Posts

Posted

Hello Guys, I'm new in Autoit and have no idea of what i'm doing.

I'm traying to populate a listview with a SQL command, to get data in a spreadsheet in Access DataBase. So, here is my poor code.

I can get 1 Item, but when a put the if's my code don't run. I think its a logic problem, like I said before, I have no ideia WTH I'm doing.

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>

Example()

Func Example()
   Local $dbname = FileOpenDialog("Choose Access Database", @ScriptDir, "Access files (*.accdb)", 1)

   $adoCon = ObjCreate("ADODB.Connection")
   $adoCon.Open("Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & $dbname & ";Uid=;Pwd=;")
   $adoRs = ObjCreate("ADODB.Recordset")
   $adoRs.CursorType = 1
   $adoRs.LockType = 3

    GUICreate("listview items", 550, 250, 100, 200, -1, $WS_EX_ACCEPTFILES)
    Local $idListview = GUICtrlCreateListView("Codigo    |Nome         |Valor  ", 10, 10, 520, 150) ;,$LVS_SORTDESCENDING
   For $i=0 to 10
         $query = "SELECT * FROM Produtos1 WHERE codigo < 10"
         $adoRs.Open ($query, $adoCon)
         $codigo = $adoRs.Fields("codigo").value
         $nome = $adoRs.Fields("Nome").value
         $valor = $adoRs.Fields("valor").value
         $adoCon.Close

         Local $idItem1 = GUICtrlCreateListViewItem($codigo & "|" & $nome & "|" & $valor , $idListview)

         GUISetState(@SW_SHOW)
   Next
    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

;~             Case $idButton
;~                 MsgBox($MB_SYSTEMMODAL, "listview item", GUICtrlRead(GUICtrlRead($idListview)), 2)

            Case $idListview
                MsgBox($MB_SYSTEMMODAL, "listview", "clicked=" & GUICtrlGetState($idListview), 2)

        EndSwitch
    WEnd
EndFunc   ;==>Example

I have uploaded my .accdb file too.

Guys, in this case, what I need to do!?

 

bd-teste.accdb

Posted

You shouldn't close the connection while fetching resultset! Clearly, once the connection is closed you can't get more than the first resulting row.

Also you can use the power of SQL to deliver you the exact formated result you need to populate the listview. I can't try the code but it could be along these lines:

Example()

Func Example()
    Local $dbname = FileOpenDialog("Choose Access Database", @ScriptDir, "Access files (*.accdb)", 1)

    $adoCon = ObjCreate("ADODB.Connection")
    $adoCon.Open("Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & $dbname & ";Uid=;Pwd=;")
    $adoRs = ObjCreate("ADODB.Recordset")

    GUICreate("listview items", 550, 250, 100, 200, -1, $WS_EX_ACCEPTFILES)
    Local $idListview = GUICtrlCreateListView("Codigo    |Nome         |Valor  ", 10, 10, 520, 150) ;,$LVS_SORTDESCENDING
    $query = 'SELECT "codigo" || ''|'' || "nome" || ''|'' || "valor"  FROM Produtos1 WHERE codigo < 10'
    Local $aResult
    With $adoRs
        .CursorType = 2
        .LockType = 3
        .Open($query, $adoCon)
        If @error Then
            ; deal with Probable SQL error
        EndIf
        If Not .EOF Then $aResult = .GetRows()
        .Close()
    EndWith
    $adoRs = 0
    For $item In $aResult
        GUICtrlCreateListViewItem($item , $idListview)
    Next
    $adoCon.Close

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

;~             Case $idButton
;~                 MsgBox($MB_SYSTEMMODAL, "listview item", GUICtrlRead(GUICtrlRead($idListview)), 2)

            Case $idListview
                MsgBox($MB_SYSTEMMODAL, "listview", "clicked=" & GUICtrlGetState($idListview), 2)

        EndSwitch
    WEnd
EndFunc   ;==>Example

Untested! Add an ADO error handler is always a good idea.

  Reveal hidden contents

This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Posted

Hey man! Thanks a lot! 

But when I run my code, I got this: 

>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\AutoIT\Rascunho-ListView.au3"    
"C:\AutoIT\Rascunho-ListView.au3" (25) : ==> The requested action with this object has failed.:
If Not .EOF Then $aResult = .GetRows()
If Not ^ ERROR
>Exit code: 1    Time: 2.21

What it means?

Posted (edited)

As @jchd said add COM Error Hanlder

#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>

Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

Example()

Func Example()
    Local $dbname = FileOpenDialog("Choose Access Database", @ScriptDir, "Access files (*.accdb)", 1)

    $adoCon = ObjCreate("ADODB.Connection")
    $adoCon.Open("Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & $dbname & ";Uid=;Pwd=;")
    $adoRs = ObjCreate("ADODB.Recordset")

    GUICreate("listview items", 550, 250, 100, 200, -1, $WS_EX_ACCEPTFILES)
    Local $idListview = GUICtrlCreateListView("Codigo    |Nome         |Valor  ", 10, 10, 520, 150) ;,$LVS_SORTDESCENDING
    $query = 'SELECT "codigo" || ''|'' || "nome" || ''|'' || "valor"  FROM Produtos1 WHERE codigo < 10'
    Local $aResult
    With $adoRs
        .CursorType = 2
        .LockType = 3
        .Open($query, $adoCon)
        If @error Then
            ; deal with Probable SQL error
        EndIf
        If Not .EOF Then $aResult = .GetRows()
        .Close()
    EndWith
    $adoRs = 0
    For $item In $aResult
        GUICtrlCreateListViewItem($item , $idListview)
    Next
    $adoCon.Close
    GUISetState()

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

;~             Case $idButton
;~                 MsgBox($MB_SYSTEMMODAL, "listview item", GUICtrlRead(GUICtrlRead($idListview)), 2)

            Case $idListview
                MsgBox($MB_SYSTEMMODAL, "listview", "clicked=" & GUICtrlGetState($idListview), 2)

        EndSwitch
    WEnd
EndFunc   ;==>Example

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

Here is the problem:

  Quote

HELP_183101-populate-listview-with-access-sql.au3 (22) : ==> COM Error intercepted !
    err.number is:         0x80020009
    err.windescription:    WystڰiӠwyjڴek.

    err.description is:     [Microsoft][ODBC Microsoft Access Driver] Invalid use of vertical bars in query expression '[codigo] || '|' || [nome] || '|' || [valor]'.
    err.source is:         Microsoft OLE DB Provider for ODBC Drivers

    err.helpfile is:     
    err.helpcontext is:     0
    err.lastdllerror is:     0
    err.scriptline is:     22
    err.retcode is:     0x80040E14

HELP_183101-populate-listview-with-access-sql.au3 (26) : ==> COM Error intercepted !
    err.number is:         0x80020009
    err.windescription:    WystڰiӠwyjڴek.

    err.description is:     Operacja nie jest dopuszczalna, gdy obiekt jest zamkni뵹.
    err.source is:         ADODB.Recordset
    err.helpfile is:     C:\WINDOWS\HELP\ADO270.CHM
    err.helpcontext is:     1240653
    err.lastdllerror is:     0
    err.scriptline is:     26
    err.retcode is:     0x800A0E78
 

Expand  

Why you use this || chars in SQL statement ?

$query = 'SELECT "codigo" || ''|'' || "nome" || ''|'' || "valor"  FROM Produtos1 WHERE codigo < 10'

??

 

EDIT:
in this example there was no     GUISetState()
Fixed.

Edited by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted

Try this:

#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>

Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

Example()

Func Example()
    Local $dbname = FileOpenDialog("Choose Access Database", @ScriptDir, "Access files (*.accdb)", 1)

    $adoCon = ObjCreate("ADODB.Connection")
    $adoCon.Open("Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & $dbname & ";Uid=;Pwd=;")
    $adoRs = ObjCreate("ADODB.Recordset")

    GUICreate("listview items", 550, 250, 100, 200, -1, $WS_EX_ACCEPTFILES)
    Local $idListview = GUICtrlCreateListView("Codigo    |Nome         |Valor  ", 10, 10, 520, 150) ;,$LVS_SORTDESCENDING
    $query = 'SELECT "codigo" , "nome" , "valor"  FROM Produtos1 WHERE codigo < 10'
    Local $sResult = ''
    With $adoRs
        .CursorType = 2
        .LockType = 3
        .Open($query, $adoCon)
        If @error Then
            ; deal with Probable SQL error
            Return SetError(1)
        EndIf
        If Not .EOF Then $sResult = .GetString(2, -1, '|', '~?~')
        .Close()
    EndWith
    $adoRs = 0

    Local $aResult = StringSplit($sResult, '~?~', $STR_ENTIRESPLIT + $STR_NOCOUNT)
    For $iRow_idx = 0 To UBound($aResult) - 1
        GUICtrlCreateListViewItem($aResult[$iRow_idx], $idListview)
    Next
    $adoCon.Close
    GUISetState()

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

;~             Case $idButton
;~                 MsgBox($MB_SYSTEMMODAL, "listview item", GUICtrlRead(GUICtrlRead($idListview)), 2)

            Case $idListview
                MsgBox($MB_SYSTEMMODAL, "listview", "clicked=" & GUICtrlGetState($idListview), 2)

        EndSwitch
    WEnd
EndFunc   ;==>Example

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

 

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted (edited)

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted (edited)
  On 6/15/2016 at 6:44 PM, Caladan said:

Man, where I can learn all that stuff?

Expand  

At home, sitting at desk.

But you should to know: thinking does not hurt, ........ .......... but it takes time.
;)

 

Edited by mLipok
wording

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted

|| is the standard SQL string concatenation operator. The goal is to obtain directly a string suitable for insertion into a listview control (i.e. fields separated by |). But of course MS doesn't do thing everybody else does.

  Reveal hidden contents

This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Posted

aha....
so the solution might look like this:

#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>

Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

Example()

Func Example()
    Local $dbname = FileOpenDialog("Choose Access Database", @ScriptDir, "Access files (*.accdb)", 1)
    If @error then Return SetError(@error, @extended, 0)


    $adoCon = ObjCreate("ADODB.Connection")
    $adoCon.Open("Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & $dbname & ";Uid=;Pwd=;")
    $adoRs = ObjCreate("ADODB.Recordset")

    GUICreate("listview items", 550, 250, 100, 200, -1, $WS_EX_ACCEPTFILES)
    Local $idListview = GUICtrlCreateListView("Codigo    |Nome         |Valor  ", 10, 10, 520, 150) ;,$LVS_SORTDESCENDING
    $query = 'SELECT "codigo" & ''|'' & "nome" & ''|'' & "valor"  FROM Produtos1 WHERE codigo < 10'
    Local $aResult
    With $adoRs
        .CursorType = 2
        .LockType = 3
        .Open($query, $adoCon)
        If @error Then
            ; deal with Probable SQL error
            Return SetError(1)
        EndIf
        If Not .EOF Then $aResult = .GetRows()
        .Close()
    EndWith
    $adoRs = 0
    _ArrayDisplay($aResult, 'UBound($aResult)=' & UBound($aResult))

    For $iRow_idx = 0 To UBound($aResult) - 1
        GUICtrlCreateListViewItem($aResult[$iRow_idx][0], $idListview)
    Next
    $adoCon.Close
    GUISetState()

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

;~             Case $idButton
;~                 MsgBox($MB_SYSTEMMODAL, "listview item", GUICtrlRead(GUICtrlRead($idListview)), 2)

            Case $idListview
                MsgBox($MB_SYSTEMMODAL, "listview", "clicked=" & GUICtrlGetState($idListview), 2)

        EndSwitch
    WEnd
EndFunc   ;==>Example

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

 

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted

OMG, Access!

  Reveal hidden contents

This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Posted (edited)
  On 6/15/2016 at 10:35 PM, jchd said:

|| is the standard SQL string concatenation operator. The goal is to obtain directly a string suitable for insertion into a listview control (i.e. fields separated by |). But of course MS doesn't do thing everybody else does.

Expand  

Thanks for this info I think I should check it in my MS SQL >> PostgreSQL   QueryWrapper/Parser

Edited by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...