HTML et Visual BasicRésolu

Question

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="Affichage du résultat" _ & "" _ & "" _ 'Ici je voudrais mettre les données provenants de la base de données et ce 'dans une bouche While & " " _ & "" _ & "" '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

PCPT · Accepted Answer

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, "Affichage du résultat" 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, "" Close #FF WebBrowser1.Navigate (App.Path & "\index.html") End Sub ++

Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

zen69 · Answer

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]

grabatad · Answer

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 & "	est.html", vbNullString, App.Path,3 

Et voilà tout marche comme sur des roulettes.
Merci encore
Have a seat and admire the power of 01011011

HTML et Visual Basic

3 réponses

Votre réponse

Discussions similaires