Παραδείγματα κώδικα :: DSNless Connection
Αν έχεις secure folder στο server σου, πιθανόν θα θέλεις να αποφύγεις DSN αφού είναι λίγο αργή. Έχω το δικό μου data folder "secure". Αυτό σημαίνει πως το data folder έχει full permissions για εμένα, αλλά όχι για τους επισκέπτες..
Ας δημιουργήσουμε συνδέσεις και recodset objects τώρα..
<%
set conn = Server.CreateObject("ADODB.Connection")
set conn = Server.CreateObject("ADODB.Recordset")
%>
Ο πρώτος τρόπος για να προσδιορίσεις που είναι η database είναι να χρησιμοποιήσεις συγγενή τοποθεσία χρησιμοποιώντας την μέθοδο του Server.MapPath.
<%
'Προσδιόρισε που είναι η database
'όπως παρακάτω αν χρησιμοποιείς συγγενή folder
cDBLocation = "/folder/mydatabase.mdb"
''Κατασκεύασε την σύνδεση χρησιμοποιώντας το MapPath.
sConnSample = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & _
Server.MapPath(cDBLocation)
%>
Ίσως θέλεις να προσδιορίσεις την πραγματική τοποθεσία τις database. Καλύτερα να χρησιμοποιείς την πραγματική τοποθεσία πάντα αν μπορείς.
<%
'Αν είσαι σίγουρος για την πραγματική τοποθεσία
'τις database, καλύτερα να την δώσεις έτσι.
cDBLocation = "D:\inetpub\virtual_servers\yourdomain.com\mydatabase.mdb"
sConnSample = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & _
cDBLocation
%>
Αφού προσδιορίσαμε την σύνδεση είναι ώρα να συνδεθούμε με την database και να τραβήξουμε αρχεία!
Σαν παράδειγμα, θα προσδιορίσω 2 λειτουργίες για να ανοίξουμε και να κλείσουμε μια σύνδεση. Φυσικά υπάρχουν αρκετοί τρόποι για σύνδεση σύμφωνα με τι χρειαζόμαστε αλλά μπορούμε να χρησιμοποιήσουμε και την παρακάτω.
<%
''ADO σταθερές
Const adOpenForwardOnly = 0
Const adOpenStatic = 3
Const adCmdTable = 2
sub OpenDB(sConn)
'Ανοίγει την σύνδεση
'και επισυνάπτει τις εγγραφές
conn.open sConn
set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
end sub
sub CloseDB()
'Κλείνει την σύνδεση
'και καθαρίζει την μνήμη
rs.close
conn.close
set rs = nothing
set conn = nothing
end sub
%>
Μπορείς να εκτελέσεις SQL αναφορές για να παρουσιάσεις αρχεία από την database:
<%
OpenDB sConnSample
sSQL = "SELECT Field1, Field2 FROM TestTable"
rs.Open sSQL,,, adCmdTable
'Παρουσίασε τα records όπως θέλεις
CloseDB
%>
Πιστεύω πως αυτό το παράδειγμα θα σας δώσει μια πρώτη ματιά για σύνδεση με Access Mdb αρχεία.