Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre régulier
    Homme Profil pro
    Tech maintenance Info
    Inscrit en
    août 2009
    Messages
    191
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Tech maintenance Info
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : août 2009
    Messages : 191
    Points : 92
    Points
    92

    Par défaut HTA + VBS décalage d’affichage

    Bonjour,
    Je rencontre un problème lors de l’affichage de la requête Recordset utilisée dans ma sub showchange
    J’ai un décalage quand je clic sur un élément de mon LstClient
    Pouvez-vous m’aider ?

    Code HTA : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    <HTML>
            <HEAD>
            <TITLE> Un HTA </TITLE>
                    <HTA:APPLICATION
             ApplicationName = "SQL BBD Printers request"
             Id="SQL BBD Printers request"
                    >
       </HEAD>
    <SCRIPT language="VBScript" type="text/VBScript" >
    '------------------------------------------------------------------------------------------------------------------
     
    OPTION Explicit
    'Informations de connexion:
    'URL du serveur phpMyAdmin:
    'IP SERVEUR/localhost/locationposte/location
     
    'Requête SQL:
    'SELECT *
    'FROM location
    'WHERE ( `DefaultPrinter` LIKE '%Printer_Name%')
    'OR ( `2ndPrinter` LIKE '%Printer_Name%')
    'OR ( `3rdPrinter` LIKE '%Printer_Name%')
    'OR ( `4thPrinter` LIKE '%Printer_Name%')
    'OR ( `5thPrinter` LIKE '%Printer_Name%')
     
    'SELECT *  FROM `location` WHERE `ClientName` LIKE 'non-du-pc' ORDER BY `ClientName` ASC
     
    'Prérequis:
    'mysql-connector-odbc-8.0.14-win32.msi 
            Dim ObjConnection
            Dim ObjRecordset
            Dim StrConnectionString
            Dim ObjMySQL
            Dim StrTableName
            Dim StrColumnDefaultPrinter, StrColumn2ndPrinter, StrColumn3rdPrinter, StrColumn4thPrinter, StrColumn5thPrinter
            Dim PrinterName
            Dim strSelectedValues
            Dim i
            Dim StrColumnClientName
            Dim MsG
     
            StrTableName = "location"
            StrColumnClientName = "ClientName"
            StrColumnDefaultPrinter = "DefaultPrinter"
            StrColumn2ndPrinter = "2ndPrinter"
            StrColumn3rdPrinter = "3rdPrinter"
            StrColumn4thPrinter = "4thPrinter"
            StrColumn5thPrinter = "5thPrinter"      
     
    Sub Window_Onload()
     
        self.ResizeTo 600,600   
     
    End Sub
     
    Sub run
     
            PrinterName = TxtPrinterName.value
     
            Set ObjConnection = CreateObject("ADODB.Connection")
            Set ObjRecordset = CreateObject("ADODB.Recordset")
     
            StrConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver}; SERVER=IP-SERVEUR;PORT=3306;DATABASE=locationposte;UID=read;PASSWORD=read;OPTION=3"
     
            ObjConnection.ConnectionString = StrConnectionString
            ObjConnection.Open  
     
            ObjMySQL = "SELECT * FROM " & StrTableName & " WHERE (`" & _
                                                                            StrColumnDefaultPrinter & "` LIKE '%" & PrinterName & "%') OR (`" & _
                                                                            StrColumn2ndPrinter & "` LIKE '%" & PrinterName & "%') OR (`" & _
                                                                            StrColumn3rdPrinter & "` LIKE '%" & PrinterName & "%') OR (`" & _
                                                                            StrColumn4thPrinter & "` LIKE '%" & PrinterName & "%') OR (`" & _
                                                                            StrColumn5thPrinter & "` LIKE '%" & PrinterName & "%')"                                                                 
     
            ObjRecordset.Open ObjMySQL, ObjConnection
     
        Dim oOption, V 
        'vide la liste
        For V = LstClient.length To 0 Step -1: LstClient.Remove (V): Next
        V=0
            While Not ObjRecordset.EOF
                    'ajoute les noms à la liste 
                    Set oOption = window.Document.createElement("OPTION")
                    oOption.Text = ObjRecordset.fields("ClientName")
                    oOption.Value = "Option " & V
                    LstClient.Add (oOption)
            V = V + 1               
                    ObjRecordset.MoveNext
        Wend
     
            ObjRecordset.Close: Set ObjRecordset = Nothing
            ObjConnection.Close: Set ObjConnection = Nothing
     
        If V = 0 Then
            Set oOption = window.Document.createElement("OPTION")
            oOption.Text = "Auncune IMPRIMANTE disponnible"
            oOption.Value = V
            LstClient.Add (oOption)
            LstClient.disabled = "disabled"
            Else
            LstClient.disabled = ""
                    MsgBox V & " Client(s) trouvée(s)"
            End If
     
    End Sub 
     
    Sub showchange()
     
            Set ObjConnection = CreateObject("ADODB.Connection")
            Set ObjRecordset = CreateObject("ADODB.Recordset")
     
            StrConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver}; SERVER=172.16.23.240;PORT=3306;DATABASE=locationposte;UID=read;PASSWORD=read;OPTION=3"
     
            ObjConnection.ConnectionString = StrConnectionString
            ObjConnection.Open      
     
            ObjRecordset.Open ObjMySQL, ObjConnection
            'strSelectedValues = ""
     
            For i = 0 to (LstClient.Options.Length - 1)
                    If (LstClient.Options(i).Selected) Then
                            strSelectedValues = LstClient.Options(i).Text
                    End If
     
            ObjMySQL = "SELECT *  FROM " & StrTableName & " WHERE (`" & StrColumnClientName & "`  LIKE '%" & strSelectedValues & "%')"              
     
            Next
            'MsgBox strSelectedValues
            'MsgBox ObjMySQL
            'strSelectedValues = ""
     
            MsG = "Client: " &  ObjRecordset.Fields("ClientName") & vbNewLine & "ID: " & ObjRecordset.Fields("id")
     
            If Not IsNull(ObjRecordset.Fields(StrColumnDefaultPrinter)) Then
                    MsG = MsG & vbNewLine & "DefaultPrinter: " & ObjRecordset.Fields(StrColumnDefaultPrinter)
            End If
     
            If Not IsNull(ObjRecordset.Fields(StrColumn2ndPrinter)) Then
                    MsG = MsG & vbNewLine & "2ndPrinter: " & ObjRecordset.Fields(StrColumn2ndPrinter)
            Else
                    MsG = MsG & vbNewLine & "2ndPrinter: Null"
            End If
     
            If Not IsNull(ObjRecordset.Fields(StrColumn3rdPrinter)) Then
                    MsG = MsG & vbNewLine & "3rdPrinter: " & ObjRecordset.Fields(StrColumn3rdPrinter)
            Else
                    MsG = MsG & vbNewLine & "3rdPrinter: Null"              
            End If
     
            If Not IsNull(ObjRecordset.Fields(StrColumn4thPrinter)) Then
                    MsG = MsG & vbNewLine & "4thPrinter: " & ObjRecordset.Fields(StrColumn4thPrinter)
            Else
                    MsG = MsG & vbNewLine & "4thPrinter: Null"      
            End If
     
            If Not IsNull(ObjRecordset.Fields(StrColumn5thPrinter)) Then
                    MsG = MsG & vbNewLine & "5thPrinter: " & ObjRecordset.Fields(StrColumn5thPrinter)
            Else
                    MsG = MsG & vbNewLine & "5thPrinter: Null"                      
            End If
     
            MsgBox MsG, vbInformation, "Rapport"
     
            ObjRecordset.Close: Set ObjRecordset = Nothing
            ObjConnection.Close: Set ObjConnection = Nothing    
     
    End Sub 
     
    '------------------------------------------------------------------------------------------------------------------
     
    </SCRIPT>
            <Body>
                    <input type="text" name="TxtPrinterName" value=""></p>
                    <input id=runbutton  class="button" type="button" value="GO" onClick="run"><p>
                    <select name="LstClient" id="LstClient" disabled="disabled" size=5 onclick="showchange"><p>
                    <option value="LstClient">Client Name </option>
                    </select><p>
       </Body>
    </HTML>
    Si vous avez une idée pour améliorer l’affichage de l’ensemble je suis preneur.
    Sous PHPmyAdmin c’est une sorte de tableau !

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 260
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 260
    Points : 5 366
    Points
    5 366

    Par défaut

    Qu'en est-il si tu modifies les lignes 117 à 127 comme ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    'strSelectedValues = "" 
       For i = 0 to (LstClient.Options.Length - 1)
        If (LstClient.Options(i).Selected) Then
            strSelectedValues = LstClient.Options(i).Text
            Exit For ' <==  ceci est nécessaire pour conserver la valeur trouvée
        End If
        Next
        ObjMySQL = "SELECT *  FROM " & StrTableName & " WHERE (`" & StrColumnClientName & "`  LIKE '%" & strSelectedValues & "%')"        
        ObjRecordset.Open ObjMySQL, ObjConnection
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Membre régulier
    Homme Profil pro
    Tech maintenance Info
    Inscrit en
    août 2009
    Messages
    191
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Tech maintenance Info
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : août 2009
    Messages : 191
    Points : 92
    Points
    92

    Par défaut

    Citation Envoyé par l_autodidacte Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Exit For ' <==  ceci est nécessaire pour conserver la valeur trouvée
    Mais biensur, si je ne sors pas de la boucle !
    Merci
    Et pour ce qui est d’améliorer l’affichage une idée ? (a la place des mes MsgBox).
    J’ai vu que certain utilisait un "tableau", mais je n’ai pas saisi la mise en œuvre

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 260
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 260
    Points : 5 366
    Points
    5 366

    Par défaut

    Ajoute dans la partie <body> </body> une entrée telle que : <input type="text" name="txtAffiche" ID="txtAffiche" value="" style="width=400;height=200;">.
    Puis dans la Sub ShowChange, remplace la ligne 162 par document.getElementById("txtAffiche").Value = MsG
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  5. #5
    Membre régulier
    Homme Profil pro
    Tech maintenance Info
    Inscrit en
    août 2009
    Messages
    191
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Tech maintenance Info
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : août 2009
    Messages : 191
    Points : 92
    Points
    92

    Par défaut

    Merci
    Mes retours a la ligne ne sont pas conservés, comme sur les MsgBox !

  6. #6
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 260
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 260
    Points : 5 366
    Points
    5 366

    Par défaut

    Remplace <input type="text" name="txtAffiche" ID="txtAffiche" value="" style="width=400;height=200;">,

    par <TEXTAREA name="txtAffiche" id="txtAffiche" value="" Rows="15" Cols="80"></TEXTAREA>.

    Modifie par la suite ROWS et COLS selon ton besoin.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  7. #7
    Membre régulier
    Homme Profil pro
    Tech maintenance Info
    Inscrit en
    août 2009
    Messages
    191
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Tech maintenance Info
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : août 2009
    Messages : 191
    Points : 92
    Points
    92

    Par défaut

    Super merci a toi!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [HTA/VBS] Mettre un bouton par defaut
    Par bigfoot75 dans le forum VBScript
    Réponses: 6
    Dernier message: 04/01/2018, 15h20
  2. Réponses: 1
    Dernier message: 19/08/2014, 16h56
  3. [HTA-VBS-HTML] Utiliser hta à partir du web.
    Par positrons dans le forum VBScript
    Réponses: 2
    Dernier message: 17/05/2014, 21h41
  4. Insérer des paramètres dans une liste [HTA + VBS]
    Par Cristalinz dans le forum VBScript
    Réponses: 2
    Dernier message: 15/11/2013, 10h05
  5. [HTA/VBS] inputbox cryptée
    Par bigfoot75 dans le forum VBScript
    Réponses: 4
    Dernier message: 28/10/2009, 14h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo