AutoIt Français

Code : Tout sélectionner

Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIListBox.au3>
#Include <GuiListView.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Global $g_eventerror = 0
Global $oMyError = 0

;Dim $DEBUG = True
Dim $DEBUG = False

Dim $arConnectInfo[1]
$arConnectInfo[0] = 0

Dim $FormHwnd, $LabelID, $cboConnInfo, $btnConnect
Dim $gbConInfo, $lblServer, $txtServer, $lblCat, $txtCatalog, $lblUser, $txtuser, $lblPasword, $txtPassword
Dim $gbTableListDisplay, $lbTables
Dim $gbTableDisplay, $pb, $txtQuery, $lvTable, $cm, $cmCopyColNamesAndRow, $cmCopyRow, $lblSep

Dim $IniBuf = ""
Dim $SelectedConnectionInformation = ""
Dim $bCheckConInfo = False
Dim $bCheckSelectedTable = False
Dim $CurrentTableName = "" ; the table that is currently selected. Will change if a new selection is made.
Dim $bShowUpDnButtons = False ; true to show up and down separator buttons, false to hide them
Dim $SleepTimeMS = 300
Dim $MouseYLocation = -1

Dim $TableData = "";includes the query, the column names and tab-separated column values for CRLF-separated records, populated when a query is run

HotKeySet ( "^!c", "CopyData" );ctrl-alt-c
HotKeySet ( "{F5}", "RunUserQuery" )

Main()

Func Main()
    ReadIniData()   ; read stored connection information
    DoUI()  ; create the UI and handle user actions on the UI
EndFunc

;-----------UI Functions-----------
Func DoUI()
    Dim $font = "Comic Sans MS"
;~  GUISetFont ( 9, 400, 1, $font )
    $FormHwnd = GUICreate ( "SQL Server Tool", @DesktopWidth / 2 - 175, 200, 200, @DesktopHeight / 2 - 45, 0x00040000 + 0x00010000, 0x00000018 )    ; $WS_SIZEBOX + $WS_MAXIMIZEBOX, WS_EX_ACCEPTFILES
    GUISetBkColor ( 0x00E0FFFF )    ;window backgrd = light blue
    $LabelID = GUICtrlCreateLabel ( "Select Database", 2, 2, 200 )
    GUICtrlSetResizing ( $LabelID, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP )

    $cboConnInfo = GUICtrlCreateCombo ( "", 2, 22, 118, 25, BitOR ( $CBS_DROPDOWN,$CBS_AUTOHSCROLL ) )
    GUICtrlSetResizing ( $cboConnInfo, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKSIZE )
    if $arConnectInfo [ 0 ] > 0 Then
        Dim $ConnBuffer = _ArrayToString ( $arConnectInfo )
        $ConnBuffer = StringRight ( $ConnBuffer, StringLen ( $ConnBuffer ) - StringInStr ( $ConnBuffer, @CRLF ) - 2 )
        GUICtrlSetData ( $cboConnInfo, $ConnBuffer )
    EndIf

    $btnConnect = GUICtrlCreateButton ( "New Connection", 120, 20, 98, 22 )
    GUICtrlSetOnEvent($btnConnect, "ConnectBtnOnClick")
    GUICtrlSetResizing ( $btnConnect, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKSIZE )
#region Connection Infomation groupbox
    $gbConInfo = GUICtrlCreateGroup("Connection Information", 220, 8, 260, 81)
    GUICtrlSetResizing ( $gbConInfo, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $gbConInfo, $GUI_HIDE )

    $lblServer = GUICtrlCreateLabel("Server", 230, 24, 35, 17)
    GUICtrlSetResizing ( $lblServer, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $lblServer, $GUI_HIDE )

    $txtServer = GUICtrlCreateInput("", 270, 24, 70, 21)
    GUICtrlSetResizing ( $txtServer, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $txtServer, $GUI_HIDE )

    $lblCat = GUICtrlCreateLabel("Catalog", 230, 56, 40, 17)
    GUICtrlSetResizing ( $lblCat, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $lblCat, $GUI_HIDE )

    $txtCatalog = GUICtrlCreateInput("", 270, 56, 70, 21)
    GUICtrlSetResizing ( $txtCatalog, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $txtCatalog, $GUI_HIDE )

    $lblUser = GUICtrlCreateLabel("User", 350, 24, 26, 17)
    GUICtrlSetResizing ( $lblUser, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $lblUser, $GUI_HIDE )

    $txtuser = GUICtrlCreateInput ( "", 400, 24, 70, 21 )
    GUICtrlSetResizing ( $txtuser, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $txtuser, $GUI_HIDE )

    $lblPasword = GUICtrlCreateLabel("Password", 350, 56, 50, 17)
    GUICtrlSetResizing ( $lblPasword, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $lblPasword, $GUI_HIDE )

    $txtPassword = GUICtrlCreateInput ( "", 400, 56, 70, 21, $ES_PASSWORD )
    GUICtrlSetResizing ( $txtPassword, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $txtPassword, $GUI_HIDE )

    GUICtrlCreateGroup("", -99, -99, 1, 1)
#endregion End Connection Infomation groupbox

#region Available Table List groupgbox
    $gbTableListDisplay = GUICtrlCreateGroup("Table List", 2, 42, 210, @DesktopHeight / 2 - 376)
    GUICtrlSetResizing ( $gbTableListDisplay, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKBOTTOM )
    GUICtrlSetState ( $gbTableListDisplay, $GUI_HIDE )

    $lbTables = GUICtrlCreateList ( "", 4, 56, 206, @DesktopHeight / 2 - 392, $LBS_NOINTEGRALHEIGHT + $WS_VSCROLL + $LBS_SORT )
    GUICtrlSetResizing ( $lbTables, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKBOTTOM )
    GUICtrlSetState ( $lbTables, $GUI_HIDE )

    GUICtrlCreateGroup("", -99, -99, 1, 1)
#endregion Available Table List groupgbox

#region Table display groupbox
    $gbTableDisplay = GUICtrlCreateGroup("Table", 220, 2, @DesktopWidth / 2 - 400, @DesktopHeight / 2 - 336)
    GUICtrlSetResizing ( $gbTableDisplay, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM )
    GUICtrlSetState ( $gbTableDisplay, $GUI_HIDE )

    $pb = GUICtrlCreateProgress ( 222, 16, @DesktopWidth / 2 - 404, 17, 0x01 )  ; 0x01 = $PBS_SMOOTH
    GUICtrlSetColor ( $pb, 0x00FF00 ); set progress bar color to green
    GUICtrlSetState ( $pb, $GUI_HIDE )

    $txtQuery = GUICtrlCreateEdit ( "", 222, 16, @DesktopWidth / 2 - 404, 60, $ES_MULTILINE )
    GUICtrlSetResizing ( $txtQuery, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKRIGHT + $GUI_DOCKHEIGHT )
    GUICtrlSetState ( $txtQuery, $GUI_HIDE )

    $lblSep = GUICtrlCreateLabel ( "", 220, 72, @DesktopWidth / 2 - 402, 12 )
    GUICtrlSetResizing ( $lblSep, $GUI_DOCKLEFT + $GUI_DOCKHEIGHT + $GUI_DOCKRIGHT )
    GUICtrlSetBkColor ( $lblSep, 0x808080 )
    GUICtrlSetCursor ( $lblSep, 11 )
    GUICtrlSetState ( $lblSep, $GUI_HIDE )

    $lvTable = GUICtrlCreateListView ( "", 222, 80, @DesktopWidth / 2 - 404, 98 )
    GUICtrlSetResizing ( $lvTable, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM )
    GUICtrlSetState ( $lvTable, $GUI_HIDE )

    $cm = GUICtrlCreateContextMenu ( $lvTable )
    $cmCopyColNamesAndRow = GUICtrlCreateMenuItem ( "Copy Columns + Row", $cm )
    GUICtrlSetOnEvent($cmCopyColNamesAndRow, "CopyColNamesAndRowOnClick")
    $cmCopyRow = GUICtrlCreateMenuItem ( "Copy Row", $cm )
    GUICtrlSetOnEvent($cmCopyRow, "CopyRowOnClick")

    GUICtrlCreateGroup("", -99, -99, 1, 1)
#endregion Table display groupbox

    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")

    GUISetState()  ; display the GUI

    While 1
        if StringLen ( GUICtrlRead ( $cboConnInfo ) ) = 0 Then
            GUICtrlSetData ( $btnConnect, "New Connection" )
        Else
            GUICtrlSetData ( $btnConnect, "Connect" )
        EndIf
        if $bCheckConInfo Then
            CheckConInfo()
        EndIf
        if $bCheckSelectedTable Then
            ; a query is displayed with its data. Watch for a new table selection to update the query an data display.
            CheckTableSelection()
            ; if the mouse is between the query edit box and the data listview, change the mouse cursor
            SetMouseCursor()
        EndIf
        Sleep ( $SleepTimeMS )
    WEnd
    GUIDelete( $FormHwnd )
    Exit
EndFunc

Func ConnectBtnOnClick()
    $SelectedConnectionInformation = GUICtrlRead ( $cboConnInfo )
    if StringLen ( $SelectedConnectionInformation ) = 0 And StringLen ( GUICtrlRead ( $txtPassword ) ) > 0 Then
        $SelectedConnectionInformation = GUICtrlRead ( $txtServer ) & @TAB & GUICtrlRead ( $txtCatalog ) & @TAB & GUICtrlRead ( $txtUser ) & @TAB & GUICtrlRead ( $txtPassword )
    EndIf
    Dim $InfoItemNumber = _ArrayTokenNum ( $SelectedConnectionInformation, @TAB )
    if $InfoItemNumber < 4 Then
        FillConInfoWithExistingInfo ( $InfoItemNumber )
        DisplayConInfoGroupBox ( $GUI_SHOW )
        GUICtrlSetState ( $btnConnect,  $GUI_DISABLE )
        $bCheckConInfo =  True
    Else
        $bCheckConInfo =  False ; stop checking connection info user filled controls
        ClearConInfoGBData ()   ; clear the server, catalog, user and password edit boxes and hide the connection info groupbox with its contents
        DisplayConInfoGroupBox ( $GUI_HIDE )
        if ShowDBTables() Then
            SaveIni()
        EndIf
    EndIf
EndFunc

Func CopyColNamesAndRowOnClick()
Dim $ItemText = ""
Dim $arColInfo [ 9 ]
Dim $SelNum = _GUICtrlListView_GetSelectedCount ( $lvTable )
Dim $ColCount = _GUICtrlListView_GetColumnCount ( $lvTable )
    for $i = 0 to $ColCount - 1
        $arColInfo = _GUICtrlListView_GetColumn ( $lvTable, $i )
        if $i = 0 Then
            $ItemText = $arColInfo [ 5 ]
        Else
            $ItemText &= @TAB & $arColInfo [ 5 ]
        EndIf
    Next
    $ItemText &= @CRLF
    if $SelNum > 0 Then
        Dim $SelRow = _GUICtrlListView_GetSelectedIndices ( $lvTable )
        if StringLen ( $SelRow ) > 0 Then
            for $Col = 0 to $ColCount - 1
                if $Col = 0 Then
                    $ItemText &= _GUICtrlListView_GetItemText ( $lvTable, $SelRow * 1, $Col )
                Else
                    $ItemText &= @TAB & _GUICtrlListView_GetItemText ( $lvTable, $SelRow * 1, $Col )
                EndIf
            Next
        EndIf
    EndIf
    ClipPut ( "" )
    ClipPut ( $ItemText )
EndFunc

Func CopyRowOnClick()
    Dim $SelNum = _GUICtrlListView_GetSelectedCount( $lvTable )
    if $SelNum > 0 Then
        Dim $SelRow = _GUICtrlListView_GetSelectedIndices ( $lvTable )
        if StringLen ( $SelRow ) > 0 Then
            Dim $ItemText = ""
            for $Col = 0 to _GUICtrlListView_GetColumnCount ( $lvTable ) - 1
                if $Col = 0 Then
                    $ItemText &= _GUICtrlListView_GetItemText ( $lvTable, $SelRow * 1, $Col )
                Else
                    $ItemText &= @TAB & _GUICtrlListView_GetItemText ( $lvTable, $SelRow * 1, $Col )
                EndIf
            Next
            ClipPut ( "" )
            ClipPut ( $ItemText )
        EndIf
    EndIf
EndFunc

Func OnExit()
    Exit
EndFunc

;-----------Helper Functions-------------

Func _ArrayTokenNum ( $SeparatedString, $Separator )
    if StringInStr ( $SeparatedString, $Separator ) = 0 Then
        if StringLen ( $SeparatedString ) > 0 Then
            Return 1
        Else
            Return 0
        EndIf
    Else
        Dim $arTokens = StringSplit ( $SeparatedString, $Separator, 1 )
        Return $arTokens [ 0 ]
    EndIf
EndFunc

Func CheckConInfo()
    if StringLen ( GUICtrlRead ( $txtCatalog ) ) > 0 And _
        StringLen ( GUICtrlRead ( $txtUser ) ) > 0 And _
        StringLen ( GUICtrlRead ( $txtPassword ) ) > 0 Then
        GUICtrlSetState ( $btnConnect,  $GUI_ENABLE )
        GUICtrlSetData ( $btnConnect, "Connect" ) ; update the button text to let user know they can try connecting
        $SelectedConnectionInformation = GUICtrlRead ( $txtServer ) & @TAB & GUICtrlRead ( $txtCatalog ) & @TAB & GUICtrlRead ( $txtUser ) & @TAB & GUICtrlRead ( $txtPassword )
    EndIf
EndFunc

Func CheckTableSelection()
    Dim $SelectedTable = GUICtrlRead ( $lbTables )
    if StringLen ( $SelectedTable ) = 0 then Return ; no selection
    if $CurrentTableName = $SelectedTable Then Return ; no new selection
    GUICtrlSetData ( $txtQuery, "select * from " & $SelectedTable )
    DisplayTableGroup ( $GUI_SHOW )
    RunUserQuery()
    $CurrentTableName = $SelectedTable  ; set the current table for future verification of user table selection change
EndFunc

Func ClearConInfoGBData ()
    GUICtrlSetData ( $txtServer, "" )
    GUICtrlSetData ( $txtCatalog, "" )
    GUICtrlSetData ( $txtUser, "" )
    GUICtrlSetData ( $txtPassword, "" )
EndFunc

; Convert the client (GUI) coordinates to screen (desktop) coordinates
Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
    Local $stPoint = DllStructCreate("int;int")
    DllStructSetData($stPoint, 1, $x)
    DllStructSetData($stPoint, 2, $y)
    DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))
    $x = DllStructGetData($stPoint, 1)
    $y = DllStructGetData($stPoint, 2)
    ; release Struct (not really needed as it is a local)
    $stPoint = 0
EndFunc

Func CopyData ()
    ClipPut ( $TableData )
EndFunc

Func DisplayConInfoGroupBox ( $Setting )
    GUICtrlSetState ( $gbConInfo, $Setting )
    GUICtrlSetState ( $lblServer, $Setting )
    GUICtrlSetState ( $txtServer, $Setting )
    GUICtrlSetState ( $lblCat, $Setting )
    GUICtrlSetState ( $txtCatalog, $Setting )
    GUICtrlSetState ( $lblUser, $Setting )
    GUICtrlSetState ( $txtUser, $Setting )
    GUICtrlSetState ( $lblPasword, $Setting )
    GUICtrlSetState ( $txtPassword, $Setting )
EndFunc

Func DisplayTableGroup ( $Setting )
    GUICtrlSetState ( $gbTableDisplay, $Setting )
    GUICtrlSetState ( $txtQuery, $Setting )
    GUICtrlSetState ( $lvTable, $Setting )
    GUICtrlSetState ( $lblSep, $Setting )
EndFunc

Func DisplayTableListGroup ( $Setting )
    GUICtrlSetState ( $gbTableListDisplay, $Setting )
    GUICtrlSetState ( $lbTables, $Setting )
EndFunc

Func FillConInfoWithExistingInfo ( $InfoItemNumber )
    if $InfoItemNumber > 0 Then
        Dim $arConInfoValues = StringSplit ( $SelectedConnectionInformation, @CRLF, 1 )
        GUICtrlSetData ( $txtServer, $arConInfoValues [ 1 ] )
        if $InfoItemNumber > 1 Then GUICtrlSetData ( $txtCatalog, $arConInfoValues [ 2 ] )
        if $InfoItemNumber > 2 Then GUICtrlSetData ( $txtUser, $arConInfoValues [ 3 ] )
    EndIf
EndFunc

Func IsValidQuery ( $Query )
    ; the query can't be thouroughly checked here. Just make sure once leading and trailing spaces, tabs, CR, LF are stripped, it starts with "select " or "update " or "insert "
    While StringLeft ( $Query, 1 ) = " " Or StringLeft ( $Query, 1 ) = @TAB Or StringLeft ( $Query, 1 ) = @CR Or StringLeft ( $Query, 1 ) = @LF
        $Query = StringTrimLeft ( $Query, 1 )
    WEnd
    While StringRight ( $Query, 1 ) = " " Or StringRight ( $Query, 1 ) = @TAB Or StringRight ( $Query, 1 ) = @CR Or StringRight ( $Query, 1 ) = @LF
        $Query = StringTrimRight ( $Query, 1 )
    WEnd
    if StringLeft ( StringLower ( $Query ), 7 ) = "select " And StringLen ( $Query ) > 7 Then return True
    if StringLeft ( StringLower ( $Query ), 7 ) = "update " And StringLen ( $Query ) > 7 Then return True
    if StringLeft ( StringLower ( $Query ), 7 ) = "insert " And StringLen ( $Query ) > 7 Then return True
EndFunc

Func ReadIniData()
    if FileExists(@ScriptDir & "\" & "SQLDBViewer.ini") Then
        $IniBuf = FileRead ( @ScriptDir & "\SQLDBViewer.ini" )
        if @error = 0 Then
            ; $IniBuf is of tab- and CRLCF-format. Each line contains tab separated values <server><catalog><user><password>; if it becomes necessary, will encrypt and decrypt
            $arConnectInfo = StringSplit ( $IniBuf, @CRLF )
        EndIf
    EndIf
EndFunc

Func RecSetOpenError()
    if $oMyError = 0 then Return
    Dim $HexNumber = hex ( $oMyError.number, 8 )
    Msgbox ( 0, "COM Error !", "Error number" & @LF & $HexNumber & @LF & _
                "description is: " & $oMyError.windescription )
    $g_eventerror = 1 ; something to check for when this function returns
EndFunc

;-----------------------------
; Function RunQuery
; Input:
;  SQry = string containing the SQL query
;  $bFirstRowHasColumns = boolean, set to true to return the columns as the first item in the return array
; Output:
;  an array where item 0 contains the size of the array, and each item contains a tab-separated list of values for one record
; Caveat: if the database returns an error for eg bad credentials, AutoIT cannot handle the error and crashes.
;  This happens at the line "$oRS.open ( $Qry, $sqlCon, 3, -1)".
Func RunQuery ( $Qry, $bFirstRowHasColumns = False )
Dim $sqlCon
Dim $oRS
Dim $ani1
Dim $intNbLignes
Dim $adLockOptimistic =3 ;Verrouillage optimiste, un enregistrement à la fois. Le fournisseur utilise le verrouillage optimiste et ne verrouille les enregistrements qu'à l'appel de la méthode Update.
Dim $adOpenKeyset = 1 ;Utilise un curseur à jeu de clés. Identique à un curseur dynamique mais ne permettant pas de voir les enregistrements ajoutés par d'autres utilisateurs (les enregistrements supprimés par d'autres utilisateurs ne sont pas accessibles à partir de votre Recordset). Les modifications de données effectuées par d'autres utilisateurs demeurent visibles.
Dim $Ret = ""
Dim $arConTokens = StringSplit ( $SelectedConnectionInformation, @TAB )
Dim $ServerName = $arConTokens [ 1 ]
Dim $CatalogName = $arConTokens [ 2 ]
Dim $User = $arConTokens [ 3 ]
Dim $Pwd = $arConTokens [ 4 ]
Dim $RetAr[2]
    $RetAr[0] = 0
    $sqlCon = ObjCreate("ADODB.Connection")
    if $sqlCon = 0 Then
        MsgBox(0,"","failed to create a connection object")
        Exit
    EndIf
    $oMyError = ObjEvent("AutoIt.Error","RecSetOpenError") ; Install a custom error handler
    $ani1 = GUICtrlCreateAvi ( @SystemDir & "\shell32.dll", 165, 10, 50)
    GUISetState()
    GUICtrlSetState($ani1, 1)

    if $ServerName = "." or $ServerName = "" Then
        dim $ConString = "Provider=SQLOLEDB; Data Source=.\" & $CatalogName & "; Initial Catalog=" & $CatalogName & "; User ID=" & $User & "; Password=" & $Pwd & ";"
        $sqlCon.Open($ConString)
    Else
        $sqlCon.Open("Provider=SQLOLEDB; Data Source=" & $ServerName & "\" & $CatalogName & "; Initial Catalog=" & $CatalogName & "; User ID=" & $User & "; Password=" & $Pwd & ";")
    EndIf
    GUICtrlDelete ( $ani1 )
    if $g_eventerror then Return $RetAr
    $oRS = ObjCreate ( "ADODB.Recordset" )
    if $oRS = 0 then return $RetAr
    $oRS.CursorLocation = 2 ;adUseServer
    if StringLeft ( StringLower ( $Qry ), 7 ) = "select " Then

        $oRS.open ( $Qry, $sqlCon, 3, -1)   ; adOpenStatic, lock type unspecified
        $intNbLignes = $oRS.recordCount
        if $intNbLignes > 0 Then
            $oRS.MoveFirst
            if $bFirstRowHasColumns = True Then
                for $iField = 0 to $oRS.Fields.Count - 1
                    if $iField = 0 Then
                        $RetAr [ 1 ] = $oRS.Fields.Item(0).name
                    Else
                        $RetAr [ 1 ] &= @TAB & $oRS.Fields.Item($iField).name
                    EndIf
                Next
            EndIf
            if $bFirstRowHasColumns Then
                ReDim $RetAr [ $intNbLignes + 2 ]
                $RetAr [ 0 ] = $intNbLignes + 1
            Else
                ReDim $RetAr [ $intNbLignes + 1]
                $RetAr [ 0 ] = $intNbLignes
            EndIf
            For $i = 1 To $intNbLignes
                if ControlCommand ( "SQL Server Tool", "", "[CLASS:msctls_progress32; INSTANCE:1]", "IsVisible" ) Then
                    GUICtrlSetData ( $pb, ($i * 100) / $intNbLignes )
                EndIf
                for $j = 1 to $oRS.Fields.Count
                    if $j > 1 Then
                        if $bFirstRowHasColumns Then
                            $RetAr [ $i + 1 ] &= @TAB & $oRS.Fields.Item($j - 1).value
                        Else
                            $RetAr [ $i ] &= @TAB & $oRS.Fields.Item($j - 1).value
                        EndIf
                    Else
                        if $bFirstRowHasColumns Then
                            $RetAr [ $i + 1 ] = $oRS.Fields.Item(0).value
                        Else
                            $RetAr [ $i ] = $oRS.Fields.Item(0).value
                        EndIf
                    EndIf
                Next
                $oRS.MoveNext
            Next
        EndIf
        $oRS.close
    EndIf
    Return $RetAr
EndFunc

Func RunUserQuery()
    ; check if part of the text in $txtQuery is selected
    Dim $OldClipValue = ClipGet()
    ClipPut("")
    ControlSend ( "SQL Server Tool", "", "[CLASS:Edit; INSTANCE:5]", "^c" )
    Dim $Query = ClipGet()
    ClipPut ( $OldClipValue ); restore the clipboard old value
    if StringLen ( $Query ) = 0 Then
        $Query = GUICtrlRead ( $txtQuery )
    EndIf
    Dim $arQryEditPos = ControlGetPos ( "SQL Server Tool", "", "[CLASS:Edit; INSTANCE:6]" )
    GUICtrlSetPos ( $txtQuery, 222, 33, $arQryEditPos [ 2 ], 33)
    if Not IsValidQuery ( $Query ) Then
        MsgBox(0, "SQLDBViewer", "The query" & @LF & $Query & @LF & "is not a valid query.")
        $TableData = $Query
        Return
    EndIf
    Dim $arTableData = RunQuery ( $Query, True )
    GUICtrlSetPos ( $txtQuery, 222, 16, $arQryEditPos [ 2 ], 50 )
    ; fix the listview columns
    GUICtrlDelete ( $lvTable ); it's easier to just delete and recreate the listview than to clear it and remove its columns...
    ; gather the data needed to calculate where the listview should be recreated
    Dim $arGBPos = ControlGetPos ( "SQL Server Tool", "", "[CLASS:Button; INSTANCE:6]" )
    $lvTable = GUICtrlCreateListView ( "", $arQryEditPos[0], $arQryEditPos[1] + $arQryEditPos[3] + 8, $arQryEditPos[2], $arGBPos[1] + $arGBPos[3] - $arQryEditPos[1] - $arQryEditPos[3] - 8 )
    GUICtrlSetResizing ( $lvTable, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM )
    GUISetState()  ; display the GUI including the new listview
    Dim $arCols = StringSplit ( $arTableData [ 1 ], @TAB )
    for $iCol = 1 to $arCols [ 0 ]  ; create and populate the missing column headers
        _GUICtrlListView_AddColumn ( $LVTable, $arCols [ $iCol ] )
    Next
    ; show the progressbar and resize the input control to make room for it
    GUICtrlSetState ( $pb, $GUI_SHOW )
    GUICtrlSetPos ( $pb, 222, 16, $arQryEditPos [ 2 ] - 4, 17 )
    GUICtrlSetPos ( $txtQuery, 222, 33, $arQryEditPos [ 2 ], 40 );33)

    for $iRow = 2 to UBound ( $arTableData ) - 1    ; row 1 is the column names, skip
        GUICtrlSetData ( $pb, $iRow * 100 / $arTableData [ 0 ] ); show progress
        GUICtrlCreateListViewItem ( StringReplace ( $arTableData [ $iRow ], @TAB, "|" ), $lvTable )
    Next
    ; hide the progressbar and restore the former size to the input control
    GUICtrlSetState ( $pb, $GUI_HIDE )
    GUICtrlSetPos ( $txtQuery, 222, 16, $arQryEditPos [ 2 ], 57 );50 )
    ;create the buffer that will store the data for copying to the clipboard
    $TableData = _ArrayToString ( $arTableData, @CRLF )
    $TableData = StringRight ( $TableData, StringLen ( $TableData ) - StringInStr ( $TableData, @CRLF ) + 2 )
    $TableData = GUICtrlRead ( $txtQuery ) & @CRLF & "--------------" & @CRLF & $TableData
EndFunc

Func SaveINI()
    if StringInStr ( @CRLF & $IniBuf & @CRLF, @CRLF & $SelectedConnectionInformation & @CRLF ) = 0 Then
        if StringLen ( $IniBuf ) < 8 Then
            $IniBuf = $SelectedConnectionInformation
        Else
            $IniBuf &= @CRLF & $SelectedConnectionInformation
        EndIf
    EndIf
    FileDelete( @ScriptDir & "\SQLDBViewer.ini" )
    FileWrite ( @ScriptDir & "\SQLDBViewer.ini", $IniBuf )
EndFunc

Func SetMouseCursor()
    Dim $arEdPos = ControlGetPos ( "SQL Server Tool", "", "[CLASS:Edit; INSTANCE:6]" )
    Dim $arLvPos = ControlGetPos ( "SQL Server Tool", "", "[CLASS:SysListView32; INSTANCE:1]" )
    Dim $arCursorLocation = GUIGetCursorInfo ( $FormHwnd )
    if $arCursorLocation [ 4 ] = $lblSep Then
        if $arCursorLocation [ 2 ] = 1 Then
            ; mouse left button is down
            Dim $arLblSepPos = ControlGetPos ( "SQL Server Tool", "", "[CLASS:Static; INSTANCE:6]" )
            if IsArray ( $arLblSepPos ) Then
                GUICtrlSetPos ( $lblSep, $arLblSepPos [ 0 ], $arCursorLocation [ 1 ] - 6, $arLblSepPos [ 2 ], 12 )
                GUICtrlSetPos ( $txtQuery, $arEdPos [ 0 ], $arEdPos [ 1 ], $arEdPos [ 2 ], $arCursorLocation [ 1 ] - 6 - $arEdPos [ 1 ] )
                GUICtrlSetPos ( $lvTable, $arLvPos [ 0 ], $arCursorLocation [ 1 ] + 6, $arLvPos [ 2 ], $arLvPos [ 3 ] + $arLvPos [ 1 ] - $arCursorLocation [ 1 ] + 6 )
                $SleepTimeMS = 1    ;accelerate reaction to UI changes while dragging
            Else
                ConsoleWrite("$arLblSepPos is  not an array")
            EndIf
        Else
            GUISetCursor ( 2, 0, $FormHwnd )
            $SleepTimeMS = 300 ;restore normal sleep time while updating UI etc
        EndIf
    ElseIf $arCursorLocation [ 1 ] >= $arLvPos [ 1 ] And $arCursorLocation [ 1 ] <= $arLvPos [ 1 ] + $arLvPos [ 3 ] And $arCursorLocation [ 3 ] = 1 Then
        ; right mouse button down on listview, check if that's over a listview item
        Local $hMenu = GUICtrlGetHandle ( $cm )
        ClientToScreen ( $FormHwnd, $arCursorLocation [ 0 ], $arCursorLocation [ 1 ] )
        TrackPopupMenu($FormHwnd, $hMenu, $arCursorLocation [ 0 ], $arCursorLocation [ 1 ] )
    Else
        GUISetCursor ( 2, 0, $FormHwnd )
        $SleepTimeMS = 300 ;restore normal sleep time while updating UI etc
    EndIf
EndFunc

Func ShowDBTables()
    Dim $arTableInfo = RunQuery ( "select TABLE_SCHEMA, TABLE_NAME from INFORMATION_SCHEMA.TABLES", False )
    if $arTableInfo [ 0 ] > 0 Then
        Dim $TableList = _ArrayToString ( $arTableInfo )
        $TableList = StringRight ( $TableList, StringLen ( $TableList ) - StringInStr ( $TableList, @CRLF ) - 2 );strip leading array size and CRLF
        if StringLeft ( $TableList, 1 ) = @TAB Then
            GUICtrlSetData ( $lbTables, StringReplace ( $TableList, @TAB, "" ) ); there is no schema name before the table, just display table names
        else
            GUICtrlSetData ( $lbTables, StringReplace ( $TableList, @TAB, "." ) ); the 1st column is the schema name, the tables should be of format schemaName.tableName
        EndIf
        DisplayTableListGroup ( $GUI_SHOW )
        $bCheckSelectedTable = True
        Return True
    Else
        MsgBox(0,"","No tables, or connection failed...")
        Return False
    EndIf
EndFunc

Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
    DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc