sql extract not repeat

[mLipok]

You should also close connection when you end your program.

_Connetti_DB_Postgre() ; aporo connessione  a odoo
testfunc()
_Close_DB_Postgre() ;  chiudo connessione database odoo

But there is no need to add this at end of script look in this modification:

expandcollapse popup

#Tidy_Parameters=/sort_funcs /reel
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

#Region Include
#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>
#EndRegion  Include

#Region Variable/Const declaration
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
#EndRegion  Variable/Const declaration

#Region MAIN
_Connetti_DB_Postgre() ; aporo connessione  a odoo
testfunc()
_Close_DB_Postgre() ;  chiudo connessione database odoo
#EndRegion  MAIN

#Region Functions
Func _Close_DB_Postgre()
    $objConn.Close
    $objConn = Null
EndFunc    ;==>_Close_DB_Postgre

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_state_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 _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

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    ;==>testfunc
#EndRegion  Functions

Btw.

Before you make next step

Try this and learn:

• how to use #Region
• how to use Au3Check
• about variable declaration
•  Best coding practices  - especially about variable names

 

Edited March 2, 2016 by mLipok