Ανανέωση ιστοσελίδας

[Meteora]

Καλημέρα σε όλους μας !
Ψάχνοντας τις τελευταίες ημέρες για υλικό σχετικά με αρχεία XML, πρωτόκολλα μεταφοράς αρχείων (ftp), για υπολογιστές client και για server, δεν σας κρύβω οτι γνώρισα ένα νέο ψηφιακό περιβάλλον, εξαιρετικά ενδιαφέρον ...
Ευτυχώς για μένα που οι "Σελίδες στα Ελληνικά" είναι υπέρ-αρκετές !
Βέβαια ερωτήσεις υπάρχουν και επομένως η προσπάθειά μου συνεχίζεται.
Να θέσω λοιπόν ένα ερώτημα.
Ένας υπολογιστής που ειναι συνδεδεμένος στον ιστό και που 'τρέχει' μια εφαρμογή Access, πως θα ανεβάσει κάποιο αρχείο (*,XML , *.xls ) σε μια θέση (φάκελο) ενός ftp server ; ( Μεταφορά μέσα απο κώδικα ενσωματωμένο στην εφαρμογή, η οποία δημιουργεί τα προς μεταφορά αρχεία)

Με εκτίμηση / Νίκος Δ.

ΥΣ Γνωρίζω οτι αυτό που ζητάω μπορεί να το κάνει η Access. Αλλά δεν έχω ιδέα πως. Επιπλέον, αν η απάντηση σε αυτό το ερώτημα απαιτεί σημαντικό χρόνο, με αρκεί ως απάντηση το "ξεφεύγει απο τις υποχρεώσεις ή επιδιώξεις των μελών αυτού του Forum ή ..."

[editolis]

Αγαπητε Φιλε Νικο,

Θα σου δωσω Γενικες απαντησεις και οχι εξειδικευμενες σε αυτο που ζητας.

Για να κατεβασουμε ενα XML αρχειο σε καποιον πινακα της ACCESS χρησιμοποιουμε τον εξης κωδικα:

Δημιουργουμε ενα κουμπι εντολης και στο κλικ:

On Error Resume Next

Const acAppendData = 2

Application.ImportXML Me.XMLFileLink, acAppendData



Me.Requery

  

  Dim db As Database, rs As Recordset

  Set db = CurrentDb



  Set rs = db.OpenRecordset("Quotes", dbOpenDynaset)



  rs.MoveLast

  MsgBox "Quote: " & rs!QuoteOfTheDay, vbOKOnly, "Author: " & rs!Author

  rs.Close: db.Close




 

Το Me.XMLFileLink ειναι απο πεδιο της φορμας σου π.χ.:
 

XMLFileLink = "http://swanandmokashi.com/HomePage/WebServices/QuoteOfTheDay.asmx/GetQuote"
 
 

==================================================  =============
 
 

Για FTP εχω ενα κωδικα που μπορει να τροποποιηθει καταληλα απο καποιον πιο εμπειρο χρηστη απο εμενα σε αυτο το θεμα.
 
 

Function FtpSend()

Dim vPath As String

Dim vFile As String

Dim vFTPServ As String

Dim fNum As Long
 

'vPath = "PATH OF WHERE TO STORE THE DOS COMMANDS IN A .TXT FILE" (for example: "c:")

vPath = "c:"

'vFile = "FULL PATH OF FILE TO SEND"

vFile = "C:\test.txt"

vFTPServ = "http://www.test.com/#"
 

'Mounting file command for ftp.exe

fNum = FreeFile()

Open vPath & "\FtpComm.txt" For Output As #fNum

Print #1, "USER UsernameHere" ' your login name

Print #1, "PasswordHere" ' your password

Print #1, "put " & vFile ' upload local filename to server file

Print #1, "close" ' close connection

Print #1, "quit" ' Quit ftp program

Close
 

Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus
 

End Function
        

[Meteora]

Καλησπέρα!
Αγαπητέ Τόλη, εκτιμώ ιδιαίτερα τη θέλησή σου να βοηθήσεις άμεσα εμένα και έμμεσα τα μέλη & επισκέπτες της κοινότητας, που θα ήθελαν να έχουν πληροφόρηση σχετική με το θέμα της συζήτησης.
Θα μελετήσω/δοκιμάσω το υλικό (στο πρώτο τμήμα ελπίζω με επιτυχία), οπότε τα ξαναλέμε...
Σε ευχαριστώ
Φιλικά / Νίκος Δ.

[Tasos]

Καλησπέρα σε όλους!
Για ανέβασμα αρχείου σε FTP Server, εγώ προσωπικά χρησιμοποιώ Συναρτήσεις API των Windows.

Στο συνημμένο περιέχει ένα παράδειγμα που περιέχει:

• Έναν απλό Browser (Internet Explorer Object) που εμφανίζει συγκεκριμένο φάκελο του κάθε φορά του FTP

• Λειτουργία μεταφοράς αρχείων (Upload) στον FTP.

Για να το δοκιμάσετε, θα πρέπει να διαθέτετε FTP.

Συνήθως οι διαφοροι διακομιστές πχ. ο Otenet, προσφέρουν δωρεάν WEB χώρο στους συνδρομητές τους.
Στο συνημμένο αρχείο στη φόρμα "frmFTP", συμπληρώστε τα στοιχεία που χρειάζονται και πατήστε "Browse Ftp".
Κάποιοι Servers δεν θα επιτρέψουν την αυτοματοποιημένη αίτηση σύνδεσης που στέλνει η εφαρμογή.

Στην περίπτωση αυτή, θα χρειαστεί να ξαναδώσετε τον κωδικό σας
σε ειδικό παράθυρο διαλόγου που θα εμφανιστεί (Λειτουργία σύνδεσης χρήστη - Internet Explorer)
για να συνδεθείτε και αν θελήσετε, να αποθηκεύσετε τα στοιχεία σύνδεσης σας.

Μ αυτό τον τρόπο βλέπετε τα περιεχόμενα του φακέλου που έχετε καθορίσει σε πεδίο της φόρμας.

Μπορείτε να μεταφέρετε κάποιο αρχείο στον FTP χρησιμοποιώντας
είτε τα κουμπιά στη φόρμα είτε με Drag & Drop από τον Windows Explorer στον "Ftp Browser" της φόρμας.

Φιλικά

Τάσος

[Meteora]

Καλησπέρα στην κοινότητα !

Δοκιμάσαμε με τον Τάσο την εφαρμογή που ανέβασε στο Forum ο ίδιος , σχετικά με τη διακίνηση αρχείων μεταξύ υπολογιστών/πελατών και του ftpServer του ΟΤΕ users.otenet.gr, με αποτέλεσμα να γίνουν κάποιες αλλαγές στον κώδικα της εφαρμογής. Όσοι (-ες) λοιπόν κάνετε χρήση του παραπάνω ftpServer, δείτε την νέα έκδοση της εφαρμογής. (Στη προηγούμενη ενότητα ο Τάσος αντικατέστησε την παλαιά έκδοση !).
Το θέμα δεν κλείνει εδώ. Θα δοκιμάσω τον κώδικα που ανέβασε ο Τόλης, οπότε τα ξαναλέμε...
Να ευχαριστήσω το φίλο μου Τάσο για την συνεχή του προσφορά γνώσεων και όχι ..μόνο προς εμένα με την ευχή να είναι πάντα αυτός που γνώρισα...
Με εκτίμηση σε όλα τα μέλη forum
Νίκος Δ.

[Meteora]

Καλησπέρα...
Να κλείσω ένα θέμα που αφορά το ανέβασμα αρχείων ftp στον server του ΟΤΕ users.otenet.gr
Ο κώδικας που μας πρότεινε ο Τόλης δουλεύει ως έχει! Όμως η απροσεξία μπορεί να μας βάλει σε μπελάδες! Στην εντολή :

Print #1, "USER UsernameHere"

πρέπει να αντικατασταθεί ΜΌΝΟ το UsernameHere με το όνομα του χρήστη (π.χ Wkalo9s12) αφού η λέξη USER είναι απαραίτητη να υπάρχει ως δεσμευμένη λέξη.
Αφήνω να φανεί σε ποιο σημείο είχα ...μακράς διάρκειας πρόβλημα. Όλα καλά πλέον.
Τόλη σε ευχαριστώ και από αυτή εδώ τη θέση.
Φιλικά / Νίκος Δ.

Υστερολόγιο : Το υλικό που σχετίζεται με τα HML δεν το είδα ακόμη...