Sti til ftp ?

Alså ftp://user:password@ip.dk/db.mdb fx :)

Hvad skal du have hjælp til - at hente en fil, eller har du styr på det, men mangler hjælp til at bruge stien i textboxen?

Det der er problemet er af jeg kan godt hente den over lan fx \\host\hej\db.mdb men ville gerne kunne gøre det over FTP ...

Og vil du bruge en kontrol fra VB til at FTP'e, eller vil du kalde et andet FTP program via shell?

Kan du måske være lidt (meget) mere konkret?

Jeg har en sti som jeg bruger til at skifte imellem databaserne dem henter jeg så i en anden form !..
Men jeg vil gerne have så jeg kan hente en database igennem en ftp som jeg os kan fra lan af ...  kontrol fra VB til at FTP'e tror jeg at det skal være

Brug en Internet Transfer Control (Inet)

  With Inet1
      .Cancel
      .Protocol = icFTP
      .URL = text1.text
      .UserName = text2.text
      .Password = text3.text
      .Execute , "GET " & text4.text
  End With

Text1 indeholder ftp-adresse
text2 indeholder brugerid
text3 indeholder brugerPW
text4 indeholder filnavnet på den fil du vil hente

Der er masser af hjælp og eksempler på

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnexpvb/html/addinginternettransfercontrol.asp

Brug menuen til venstre, og ses f.eks. på "Issuing FTP Commands"

Hmm :/ Det første var lavet i en inputbox :/

Hvad?

er det så ikke bare:

msgbox inet1.url

Du taler sort...

ha ha ja det ved jeg.. :D

prøv sådan:


Option Explicit

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
Dim strURL As String
  strURL = StrConv(Text1.Text, vbUnicode)
  Call DoFileDownload(strURL)
End Sub

Private Sub Form_Load()
  Text1.Text = "ftp://user:password@ip.dk/dir/db.mdb"
End Sub

Taler jeg sort ???
har har stien til min db database her:

Dim strSvar As String
    ' variablen strSvar er det samme som inputboxen
strSvar = InputBox("Skriv stien til databasen du vil åbne:", "Vælg database", "\\Projektserver\wwwroot\db2.mdb")
    'start if blok. hvis der ikke står noget i tekstfeltet så skal den gøre nedstående
If strSvar = "" Then
    'afslut programmet
End
    'ellers (hvis der står noget i tekstfeltet) skal den gøre nedstående
Else
    'sæt stien til data1's database til det samme som brugeren indtaster
Data1.DatabaseName = strSvar
    'genopfrisk data1
Data1.Refresh
    'fjern alt fra list1-boxen
List1.Clear
    'gå til sidste i databasen
Data1.Recordset.MoveLast
    'label9's captíon viser hvordan list1-boxens indhold er sorteret
Label9.Caption = "Sorteret efter - Vare nr. - Varenavn - Pris - Varebeskrivelse"
    'gå til første i databasen
Data1.Recordset.MoveFirst
    'udfør loopet fra start af databasen til slut
For i = 0 To Data1.Recordset.RecordCount
    'udfør så længe den ikke er nået til EOF (end of file)
Do While Data1.Recordset.EOF = False
    'tilføj item til list1-boxen (eks. Data1.Recordset("beskrivelse") tilføjer kolonnen beskrivelse)
List1.AddItem "Vare nr. " & Data1.Recordset("id") & " - " & Data1.Recordset("vare") & " - " & Data1.Recordset("pris") & " kr. - " & Data1.Recordset("beskrivelse")
    'gå til næste i databasen
Data1.Recordset.MoveNext
    'gentager handlingen (looper)
Loop
    'gå til næste
Next
    'gå til første i databasen
Data1.Recordset.MoveFirst
    'slut if blok
End If

Tror jeg springer fra ...

dj-hupi det tror jeg ikke man kan med Access, du skal nok over i noget SQL-server da Access jo bare er en file og ikke et program.

ellers skal du dovnloade den først, men det kan man ikke bruge til noget for du skal jo også uploade den igen hvis der er ændret i den :(

sjh ja det var det jeg var bange for :(

Du kan jo også bruge ODBC DNS, men kun hvis det er på egen server, da din ubyder nok ikke vil tilføje en ODBC DNS kun til dig.

http://www.gamarod.com.ar/articulos/articulos.asp?id=110

Det var faktisk en god idee det der !...
Kunne være jeg skulle prøve det når jeg kommer hjem  :)

Tak sjh.. du var den som kom med det bedste bud ...

Hvis jeg var dig så ville jeg bruge MySQL til det, så kan det kun blive godt :-)

vil du ikke have nogle af dine point igen.. 30 point er vist mere en rigelig for det svar jeg er kommet med..

Hehe ved ikke lige om det bliver MySQL eller SQL ;) Har jo lavet en hjemmeside i ASP såå skal ikke lave det hele om ;)
Nej behold den bare har massere af dem ;)

Aha hvis du også roder med ASP så må det da lige være sagen med MySQL den er hurtig og du kan hente den gratis :)

Så siger jeg da mange tak for point :)