freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

Αναγνωση αρχειων απο access


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα]      Bookmarks Tags: ανάγνωσηaccess Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
alaou


Μέλος από: 20 Ιουν 2005
Μηνύματα: 8

View users profile
ΜήνυμαΣτις: 28 Απρ 2006 18:02    Θέμα: Αναγνωση αρχειων απο access
Περιγραφή θέματος: Μπορεί η Access να εισάγει σαν δεδομένα ονόματα αρχείων?
Απάντηση με παράθεση  Mark this post and the followings unread

Είμαι αρχάριος στην Access και αυτό που θέλω να κάνω είναι να έχω σε πίνακα της Access τα ονόματα αρχείων και το μέγεθος τους.

Π.χ. να διαβάζει από το C:\ Windows link to Windows και να τα περνάει σε πίνακα της Access όλα τα ονόματα των αρχείων σε ένα πεδίο και σε ένα άλλο το μέγεθος τους.Γίνεται?

Ευχαριστώ.
dimsis
Reporter

Μέλος από: 25 Ιουλ 2001
Βοηθήματα: 9
Νέα: 89
Μηνύματα: 256+


View users profile
ΜήνυμαΣτις: 28 Απρ 2006 19:16    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Από το net:

If you add the list of files to an Access table you can easily bind it to
your control:

How to Add Directory File Names to an Access Table:

Create a table named tblDirectory with 2 fields:
FileName (Text 250)
FileDate (Date/Time)

Call the code below by pressing Ctrl-G to open the debug window and type:
GetFiles("c:\ windows link to windows\")

Paste this code into a regular module:

Sub GetFiles(strPath As String)
Dim rs As Recordset
Dim strFile As String, strDate As Date

'clear out existing data
CurrentDb.Execute "Delete * From tblDirectory", dbFailOnError

'open a recordset
Set rs = CurrentDb.OpenRecordset("tblDirectory", dbOpenDynaset)

'get the first filename
strFile = Dir(strPath, vbNormal)
'Loop through the balance of files
Do
'check to see if you have a filename
If strFile = "" Then
GoTo ExitHere
End If
strDate = FileDateTime(strPath & strFile)
rs.AddNew
'to save the full path using strPath & strFile
'save only the filename
rs!FileName = strFile
rs!FileDate = strDate
rs.Update

'try for next filename
strFile = Dir()
Loop

ExitHere:
Set rs = Nothing
MsgBox ("Directory list is complete.")
End Sub
alaou


Μέλος από: 20 Ιουν 2005
Μηνύματα: 8

View users profile
ΜήνυμαΣτις: 29 Απρ 2006 15:52    Θέμα: Δεν ξέρω να το δουλέψω Απάντηση με παράθεση  Mark this post and the followings unread

Όπως είπα,είμαι αρχάριος...Το έφτιαξα αλλά αποτέλεσμα 0! Πως τα συνδέω? 'Η πως κάνω τον κώδικα να λειτουργήσει?!!
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Προβλημα με υπολογισμο ΦΠΑ στην Access 0 master3763 27 Νοε 2016 17:31
master3763 Εμφάνιση τελευταίου μηνύματος
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 18 Ιαν 2017 05:52 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos