Hvordan hente data fra SQL og websider

[????????]

Hei,

hvordan henter jeg data fra en SQL database og websider med Visua Basic?

[Jonas]

Tror du må laste med infoen (fila) og gjøre tingene lokalt. For å laste ned ting bruker du denne koden:

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub form_load()
URLDownloadToFile 0, "http://www.vg.no/index.html", "c:\fil.sys", 0, 0
End Sub

Får å åpne filen og putte det i en tekst boks kan du bruke denne her:

Open "c:/klan-melding.txt" For Input As #1

Do While Not EOF(1)
   Text1.Text = Text1.Text & Input(1, #1)
   
Loop

Close #1

 

Edit: du ser Declare Function i den øverste delen? Alle Declare Function's skal alltid være i toppen av koden.

 

Edit2: Hvis du er ny på vb kan du lese aadnk og min guide.

Endret 4. mai 2004 av Jonas