Hjælp til at lave en html side i visual basic

hvad er det lige problemet er?? er det at du ikke kan finde ud af html eller hvad?? har du noget database til dine data som du skal ha lavet til html?? eller hvordan gør du?? :D

prøv at beskrive ledt om det du har lavet..

Jeg har to databaser i mit program en med oplysninger på de ansatte og på ejeren af firmaet og så har jeg en på de penge de har indkørt og jo kan godt lidt html men jeg skal ha lavet en lønseddel som når jeg trykker på print lønseddel i mit program skal åbne en side i internet explorer og vise min lønseddel der, og så skal den kunne printes ud derfra men den skal jo kunne lave hele regne arbejdet i visual basic eller i internet explorer. lige nu overfører jeg bare tallene til et regneark og så laver excel hele regnearbejdet. Problemet er at jeg skal kunne bruge programmet uden at have office instelleret. jeg ved heller ikke om det kan lade sig gøre at lave hele html koden i Visual Basic.

Hej.

Jeg er enig med sjh.  Du må komme frem til det konkrete problem.  Hvis ikke du kan forstå og skrive html-tags, skal det også læres forinden.  Jeg har i foråret lavet et program, der kan danne en hjemmeside over vagtplaner ud fra data-base oplysninger, der i øvrigt håndteres af et VB5-program.
Se http://jkfsoft.dk/staevne0.htm  Den hjemmeside der dannes kan ses på http://jkfsoft.dk/hol_cup00.htm

Kildeteksten til den knap der danner hjemmesiden står nedenfor.  Du kan lade dig inspirere, men alle variabler ect. skal selvfølgelig være nogle andre.  Mine data kommer ikke fra Access eller anden database men fra ascii-filer.

Private Sub knnyhtm_Click()
  If Len(txthtmfil.Text) < 1 Then
      X = MsgBox("Du skal angive eller vælge (i listen) et navn til den html-fil, du vil danne.", 48, "Medd. fra 'Dan ny html-fil'.")
      Exit Sub
  End If
 
  If Val(txttil.Text) > lstresu.ListCount - 1 Then txttil.Text = "22"
  If Len(txtfra.Text) = 0 Then txtfra.Text = "0"
  If Len(txttil.Text) = 0 Then txttil.Text = "3"
     
  Open htmsti & "vagtplan.1" For Input As #9
    htmet = Input(FileLen(htmsti & "vagtplan.1"), 9)
  Close #9
  Open htmsti & "vagtplan.3" For Input As #9
    htmtre = Input(FileLen(htmsti & "vagtplan.3"), 9)
  Close #9
   
  If comugedag.ListIndex < 0 Then
        udg = 4
      Else
        udg = comugedag.ListIndex + 1
  End If
  adg = Val(txtantdg.Text)
       
  'MsgBox ("udg = " & udg & " adg  = " & adg)
     
  Erase hj
  afstand = 0
  lsthtm.Clear
  For sk = Val(txtfra.Text) To Val(txttil.Text)
  'hj(afstand) = "<tr><td rowspan= 4 align=center><h4>" & Left(skole(sk), Len(skole(sk)) - 3) & "</td>"
  hj(afstand) = "<tr><td rowspan= """ & adg & """ align=center><h4>" & Left(skole(sk), Len(skole(sk)) - 3) & "</td>"
      For j = udg To adg + udg - 1
        If j > 4 Then
              hj(afstand + 1) = "<tr><td align=center width=80><h4>" & ugedagen(j) & "</td>"
            Else
              hj(afstand + 1) = "<td align=center width=80><h4>" & ugedagen(j) & "</td>"
        End If
       
        navn = ""
        For h = 0 To lstperson.ListCount - 1
          If vagt(sk, j, 0) = hvem(h, 0) Then navn = Left(hvem(h, 1), 10)
        Next h
        If Len(vagt(sk, j, 0)) > 0 Then If Len(navn) = 0 Then navn = vagt(sk, j, 0)
        hj(afstand + 3) = "<td width=85 align=center><h5>" & navn & "</td>"
        If vagt(sk, j, 0) = "Ej nødv." Then hj(afstand + 3) = "<td width=85 bgcolor=#009900></td>"
                 
        navn = ""
        For h = 0 To lstperson.ListCount - 1
          If vagt(sk, j, 1) = hvem(h, 0) Then navn = Left(hvem(h, 1), 10)
        Next h
        If Len(vagt(sk, j, 1)) > 0 Then If Len(navn) = 0 Then navn = vagt(sk, j, 1)
        hj(afstand + 4) = "<td width=85 align=center><h5>" & navn & "</td>"
        If vagt(sk, j, 1) = "Ej nødv." Then hj(afstand + 4) = "<td width=85 bgcolor=#009900></td>"
       
        navn = ""
        For h = 0 To lstperson.ListCount - 1
          If vagt(sk, j, 2) = hvem(h, 0) Then navn = Left(hvem(h, 1), 10)
        Next h
        If Len(vagt(sk, j, 2)) > 0 Then If Len(navn) = 0 Then navn = vagt(sk, j, 2)
        hj(afstand + 5) = "<td width=85 align=center><h5>" & navn & "</td>"
        If vagt(sk, j, 2) = "Ej nødv." Then hj(afstand + 5) = "<td width=85 bgcolor=#009900></td>"
       
        navn = ""
        For h = 0 To lstperson.ListCount - 1
          If vagt(sk, j, 3) = hvem(h, 0) Then navn = Left(hvem(h, 1), 10)
        Next h
        If Len(vagt(sk, j, 3)) > 0 Then If Len(navn) = 0 Then navn = vagt(sk, j, 3)
        hj(afstand + 6) = "<td width=85 align=center><h5>" & navn & "</td>"
        If vagt(sk, j, 3) = "Ej nødv." Then hj(afstand + 6) = "<td width=85 bgcolor=#009900></td>"
       
        navn = ""
        For h = 0 To lstperson.ListCount - 1
          If vagt(sk, j, 4) = hvem(h, 0) Then navn = Left(hvem(h, 1), 10)
        Next h
        If Len(vagt(sk, j, 4)) > 0 Then If Len(navn) = 0 Then navn = vagt(sk, j, 4)
        hj(afstand + 7) = "<td width=85 align=center><h5>" & navn & "</td>"
        If vagt(sk, j, 4) = "Ej nødv." Then hj(afstand + 7) = "<td width=85 bgcolor=#009900></td>"
       
        navn = ""
        For h = 0 To lstperson.ListCount - 1
          If vagt(sk, j, 5) = hvem(h, 0) Then navn = Left(hvem(h, 1), 10)
        Next h
        If Len(vagt(sk, j, 5)) > 0 Then If Len(navn) = 0 Then navn = vagt(sk, j, 5)
        hj(afstand + 8) = "<td width=85 align=center><h5>" & navn & "</td>"
        If vagt(sk, j, 5) = "Ej nødv." Then hj(afstand + 8) = "<td width=85 bgcolor=#009900></td>"
       
        navn = ""
        For h = 0 To lstperson.ListCount - 1
          If vagt(sk, j, 6) = hvem(h, 0) Then navn = Left(hvem(h, 1), 10)
        Next h
        If Len(vagt(sk, j, 6)) > 0 Then If Len(navn) = 0 Then navn = vagt(sk, j, 6)
        hj(afstand + 9) = "<td width=85 align=center><h5>" & navn & "</td>"
        If vagt(sk, j, 6) = "Ej nødv." Then hj(afstand + 9) = "<td width=85 bgcolor=#009900></td>"
       
        navn = ""
        For h = 0 To lstperson.ListCount - 1
          If vagt(sk, j, 7) = hvem(h, 0) Then navn = Left(hvem(h, 1), 10)
        Next h
        If Len(vagt(sk, j, 7)) > 0 Then If Len(navn) = 0 Then navn = vagt(sk, j, 7)
        hj(afstand + 10) = "<td width=85 align=center><h5>" & navn & "</td>"
        If vagt(sk, j, 7) = "Ej nødv." Then hj(afstand + 10) = "<td width=85 bgcolor=#009900></td>"
       
        hj(afstand + 11) = "</tr>"
        hj(afstand + 12) = " "
        afstand = afstand + 12
         
      Next j
  Next sk
       
  For j = 0 To afstand
    lsthtm.AddItem hj(j)
  Next j
  lablinier.Caption = lsthtm.ListCount
     
  If Len(txthtmfil.Text) = 0 Then
        filnavn = "tilmig00.htm"
      Else
        filnavn = txthtmfil.Text & ".htm"
  End If
 
  hj(afstand + 1) = "</tr></table>"
  hj(afstand + 2) = "<br>"
  '------ bespisning -----------------------
  hj(afstand + 3) = "<table width=900 border=1>"
  hj(afstand + 4) = "<tr><td colspan=3><h2> Antal hjælpere der mangler på spisevagter </td>"
  hj(afstand + 5) = "<td colspan=2><h4> Morgen 05:00-10:00 - Aften 15:30-22:00 </td></tr>"
  hj(afstand + 6) = "<tr><td width=180><h4>" & v3 - vp3(5) & " Morgenmad fredag </td>"
  hj(afstand + 7) = "<td width=180><h4>" & v4 - vp4(5) & " Aftensmad fredag </td>"
  hj(afstand + 8) = "<td width=180><h4> Morgenmad lørd. " & v3 - vp3(6) & "</td>"
  hj(afstand + 9) = "<td width=180><h4> Aftensmad lørd. " & v4 - vp4(6) & "</td>"
  hj(afstand + 10) = "<td width=180><h4> Morgenmad sønd. " & v3 - vp3(7) & "</td>"
 
  hj(afstand + 11) = "</tr></table>"
  '------ bespisning slut ------------------
 
  hj(afstand + 12) = "<table width=900 border=0>"
  hj(afstand + 13) = "<td  width=200 align=center><h3>Rev. " & Format(Now, "dd-mm-yyyy hh:mm") & "<br>"

  lnkh = txthtmlnk.Text & ".htm"
 
  Open htmsti & filnavn For Output As #11
      Print #11, htmet
      Print #11, "<tr><td colspan=2 align=center><A Href=""" & lnkv & """><img src="" pilvenst.gif ""><font size=4> Forrige side </a></td>"
      Print #11, "<td colspan=6 align=center><font size=4>Ajourført senest " & Format(Now, "dd-mm-yyyy hh:mm") & "</td>"
      Print #11, "<td colspan=2 align=center><A Href=""" & lnkh & """><font size=4> Næste side <img src="" pilhojre.gif ""></a></td ></tr>"
      For j = 0 To afstand + 13
        Print #11, hj(j)
      Next j
      Print #11, htmtre
  Close #11
 
  filehtm.Refresh
  lnkv = filnavn
  til = Val(txttil.Text) + Val(txttil.Text) - Val(txtfra.Text)
  txtfra.Text = Val(txttil.Text) + 1
  txttil.Text = til + 1
  If til + 1 > lstresu.ListCount - 1 Then txttil.Text = lstresu.ListCount - 1
  txthtmlnk_Click
End Sub

M.v.h. Jørn

Hej Rusti.

Du har skrevet, mens jeg også gjorde det.  Så dit indlæg nr. 2 ser jeg først nu.

Hvorfor bruge HTML for at få lønsedlen udskrevet?  Idéen med et html-dokument må vel være, at det kan ses på internettet?  Du kan da udskrive fra Excel eller fra et VB-program du konstruerer.  Hvorfor må Office-suiten ikke være installeret?

M.v.h. Jørn

Office-suiten må også gerne være installeret men dem jeg laver det til er ikke ret gode til computere og nogle af dem har ikke office installeret og så mener jeg at det er nemmere at lave det så det ikke skal bruge office. kan man lave det i visual basic så den bare udskriver lønseddlen når man trykker på udskriv. er det også ok med mig men det ville også være dejligt hvis de kan gemme lønseddlerne til senere brug. Jeg har lidt svært ved at komme igang med at lave det da jeg ikke ved hvad jeg skal gører for at opbygge lønseddlen i visual basic eller i html fordi den skal kunne bruge nogle tal og data fra mine databaser og lægge dem på bestemte pladser på min lønseddel. Men hvis du kan hjælpe mig med at komme igang ved at se programmet er jeg villig til at sende det til dig så du kan se hvad det drejer sig om.

Hej.

Hvilken udgave af Visual Basic råder du over?  Jeg håber ikke, det er den misforståelse, at det kun er VBA!
Med VB i pro- eller enterprise-udgaver kan du anvende Crystal Reports, når data indlæses fra f.eks. Access.  Det med HTML skal du ikke ind på, det giver kun mening, hvis det skal være tilgængeligt over internet.

Det vil ikke (med en rigtig VB) være noget problem at gemme de færdige lønsedler som selvstændige filer eller som dele af en større fil.
Også uden Crystal Reports kan man få VB til at udskrive data fra baser og beregninger.  Hvor megen tid kan du bruge på opgaven, og skal du først til at lære Visual Basic i denne forbindelse?
 

Jeg vil ikke gå ind i dit projekt for point på 'Eksperten'.  Se http://jkfsoft.dk/kravspec.htm og http://jkfsoft.dk/beting.htm 

M.v.h. Jørn

Jeg har visual basic 6.0 enterprise edition.
Jeg har alt den tid det tager at lave det og nej jeg skal ikke først til at lære Visual Basic men jeg er ikke nogen stor haj til at programmere men vil gerne lære det bedre at kende. Hvis du skal hjælpe hvad skal du så have for det. jeg kan godt selv lave det men jeg skal bare lige se lidt af det der skal skrives for at vide nogen lunde hvordan jeg skal opbygge min lønseddel og få den til at regne de steder hvor det er nødvendigt ud fra de tal den henter i databasen.

jeg har siddet og kigget lidt på det. Det eneste jeg kan er at jeg kan oprette en Data Report er det, det du mener jeg skal bruge

har lige fundet ud af at jeg også har Crystal Reports

Hej Rusti.

Jeg har kigget lidt på de spørgsmål, du tidligere har stillet og de spørgsmål, du har svaret på.  Dette har jeg gjort for at få et indtryk af, hvilke VB-problemer du tidligere har deltaget i tråde om.

I denne tråd har været ét indlæg fra sjh, hvilket betyder at han har fået en mail for hvert af vore indlæg - med mindre han har fjernet fluebenet i 'Abonnér'.  Ellers er det kun dig og mig, og nye vil ikke komme til, når de har slettet den allerførste mail om tråden.

Jeg skriver dette fordi 'eksperten' jo lægger op til, at en spørger kan få råd fra mange sider, når spørgsmålet ellers er konkret og formuleret så et svar kan give mening.

Som jeg skriver på de 2 sites, jeg linker til d. 9. 16:59, så kan jeg muligvis gå ind i en opgave mod betaling.  Det skal ikke drøftes her.  Du kan sende et brev med beskrivelsen af din opgave til min adresse, den står på hjemmesiderne.  Så skal jeg svare dig.

M.v.h.  Jørn

Oki det er bare iorden takker

slut