HTML et Visual Basic [Résolu]

Signaler
Messages postés
16
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
2 mai 2012
-
Messages postés
16
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
2 mai 2012
-
Bonjour à la Communuaté,

Je développe depuis quelques temps en visual basic grâce à l'environnement Visual Studio 6.
Mon Problème:
J'ai des données dans une base de données que je voudrais extraire pour afficher sur une page HTML.
Sous un bouton Command, j'ai tapé ce code ayant chargé un composant WebBrowser sur la feuille:

Dim Code As String

Code="<html><head><title>Affichage du résultat</title></head>" _
            & "" _
            & "" _
            
                  'Ici je voudrais mettre les données provenants de la base de données et ce 
                  'dans une bouche While      

            & "
" _
            & "" _
            & "</html>"

'J'ouvre mon fichier en écriture puis je le ferme
Open App.Path & "\index.html" For Output As #1
Print #1, Code
Close #1

WebBrowser1.Navigate(App.Path & "\index.html")

Ok maintenant j'écris le code qui parcours une table à la recherche des tuples.

While(Not strSelect.EOF)
   strSelect.Fields("Nom"), strSelect.Fields("Nom")

   strSelect.MoveNext
Wend

Maintenant comment puis-je insérer ce bout de code dans le premier pour que ces données s'affichent sur ma page html (index.html).
Je voudrais également que la page index.html s'ouvre directement à la fin de l'éxécution du bouton Command1.J'ai pensé que WebBrowser1.Navigate(App.Path & "\index.html") ferait l'affaire mais il ne s'ouvre pas directement, je suis obligé d'aller dans mon répertoire pour l'éxécuter manuellement.
Merci pour votre réponse.
C'est du savoir et pas du bla bla bla

3 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
39
salut,

pas testé mais dans l'idée çà serait plutôt du genre :

Private Sub Form_Load()
    Dim FF As Integer: FF = FreeFile
    
    Open App.Path & "\index.html" For Output As #FF
        Print #FF, "<html><head><title>Affichage du
résultat</title></head>"
        Print #FF, ""
        Print #FF, "\"
        Print #FF, \"  ----
\"
        Print #FF, \"    NOM, \"
        Print #FF, \"    PRENOM, \"
        Print #FF, \"    TELEPHONE, \"
        Print #FF, \"  \"
            
        While (Not strSelect.EOF)
            Print #FF, \"  ----
\"
            Print #FF, \"    " & strSelect.Fields("Nom") & ", \"
            Print #FF, \"    " & strSelect.Fields("Prenom") & ", \"
            Print #FF, \"    " & strSelect.Fields("NumTel") & ", \"
            Print #FF, \"  \"
            strSelect.MoveNext
        Wend
        
        Print #FF, "
"
        Print #FF, ""
        Print #FF, "</html>"
    Close #FF
    
    WebBrowser1.Navigate (App.Path & "\index.html")
End Sub

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp  
Messages postés
584
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
29 avril 2010
1
While(Not strSelect.EOF)
   strSelect.Fields("Nom"), strSelect.Fields("Nom")

   strSelect.MoveNext
Wend

Ce bout de code me semble erroné....

Pour ce qui est de l'ouverture de la page dans ton webbrowser...

essaie donc comme ceci : "file:///" & Replace(

App.Path & "\index.html", "", "/")




<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]
Messages postés
16
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
2 mai 2012

Merci zend69 etPCPT, pour ce code. J'ai longtemps cherché comment le faire.
En fait je voudrais ajouter certains ligne pour permettre aux autres d'en profiter.

strSelect est une variable de type que je déclare de la manière suivante:

strSelect As ADODB.Recordset
Après je la crée
Set strSelect = New ADODB.Recordset
Ensuite je fouille la table dont j'ai besoin de récupérer les tuples
strSelect.Open "Select * from VentesP", strConnect, adOpenKeyset, adLockOptimistic
'Je prend le premier tuple de ma table      
strSelect.MoveFirst
Et maintenant intervient la boucle While de PCPT

Pour finir mon bouton Command1 doit ouvrir automatiquement la page html. Pour cela je mets d'abord la déclaration suivante en tête de la feuille:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

A la fin de la ligne: WebBrowser1.Navigate (App.Path & "\index.html")
je mets ceci:

 ShellExecute Me.hWnd, "open", App.Path & "\test.html", vbNullString, App.Path,3

Et voilà tout marche comme sur des roulettes.
Merci encore
Have a seat and admire the power of 01011011