Αρχή :: Παραδείγματα κώδικα :: DSNless Connection     

Παραδείγματα κώδικα :: 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 αρχεία.

Tony Barnes







Η Εταιρία | Web Hosting | Domain names | Web Information | Υπηρεσίες | Resellers | Υποστήριξη |
Copyright © 2007–09 4GR.NETWORKS, All rights reserved.