faustf

sql extract not repeat

21 posts in this topic

hi guy  i  have  a  little problem :)    i have  code    in this  code  i connect  to db  postgres ,   and  i want   extract  id    of   3  name  of  city   insert a  routine  in  for  but i dont know  why ,   execute only one  

 

this is  my code 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
#include <Date.au3>
#include <String.au3>

Global Const $sFilePath_ini = (@ScriptDir & "\config\config.ini")
Global $odoo_Input8, $odoo_Input7, $odoo_Input6, $odoo_Input9, $odoo_Input10, $test_odoo, $Test_presta, $Presta_Input1, $Presta_Input2, $Presta_Input3, $Presta_Input4, $Presta_Input5
Global $DBP = 0, $Label7, $Label6, $Ctrl_button = 0, $pic4, $Ctrl_button2 = 0, $DBMy = 0, $pic3, $Test_presta, $Label6, $a, $objConn, $objConnMY
Global $rsCustomers_MY, $Presta_to_Odoo
; il global sotto e dell udf
Global $ps_Country_ID_array[2], $b = 0, $ps_Count, $z = 0, $v = 0, $odoo_Count
Global $ps_Country_code_array[1], $c = 0, $d = 0
Global $tabella, $Form1_1
; ps_address array tabella 24 posizioni
Global $Array_ps_Addres[0][24]
Global $Array_ps_Customers[0][31]
Global $Form2
; array formato da  mix psaddress ps custumer
Global $array_res_partner_exchange[1][67]
Global $ab = 0
; array state  odoo
Global $res_Country_state_array[1]
Global $i,$res_country_state
 testfunc()

Func testfunc()
local $arrayfuck[3]
$arrayfuck[0] = 'firenze'
$arrayfuck[1]= 'new york'
$arrayfuck[2]= 'texas'
For $zz = 0 to UBound ($arrayfuck) -1
Local $prova = _connector_sql_state_post($arrayfuck[$zz])
Next
    EndFunc



Func _connector_sql_state_post($city_state)
Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

    _Connetti_DB_Postgre() ; aporo connessione  a odoo
MsgBox(0,'dentro city ',"SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'")
        ;$rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'")
        $rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '"&$city_state&"'")
        With $rsCustomers
            While Not .EOF
                ConsoleWrite(.Fields("id").Value & " - " & .Fields("code").Value & @LF)
                ConsoleWrite(.Fields("name").Value & " - " & .Fields("country_id").Value & @LF)
                ;$res_Country_state_array[0] = (.Fields("id").Value)
                msgbox(0,'test',(.Fields("id").Value))
                ;MsgBox (0,'variabile',$res_country_state)
                $i += 1

                .MoveNext
            WEnd
            .Close
        EndWith
        ;_ArrayDisplay($res_Country_state_array,'dalla funzione deve esse 61')
       Return $res_country_state

    _Close_DB_Postgre() ;  chiudo connessione database odoo


EndFunc   ;==>_connector_sql_country_post


Func _Connetti_DB_Postgre()

    $objConn = ObjCreate("ADODB.Connection")
    $objConn.Open('Dsn=PostgreSQL35W;database=bitnami_openerp;server=127.0.0.1;port=5432;uid=postgres;pwd=xxxx')
    If @error Then
        MsgBox(16, "Errore", "Error Opening Connection")
    Else
        $DBP = 1
    EndIf

EndFunc   ;==>_Connetti_DB_Postgre

Func _Close_DB_Postgre()

    $objConn.Close

EndFunc   ;==>_Close_DB_Postgre

in practic  execute only one  time  the  with $rscustomers ,  why ??? 

 

 

Share this post


Link to post
Share on other sites



Show console output from COM Error Handler.

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Show console output from COM Error Handler.

 

EDIT: Sorry for this duplicate - connection problems.

Edited by mLipok

Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

not have  nothing  error , work strange  try  with autoit debugger  and  run step by step , arrive  

With $rsCustomers

and  run first  time ,  and second  time jump  , (  and  i dont know  why    jump )

Share this post


Link to post
Share on other sites

In your script I do not see 

Func _ErrFunc(...
....
...
EndFunc

 

btw. when you declare:

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

in a local scope then COM Event Handler exists only in this scope, this mean you should declare this in each function using COM objects.

 

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

 with  function error  , but  do the  same  

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
#include <Date.au3>
#include <String.au3>

Global Const $sFilePath_ini = (@ScriptDir & "\config\config.ini")
Global $odoo_Input8, $odoo_Input7, $odoo_Input6, $odoo_Input9, $odoo_Input10, $test_odoo, $Test_presta, $Presta_Input1, $Presta_Input2, $Presta_Input3, $Presta_Input4, $Presta_Input5
Global $DBP = 0, $Label7, $Label6, $Ctrl_button = 0, $pic4, $Ctrl_button2 = 0, $DBMy = 0, $pic3, $Test_presta, $Label6, $a, $objConn, $objConnMY
Global $rsCustomers_MY, $Presta_to_Odoo
; il global sotto e dell udf
Global $ps_Country_ID_array[2], $b = 0, $ps_Count, $z = 0, $v = 0, $odoo_Count
Global $ps_Country_code_array[1], $c = 0, $d = 0
Global $tabella, $Form1_1
; ps_address array tabella 24 posizioni
Global $Array_ps_Addres[0][24]
Global $Array_ps_Customers[0][31]
Global $Form2
; array formato da  mix psaddress ps custumer
Global $array_res_partner_exchange[1][67]
Global $ab = 0
; array state  odoo
Global $res_Country_state_array[1]
Global $i,$res_country_state
 testfunc()

Func testfunc()
local $arrayfuck[3]
$arrayfuck[0] = 'firenze'
$arrayfuck[1]= 'new york'
$arrayfuck[2]= 'texas'
For $zz = 0 to UBound ($arrayfuck) -1
Local $prova = _connector_sql_state_post($arrayfuck[$zz])
Next
    EndFunc



Func _connector_sql_state_post($city_state)
Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

    _Connetti_DB_Postgre() ; aporo connessione  a odoo
MsgBox(0,'dentro city ',"SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'")
        ;$rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'")
        $rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '"&$city_state&"'")
        With $rsCustomers
            While Not .EOF
                ConsoleWrite(.Fields("id").Value & " - " & .Fields("code").Value & @LF)
                ConsoleWrite(.Fields("name").Value & " - " & .Fields("country_id").Value & @LF)
                ;$res_Country_state_array[0] = (.Fields("id").Value)
                msgbox(0,'test',(.Fields("id").Value))
                ;MsgBox (0,'variabile',$res_country_state)
                $i += 1

                .MoveNext
            WEnd
            .Close
        EndWith
        ;_ArrayDisplay($res_Country_state_array,'dalla funzione deve esse 61')
       Return $res_country_state

    _Close_DB_Postgre() ;  chiudo connessione database odoo


EndFunc   ;==>_connector_sql_country_post


Func _Connetti_DB_Postgre()

    $objConn = ObjCreate("ADODB.Connection")
    $objConn.Open('Dsn=PostgreSQL35W;database=bitnami_openerp;server=127.0.0.1;port=5432;uid=postgres;pwd=xxxxxx')
    If @error Then
        MsgBox(16, "Errore", "Error Opening Connection")
    Else
        $DBP = 1
    EndIf

EndFunc   ;==>_Connetti_DB_Postgre

Func _Close_DB_Postgre()

    $objConn.Close

EndFunc   ;==>_Close_DB_Postgre

Func _ErrFunc($oError)

    $Form2 = GUICreate("Error", 493, 277, 852, 219)
    $Edit1 = GUICtrlCreateEdit("", 6, 66, 481, 203, BitOR($ES_AUTOVSCROLL, $WS_HSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $ES_READONLY))
    GUICtrlSetData(-1, @ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @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 & _
            @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))

    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\config\white.jpg", -2, -2, 493, 64)
    $Label1 = GUICtrlCreateLabel("Il Programma ha riscontrato un errore  grave", 30, 11, 308, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetBkColor(-1, 0xFFFFFF)

    GUISetState(@SW_SHOW)

    MsgBox(16, 'Erore', 'ERRORE GRAVE ADOO ODBC CONNECTORS !!!!  ' & @CRLF & 'PREMENDO OK CHIUDI ANCHE IL DUMP DELL ERRORE')
EndFunc   ;==>_ErrFunc

not  have  nothing  error , but  extract only  one  and  jump the , after one  extract  , why ? :(

With $rsCustomers
Edited by faustf

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

here you have some modification to test:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
#include <Date.au3>
#include <String.au3>

Global Const $sFilePath_ini = (@ScriptDir & "\config\config.ini")
Global $odoo_Input8, $odoo_Input7, $odoo_Input6, $odoo_Input9, $odoo_Input10, $test_odoo, $Test_presta, $Presta_Input1, $Presta_Input2, $Presta_Input3, $Presta_Input4, $Presta_Input5
Global $DBP = 0, $Label7, $Label6
Global $Ctrl_button = 0, $pic4, $Ctrl_button2 = 0, $DBMy = 0, $pic3, $a, $objConn, $objConnMY
Global $rsCustomers_MY, $Presta_to_Odoo
; il global sotto e dell udf
Global $ps_Country_ID_array[2], $b = 0, $ps_Count, $z = 0, $v = 0, $odoo_Count
Global $ps_Country_code_array[1], $c = 0, $d = 0
Global $tabella, $Form1_1
; ps_address array tabella 24 posizioni
Global $Array_ps_Addres[0][24]
Global $Array_ps_Customers[0][31]
Global $Form2
; array formato da  mix psaddress ps custumer
Global $array_res_partner_exchange[1][67]
Global $ab = 0
; array state  odoo
Global $res_Country_state_array[1]
Global $i, $res_country_state
testfunc()

Func testfunc()
    Local $arrayfuck[3]
    $arrayfuck[0] = 'firenze'
    $arrayfuck[1] = 'new york'
    $arrayfuck[2] = 'texas'
    Local $prova
    For $zz = 0 To UBound($arrayfuck) - 1
        $prova = _connector_sql_state_post($arrayfuck[$zz])
    Next

    #forceref $prova
EndFunc    ;==>testfunc



Func _connector_sql_state_post($city_state)
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    #forceref $oErrorHandler

    _Connetti_DB_Postgre() ; aporo connessione  a odoo
    If @error Then MsgBox($MB_ICONERROR, 'Error Opening Connection', '@error = ' & @error & @CRLF & '@extended = ' & @extended)

    MsgBox(0, 'dentro city ', "SELECT * FROM  res_country_state WHERE name LIKE '%" & $city_state & "%'")
    ;$rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'")
    Local $rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '" & $city_state & "'")
    With $rsCustomers
        While Not .EOF
            ConsoleWrite(.Fields("id").Value & " - " & .Fields("code").Value & @LF)
            ConsoleWrite(.Fields("name").Value & " - " & .Fields("country_id").Value & @LF)
            ;$res_Country_state_array[0] = (.Fields("id").Value)
            MsgBox(0, 'test', (.Fields("id").Value))
            ;MsgBox (0,'variabile',$res_country_state)
            $i += 1

            .MoveNext
        WEnd
        .Close
    EndWith

    ; CleanUp
    $rsCustomers = Null

    ; _ArrayDisplay($res_Country_state_array,'dalla funzione deve esse 61')
    Return $res_country_state

    _Close_DB_Postgre() ;  chiudo connessione database odoo

EndFunc    ;==>_connector_sql_state_post


Func _Connetti_DB_Postgre()
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    #forceref $oErrorHandler

    Local $objConn = ObjCreate("ADODB.Connection")
    $objConn.Open('Dsn=PostgreSQL35W;database=bitnami_openerp;server=127.0.0.1;port=5432;uid=postgres;pwd=kronos123')
    If @error then Return SetError(@error, @extended, '')

    $DBP = 1

EndFunc    ;==>_Connetti_DB_Postgre

Func _Close_DB_Postgre()
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    #forceref $oErrorHandler

    $objConn.Close

EndFunc    ;==>_Close_DB_Postgre

Func _ErrFunc($oError)

    Local $Form2 = GUICreate("Error", 493, 277, 852, 219)
    Local $Edit1 = GUICtrlCreateEdit("", 6, 66, 481, 203, BitOR($ES_AUTOVSCROLL, $WS_HSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $ES_READONLY))
    GUICtrlSetData(-1, @ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @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 & _
            @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))

    Local $Pic1 = GUICtrlCreatePic(@ScriptDir & "\config\white.jpg", -2, -2, 493, 64)
    Local $Label1 = GUICtrlCreateLabel("Il Programma ha riscontrato un errore  grave", 30, 11, 308, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetBkColor(-1, 0xFFFFFF)

    GUISetState(@SW_SHOW)

    MsgBox(16, 'Erore', 'ERRORE GRAVE ADOO ODBC CONNECTORS !!!!  ' & @CRLF & 'PREMENDO OK CHIUDI ANCHE IL DUMP DELL ERRORE')
    #forceref $Form2, $Edit1, $Pic1, $Label1
EndFunc    ;==>_ErrFunc

 

EDIT:
and I want to say that your script never close connection like this:

Return $res_country_state

    _Close_DB_Postgre() ;  chiudo connessione database odoo

 

Edited by mLipok

Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

i have   this  error  now  

dacancellare.au3 (61) : ==> COM Error intercepted !

    err.number is:         0x000000A9
    err.windescription:    Variable must be of type 'Object'.
    err.description is:     

    err.source is:         
    err.helpfile is:     
    err.helpcontext is:     
    err.lastdllerror is:     0
    err.scriptline is:     61
    err.retcode is:     0x00000000

 

and   why never close  like  this???  the  script?? 

 

 

Share this post


Link to post
Share on other sites
10 minutes ago, faustf said:

why never close  like  this???  the  script??

Because first is Return (exit from function).

 

Try Next modyfication:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <IE.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
#include <Date.au3>
#include <String.au3>
#include "ADO.au3"

Global Const $sFilePath_ini = (@ScriptDir & "\config\config.ini")
Global $odoo_Input8, $odoo_Input7, $odoo_Input6, $odoo_Input9, $odoo_Input10, $test_odoo, $Test_presta, $Presta_Input1, $Presta_Input2, $Presta_Input3, $Presta_Input4, $Presta_Input5
Global $DBP = 0, $Label7, $Label6
Global $Ctrl_button = 0, $pic4, $Ctrl_button2 = 0, $DBMy = 0, $pic3, $a, $objConn, $objConnMY
Global $rsCustomers_MY, $Presta_to_Odoo
; il global sotto e dell udf
Global $ps_Country_ID_array[2], $b = 0, $ps_Count, $z = 0, $v = 0, $odoo_Count
Global $ps_Country_code_array[1], $c = 0, $d = 0
Global $tabella, $Form1_1
; ps_address array tabella 24 posizioni
Global $Array_ps_Addres[0][24]
Global $Array_ps_Customers[0][31]
Global $Form2
; array formato da  mix psaddress ps custumer
Global $array_res_partner_exchange[1][67]
Global $ab = 0
; array state  odoo
Global $res_Country_state_array[1]
Global $i, $res_country_state
testfunc()

Func testfunc()
    Local $arrayfuck[3]
    $arrayfuck[0] = 'firenze'
    $arrayfuck[1] = 'new york'
    $arrayfuck[2] = 'texas'
    Local $prova
    
    _Connetti_DB_Postgre() ; aporo connessione  a odoo
    If @error Then MsgBox($MB_ICONERROR, 'Error Opening Connection', '@error = ' & @error & @CRLF & '@extended = ' & @extended)
    
    For $zz = 0 To UBound($arrayfuck) - 1
        $prova = _connector_sql_state_post($arrayfuck[$zz])
    Next

    _Close_DB_Postgre() ;  chiudo connessione database odoo

    #forceref $prova
EndFunc    ;==>testfunc

Func _connector_sql_state_post($city_state)
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    #forceref $oErrorHandler

    MsgBox(0, 'dentro city ', "SELECT * FROM  res_country_state WHERE name LIKE '%" & $city_state & "%'")
    ; $rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'")
    Local $rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '" & $city_state & "'")
    If @error Then MsgBox($MB_ICONERROR, '$rsCustomers', '@error = ' & @error & @CRLF & '@extended = ' & @extended)

    If Not IsObj() then
        MsgBox($MB_ICONERROR, '$rsCustomers Type:', VarGetType($rsCustomers))
    Else
        With $rsCustomers
            While Not .EOF
                ConsoleWrite(.Fields("id").Value & " - " & .Fields("code").Value & @LF)
                ConsoleWrite(.Fields("name").Value & " - " & .Fields("country_id").Value & @LF)
                ;$res_Country_state_array[0] = (.Fields("id").Value)
                MsgBox(0, 'test', (.Fields("id").Value))
                ;MsgBox (0,'variabile',$res_country_state)
                $i += 1

                .MoveNext
            WEnd
            .Close
        EndWith
    EndIf

    ; CleanUp
    $rsCustomers = Null

    ; _ArrayDisplay($res_Country_state_array,'dalla funzione deve esse 61')
    Return $res_country_state
EndFunc    ;==>_connector_sql_state_post

Func _Connetti_DB_Postgre()
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    #forceref $oErrorHandler

    Local $objConn = ObjCreate("ADODB.Connection")
    $objConn.Open('Dsn=PostgreSQL35W;database=bitnami_openerp;server=127.0.0.1;port=5432;uid=postgres;pwd=kronos123')
    If @error then Return SetError(@error, @extended, '')

    $DBP = 1

EndFunc    ;==>_Connetti_DB_Postgre

Func _Close_DB_Postgre()
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    #forceref $oErrorHandler

    $objConn.Close
    $objConn = Null

    $DBP = 0

EndFunc    ;==>_Close_DB_Postgre

Func _ErrFunc($oError)

    Local $Form2 = GUICreate("Error", 493, 277, 852, 219)
    Local $Edit1 = GUICtrlCreateEdit("", 6, 66, 481, 203, BitOR($ES_AUTOVSCROLL, $WS_HSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $ES_READONLY))
    GUICtrlSetData(-1, @ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @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 & _
            @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))

    Local $Pic1 = GUICtrlCreatePic(@ScriptDir & "\config\white.jpg", -2, -2, 493, 64)
    Local $Label1 = GUICtrlCreateLabel("Il Programma ha riscontrato un errore  grave", 30, 11, 308, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetBkColor(-1, 0xFFFFFF)

    GUISetState(@SW_SHOW)

    MsgBox(16, 'Erore', 'ERRORE GRAVE ADOO ODBC CONNECTORS !!!!  ' & @CRLF & 'PREMENDO OK CHIUDI ANCHE IL DUMP DELL ERRORE')
    #forceref $Form2, $Edit1, $Pic1, $Label1
EndFunc    ;==>_ErrFunc

 

 

QUESTION: Why you not use ADO.au3

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

dont  have  ADO.au3 ,  and  for  my first  release  not  want  use  ADO  ,  i wait  stable  version or  , when  autoit  insert the  ADO.au3   in  new realease of  autoit.exe

sorry 

 

Edited by faustf

Share this post


Link to post
Share on other sites
11 minutes ago, faustf said:

dont  have  ADO.au3 

Just download it.

and  for  my first  release  not  want  use  ADO  

You are using ADO all the time.

I wait  stable  version

Almost here.
I just waiting for forum members comments .
I can say "THIS IS STABLE VERSION" ......... but I never used it before on other DBMS like only on MS SQL .
This is really small difference beetwen how ADO.au3 works with different DBMS 
So If you want to have stable version for PostrgreSQL just use this UDF.

25 minutes ago, faustf said:

or  , when  autoit  insert the  ADO.au3   in  new realease of  autoit.exe

Do not know if it ever happend ..

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

ok i promess next release i  use  ,  now  dont  wanna  recode   all script  ,  is  1010 line  

Edited by faustf

Share this post


Link to post
Share on other sites

Ok.

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

but  some one  not  have  idea  why  dont  execute  at  second  time  the  

While Not .EOF

 but  jump directly at  wend ??? 

 

Share this post


Link to post
Share on other sites

i  think the  problem  is   here

SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'"

i  think  not  work properly  the  sql 

with  your  ADO.au3 ???   you can   use  this  string ???  for find insede db?? 

 

Share this post


Link to post
Share on other sites

#16 ·  Posted (edited)

Work's in MS SQL and MySQL

Func _Example_PostgreSQL()
    Local $sDSN = 'PostgreSQL35W'
    Local $sDatabase = 'YourBASENAME'
    Local $sServer = ''
    Local $sPort = ''
    Local $sUser = 'YourUserName'
    Local $sPassword = 'YourPassword'

    Local $sConnectionString = 'DSN=' & $sDSN & ';DATABASE=' & $sDatabase & ';SERVER=' & $sServer & ';PORT=' & $sPort & ';UID=' & $sUser & ';PWD=' & $sPassword & ';'

    _Example_1_RecordsetToConsole($sConnectionString, "Select * from SOME_TABLE")
    _Example_2_RecordsetDisplay($sConnectionString, "Select * from SOME_TABLE")
    _Example_3_ConnectionProperties($sConnectionString)

EndFunc    ;==>_Example_PostgreSQL

 

but the problem is other:

http://www.tutorialspoint.com/postgresql/postgresql_like_clause.htm

Try this snippet:

Local $sQUERY = "SELECT * FROM  res_country_state WHERE name::text LIKE '%" & $city_state & "%'"
    ; Local $sQUERY2 = "SELECT * FROM  res_country_state WHERE name LIKE '" & $city_state & "'"
    MsgBox(0, 'dentro city ', $sQUERY)
    Local $rsCustomers = $objConn.Execute($sQUERY)
    If @error Then MsgBox($MB_ICONERROR, '$rsCustomers', '@error = ' & @error & @CRLF & '@extended = ' & @extended)

 

Edited by mLipok

Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

i tryed  but not  change nothing  , is  a  very hell :D

 

Share this post


Link to post
Share on other sites

question is  ,  but  if    the  first time  it  give me  a results , is possible  kill  or   destroy  the  object  totally ??

 

Share this post


Link to post
Share on other sites

#19 ·  Posted (edited)

hey @mlipok  you can kill me   ahahahhahaha :D:D:D   is  case sensitive   the db 

Edited by faustf

Share this post


Link to post
Share on other sites

this solution work perfect

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
#include <Date.au3>
#include <String.au3>

Global Const $sFilePath_ini = (@ScriptDir & "\config\config.ini")
Global $odoo_Input8, $odoo_Input7, $odoo_Input6, $odoo_Input9, $odoo_Input10, $test_odoo, $Test_presta, $Presta_Input1, $Presta_Input2, $Presta_Input3, $Presta_Input4, $Presta_Input5
Global $DBP = 0, $Label7, $Label6, $Ctrl_button = 0, $pic4, $Ctrl_button2 = 0, $DBMy = 0, $pic3, $Test_presta, $Label6, $a, $objConn, $objConnMY
Global $rsCustomers_MY, $Presta_to_Odoo
; il global sotto e dell udf
Global $ps_Country_ID_array[2], $b = 0, $ps_Count, $z = 0, $v = 0, $odoo_Count
Global $ps_Country_code_array[1], $c = 0, $d = 0
Global $tabella, $Form1_1
; ps_address array tabella 24 posizioni
Global $Array_ps_Addres[0][24]
Global $Array_ps_Customers[0][31]
Global $Form2
; array formato da  mix psaddress ps custumer
Global $array_res_partner_exchange[1][67]
Global $ab = 0
; array state  odoo
Global $res_Country_state_array[1]
Global $i,$res_country_state
Global $prova
_Connetti_DB_Postgre() ; aporo connessione  a odoo
testfunc()

Func testfunc()
local $arrayfuck[3]
$arrayfuck[0] = 'firenze'
$arrayfuck[1]= 'New York'
$arrayfuck[2]= 'Texas'
For $zz = 0 to UBound ($arrayfuck) -1
$prova = _connector_sql_state_post($arrayfuck[$zz])
MsgBox (0,'',$prova)
$prova = ''
Next
    EndFunc



Func _connector_sql_state_post($city_state)
Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")


;MsgBox(0,'dentro city ',"SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'")
        ;$rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '%"&$city_state&"%'")
Local $sQUERY = "SELECT * FROM  res_country_state WHERE name::text LIKE '" & $city_state & "'"
    ; Local $sQUERY2 = "SELECT * FROM  res_country_state WHERE name LIKE '" & $city_state & "'"
    MsgBox(0, 'dentro city ', $sQUERY)
    Local $rsCustomers = $objConn.Execute($sQUERY)
    If @error Then MsgBox($MB_ICONERROR, '$rsCustomers', '@error = ' & @error & @CRLF & '@extended = ' & @extended)


        ;$rsCustomers = $objConn.Execute("SELECT * FROM  res_country_state WHERE name LIKE '"&$city_state&"'")
        With $rsCustomers
            While Not .EOF
                ConsoleWrite(.Fields("id").Value & " - " & .Fields("code").Value & @LF)
                ConsoleWrite(.Fields("name").Value & " - " & .Fields("country_id").Value & @LF)
                ;$res_Country_state_array[0] = (.Fields("id").Value)
                msgbox(0,'test',(.Fields("id").Value))
                $res_country_state = (.Fields("id").Value )
                ;MsgBox (0,'variabile',$res_country_state)
                $i += 1

                .MoveNext
            WEnd
            .Close
        EndWith
        ;_ArrayDisplay($res_Country_state_array,'dalla funzione deve esse 61')
       Return $res_country_state




EndFunc   ;==>_connector_sql_country_post


Func _Connetti_DB_Postgre()

    $objConn = ObjCreate("ADODB.Connection")
    $objConn.Open('Dsn=PostgreSQL35W;database=bitnami_openerp;server=127.0.0.1;port=5432;uid=postgres;pwd=xxxxxx')
    If @error Then
        MsgBox(16, "Errore", "Error Opening Connection")
    Else
        $DBP = 1
    EndIf

EndFunc   ;==>_Connetti_DB_Postgre

Func _Close_DB_Postgre()

    $objConn.Close

EndFunc   ;==>_Close_DB_Postgre

Func _ErrFunc($oError)

    $Form2 = GUICreate("Error", 493, 277, 852, 219)
    $Edit1 = GUICtrlCreateEdit("", 6, 66, 481, 203, BitOR($ES_AUTOVSCROLL, $WS_HSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $ES_READONLY))
    GUICtrlSetData(-1, @ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @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 & _
            @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))

    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\config\white.jpg", -2, -2, 493, 64)
    $Label1 = GUICtrlCreateLabel("Il Programma ha riscontrato un errore  grave", 30, 11, 308, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetBkColor(-1, 0xFFFFFF)

    GUISetState(@SW_SHOW)

    MsgBox(16, 'Erore', 'ERRORE GRAVE ADOO ODBC CONNECTORS !!!!  ' & @CRLF & 'PREMENDO OK CHIUDI ANCHE IL DUMP DELL ERRORE')
EndFunc   ;==>_ErrFunc

_Close_DB_Postgre() ;  chiudo connessione database odoo

 

Share this post


Link to post
Share on other sites

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