AutoIt Français

Code : Tout sélectionner

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Documents and Settings\*******\Bureau\gné.au3" /autoit3dir "C:\Program Files\AutoIt3" /UserParams    
+>15:33:51 Starting AutoIt3Wrapper v.1.10.1.13    Environment(Language:040C  Keyboard:0000040C  OS:WIN_XP/Service Pack 2  CPU:X86  ANSI)
>Running AU3Check (1.54.13.0)  from:C:\Program Files\AutoIt3
+>15:33:51 AU3Check ended.rc:0
>Running:(3.2.12.1):C:\Program Files\AutoIt3\autoit3.exe "C:\Documents and Settings\*******\Bureau\gné.au3"    
Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=C:\trombidb.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
TABLE_TYPE
TABLE_GUID
DESCRIPTION
TABLE_PROPID
DATE_CREATED
DATE_MODIFIED
Table name: tb_Fonctions Table type: TABLE
Table name: tb_Personnes Table type: TABLE
Table name: tb_Services Table type: TABLE
+>15:33:52 AutoIT3.exe ended.rc:0
+>15:33:53 AutoIt3Wrapper Finished
>Exit code: 0    Time: 1.889

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Global Const $adoProvider = 'Microsoft.Jet.OLEDB.4.0'
Global Const $adSchemaTables = 20

Global $o_MyError = ObjEvent("AutoIt.Error", "_MY_AU3_ErrFunc"), $n_MyError = 0

Global $bdd = "C:\trombidb.mdb"
Global $oConn = _ADO_Open($bdd)
ConsoleWrite($oConn.ConnectionString & @LF)

Global $oRS = ObjCreate("ADODB.Recordset")
$oRS = $oConn.OpenSchema($adSchemaTables)
For $i = 0 To $oRS.Fields.Count - 1
    ConsoleWrite($oRS.Fields($i).Name & @LF)
Next
While Not $oRS.EOF
    If $oRS.Fields("TABLE_TYPE" ).Value = "TABLE" Then
        ConsoleWrite("Table name: " & _
                $oRS.Fields("TABLE_NAME" ).Value & _
                " Table type: " & $oRS.Fields("TABLE_TYPE" ).Value & @LF)
    EndIf
    $oRS.MoveNext
WEnd
$oRS.Close
$oConn.Close

Func _ADO_Open($base, $driver = "", $serveur = "", $user = "", $pwd = "")
    Local $oConn = ObjCreate("ADODB.Connection")
    With $oConn
        Switch StringLower($driver)
            Case "excel"
                .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & $base
                .Open
            Case "text"
                .ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & $base & ";Extensions=tab;Extended Properties=TEXT"
                .Open
            Case "mssql"
                .ConnectionString = "driver={SQL Server};server=" & $serveur & ";db=" & $base & ";user id=" & $user & ";pwd=" & $pwd & ";option=16386"
                .Open
            Case Else
                .Provider = $adoProvider
                .Open($base, $user, $pwd)
        EndSwitch
    EndWith
    Return $oConn
EndFunc   ;==>_ADO_Open

Func _MY_AU3_ErrFunc()
    Local $Msg
    $Msg = MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $o_MyError.description & @CRLF & _
            "err.windescription:" & @TAB & $o_MyError.windescription & @CRLF & _
            "err.number is: " & @TAB & Hex($o_MyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $o_MyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $o_MyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $o_MyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $o_MyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $o_MyError.helpcontext _
            )
    Local $n = $o_MyError.number
    If $n = 0 Then $n = -1
    $n_MyError = $n ; to check for after this function returns
    If $Msg <> 6 Then Exit
EndFunc   ;==>_MY_AU3_ErrFunc

;=====================================

Global Const $adOpenStatic = 3
Global Const $adLockOptimistic = 3
Global $rec = InputBox("Recherche", "Rechercher un nom")
Global $WHERE = " WHERE Nom like '" & $rec & "%'"; commence par
Global $SQL = " SELECT Nom, Prenom, Service, Fonction, NumTel1, NumTel2 " & _
        "FROM (tb_Personnes INNER JOIN tb_Services ON tb_Personnes.Service_id=tb_Services.Service_id) " & _
        "INNER JOIN tb_Fonctions ON tb_Personnes.Fonction_id=tb_Fonctions.Fonction_id"
$oRS = ObjCreate("ADODB.Recordset")
$oRS.Open($SQL & $WHERE, $oConn, $adOpenStatic, $adLockOptimistic)
If $oRS.EOF Then
    ConsoleWrite("Aucun enregistrement dans la table" & @LF)
Else
    ConsoleWrite($oRS.RecordCount & " enregistrement dans la table" & @LF)
    For $Field In $oRS.Fields
        ConsoleWrite($Field.Name & @TAB)
    Next
    ConsoleWrite(@LF)
    While Not $oRS.EOF
        For $Field In $oRS.Fields
            ConsoleWrite($Field.Value & @TAB)
        Next
        ConsoleWrite(@LF)
        $oRS.MoveNext
    WEnd
EndIf
$oRS.Close
;à utiliser comme ca:
$oRS.Open($SQL, $oConn, $adOpenStatic, $adLockOptimistic)