Πώς να συνδέσετε φόρμες της Microsoft Access σε ομάδες εγγραφών ADO

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 281998 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Για προχωρημένους: Απαιτεί εμπειρογνωμόνων κωδικοποίησης, διαλειτουργικότητας και πολλών χρηστών δεξιότητες.

Αυτό το άρθρο ισχύει για μια βάση δεδομένων της Microsoft Access (.mdb) και σε ένα Έργο της Microsoft Access (.adp).

Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Αυτό το άρθρο περιγράφει τι απαιτείται για να δημιουργήσετε μια δυνατότητα ενημέρωσης φόρμας που είναι δεσμευμένο σε ένα ActiveX Data Objects (ADO) Σύνολο εγγραφών το αντικείμενο.

Περισσότερες πληροφορίες

Για να συνδέσετε μια φόρμα της Microsoft Access σε ένα αντικείμενο recordset, πρέπει να Ορισμός του Σύνολο εγγραφών η ιδιότητα της φόρμας σε μια έγκυρη Data Access Objects (DAO) ή ADO Σύνολο εγγραφών το αντικείμενο.

Το Σύνολο εγγραφών η ιδιότητα θεσπίστηκε στην Microsoft Access 2000 και επιτρέπει Μπορείτε να συνδέσετε φόρμες με DAO ή ADO Σύνολο εγγραφών αντικείμενα. Ωστόσο, οι φόρμες της Access 2000 υποστηρίζει μόνο updateability Εάν ανοίξει η σύνδεση ADO με χρήση του MSDataShape και OLEDB διακομιστή SQL υπηρεσίες παροχής. Για πρόσθετες πληροφορίες σχετικά με αυτό περιορισμός στην Access 2000, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο στη Microsoft Knowledge Base:
227053 ACC2000: Φόρμες που βασίζονται σε ομάδες εγγραφών ADO είναι μόνο για ανάγνωση
Η Microsoft Access 2002 ή νεότερη έκδοση, μπορείτε να δημιουργήσετε μια φόρμα με δυνατότητα ενημέρωσης που είναι συνδεδεμένη σε μια ομάδα εγγραφών ADO που χρησιμοποιεί το OLEDB άλλα υπηρεσίες παροχής. Μια φόρμα πρέπει να πληρούν διάφορες γενικές απαιτήσεις για τη φόρμα δυνατότητα ενημέρωσης όταν είναι συνδεδεμένο με μια ομάδα εγγραφών ADO. Αυτές οι γενικές απαιτήσεις είναι οι εξής:
  1. Πρέπει να είναι ενημερώσιμο υποκείμενο αντικείμενο recordset του ADO.
  2. Το αντικείμενο recordset πρέπει να περιέχει ένα ή περισσότερα πεδία που είναι μοναδικό ευρετήριο, όπως το πρωτεύον κλειδί του πίνακα.
Οι απαιτήσεις για updateability ποικίλλει μεταξύ διαφορετικών υπηρεσίες παροχής. Αυτό το άρθρο περιγράφει τι είναι οι άλλες απαιτήσεις όταν χρησιμοποιείτε υπηρεσίες παροχής Microsoft SQL Server, Jet, ODBC και Oracle OLEDB.

Απαιτήσεις για τον Microsoft SQL Server

Υπάρχουν δύο κύριες απαιτήσεις για την υποστήριξη updateability όταν σύνδεση μιας φόρμας σε μια ομάδα εγγραφών ADO που χρησιμοποιεί Microsoft SQL Server δεδομένα:
  • Το ADO recordset σύνδεση πρέπει να χρησιμοποιήσετε το Microsoft Πρόσβαση σε υπηρεσία παροχής OLEDB 10.0 ως την υπηρεσία παροχής.
  • Το ADO recordset σύνδεση πρέπει να χρησιμοποιήσετε το Microsoft SQL Παροχής OLEDB Server ως την υπηρεσία παροχής δεδομένων.
ΣΗΜΕΊΩΣΗ: Η υπηρεσία παροχής Microsoft Access 10.0 OLEDB είναι μια υπηρεσία OLEDB η υπηρεσία παροχής που έχει δημιουργηθεί ειδικά για χρήση στη Microsoft Access. Δεν ήταν έχει σχεδιαστεί για να χρησιμοποιείται σε εφαρμογές εκτός Microsoft Access και δεν είναι υποστηρίζεται σε άλλες εφαρμογές.

Όταν δημιουργείτε σύνολα εγγραφών ADO τη Microsoft Access, έχετε την επιλογή στην οποία θα connection του ADO χρησιμοποιείται από το recordset. Σας κώδικα ADO να κάνετε κοινή χρήση της σύνδεσης του ADO που Η Microsoft Access χρησιμοποιεί για τη βάση δεδομένων SQL Server που είναι ανοιχτό σε ένα Αρχείο έργου (ADP) της Access. ή μέσω προγραμματισμού, μπορείτε να δημιουργήσετε ένα νέο ADO σύνδεση σε μια διαφορετική βάση δεδομένων του SQL Server.

Κοινή χρήση της σύνδεσης του ADO που χρησιμοποιείται από τη Microsoft Access

Εάν χρησιμοποιείτε ένα αρχείο έργου της Access (.adp) συνδέεται με ένα Βάση δεδομένων Microsoft SQL Server, είναι δυνατό να σας κώδικα ADO για κοινή χρήση του Connection του ADO που χρησιμοποιεί η Microsoft Access. Αυτή η σύνδεση έχει εκτεθεί από το CurrentProject.AccessConnection η ιδιότητα.

Το ακόλουθο παράδειγμα παρουσιάζει τον τρόπο σύνδεση μιας φόρμας σε μια ομάδα εγγραφών ADO που βασίζεται σε δεδομένα διακομιστή SQL που κάνει κοινή χρήση ενός Connection του ADO με τη Microsoft Access.
  1. Ανοίξτε το δείγμα έργου NorthwindCS.adp.
  2. Ανοίξτε τη φόρμα "πελάτες" σε προβολή σχεδίασης.
  3. Απαλοιφή του Προέλευση εγγραφών η ιδιότητα της φόρμας για να αποσυνδέσετε τη φόρμα.
  4. Ορισμός του Με το άνοιγμα η ιδιότητα της φόρμας στην ακόλουθη διαδικασία συμβάντος:
    Private Sub Form_Open(Cancel As Integer)
       Dim cn As ADODB.Connection
       Dim rs As ADODB.Recordset
             
       'Use the ADO connection that Access uses
       Set cn = CurrentProject.AccessConnection
    
       'Create an instance of the ADO Recordset class, and
       'set its properties
       Set rs = New ADODB.Recordset
       With rs
          Set .ActiveConnection = cn
          .Source = "SELECT * FROM Customers"
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .Open 
       End With
       
       'Set the form's Recordset property to the ADO recordset
       Set Me.Recordset = rs
    
       Set rs = Nothing
       Set cn = Nothing
    End Sub
    					
  5. Αποθηκεύστε και κλείστε τη φόρμα.
  6. Ανοίξτε τη φόρμα Customers σε προβολή φόρμας.
  7. Προσθήκη, επεξεργασία ή διαγραφή μιας εγγραφής στη φόρμα.
Σημειώστε ότι η φόρμα είναι δεσμευμένη σε ένα ενημερώσιμο αντικείμενο recordset που είναι με βάση δεδομένων SQL Server.

Άνοιγμα του ξεχωριστή σύνδεση ADO

Σε κάποιο σημείο, ίσως χρειαστεί να ανοίξετε και να διαχειριστείτε τις δικές σας ADO σύνδεση σε διακομιστή SQL. Για παράδειγμα, θα πρέπει να χρησιμοποιήσετε αυτήν την προσέγγιση, εάν γράφετε κώδικα σας σε μια βάση δεδομένων της Access (.mdb) ή ένα έργο της Access αρχείο (.adp) που ήταν συνδεδεμένος με μια διαφορετική βάση δεδομένων του SQL Server από το εφαρμογή. Σημειώστε ότι όταν χρησιμοποιείτε αυτήν την προσέγγιση, Microsoft συνιστά Κλείσιμο σύνδεσης ADO που ανοίγει όταν δεν χρειάζονται πια. Για το παράδειγμα, ίσως θέλετε να κλείσετε τη σύνδεση ADO στο συμβάν UnLoad το φόρμα.

Το παρακάτω παράδειγμα δείχνει πώς μπορείτε να ανοίξετε το δικό σας ADO σύνδεση σε μια βάση δεδομένων Microsoft SQL Server και να συνδεθεί μια φόρμα:
  1. Ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  2. Ανοίξτε τη φόρμα "πελάτες" σε προβολή σχεδίασης.
  3. Απαλοιφή του Προέλευση εγγραφών η ιδιότητα της φόρμας για να αποσυνδέσετε τη φόρμα.
  4. Ορισμός του Με το άνοιγμα η ιδιότητα της φόρμας στην ακόλουθη διαδικασία συμβάντος:
    Private Sub Form_Open(Cancel As Integer)
       Dim cn As ADODB.Connection
       Dim rs As ADODB.Recordset
             
       'Create a new ADO Connection object
       Set cn = New ADODB.Connection
    
       'Use the Access 10 and SQL Server OLEDB providers to
       'open the Connection
       'You will need to replace MySQLServer with the name
       'of a valid SQL Server
       With cn
          .Provider = "Microsoft.Access.OLEDB.10.0"
          .Properties("Data Provider").Value = "SQLOLEDB"
          .Properties("Data Source").Value = "MySQLServer"
          .Properties("User ID").Value = "sa"
          .Properties("Password").Value = ""
          .Properties("Initial Catalog").Value = "NorthwindCS"
          .Open
       End With
    
       'Create an instance of the ADO Recordset class, and
       'set its properties
       Set rs = New ADODB.Recordset
       With rs
          Set .ActiveConnection = cn
          .Source = "SELECT * FROM Customers"
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .Open 
       End With
       
       'Set the form's Recordset property to the ADO recordset
       Set Me.Recordset = rs
       Set rs = Nothing
       Set cn = Nothing
    End Sub
    					
  5. Προσθέστε τον ακόλουθο κώδικα στο συμβάν UnLoad της φόρμας:
    Private Sub Form_Unload(Cancel As Integer)
       'Close the ADO connection we opened
       Dim cn As ADODB.Connection
       Set cn = Me.Recordset.ActiveConnection
       cn.Close
       Set cn = Nothing
    End Sub
    					
  6. Αποθηκεύστε τη φόρμα και, στη συνέχεια, κλείστε το.
  7. Ανοίξτε τη φόρμα Customers σε προβολή φόρμας.
  8. Προσθήκη, επεξεργασία ή διαγραφή μιας εγγραφής στη φόρμα.
Σημειώστε ότι η φόρμα είναι δεσμευμένη σε ένα ενημερώσιμο αντικείμενο recordset που είναι με βάση δεδομένων SQL Server.

Απαιτήσεις για το Microsoft Jet

Παρόλο που είναι δυνατό να συνδέσετε μια φόρμα σε μια ομάδα εγγραφών ADO που χρησιμοποιεί δεδομένα από μια βάση δεδομένων Jet, η Microsoft συνιστά να χρησιμοποιείτε DAO αντί για αυτό. DAO βελτιστοποιείται για Jet και συνήθως εκτελεί ταχύτερα ADO Όταν χρησιμοποιείται με μια βάση δεδομένων Jet.

Όταν συνδέσετε μια φόρμα με ένα ADO Recordset χρησιμοποιώντας δεδομένων Microsoft Jet, υπάρχουν δύο εναλλακτικές λύσεις:
  • Το σύνολο εγγραφών Ενεργός _ σύνδεση η ιδιότητα πρέπει να χρησιμοποιήσετε την υπηρεσία Microsoft Access έκδοση 10.0 OLEDB υπηρεσία παροχής, καθώς και την υπηρεσία παροχής δεδομένων OLEDB Microsoft Jet 4.0 και το αντικείμενο recordset πρέπει να είναι ένα δρομέα πλευράς διακομιστή.

    - ή -
  • Το σύνολο εγγραφών Ενεργός _ σύνδεση η ιδιότητα πρέπει να χρησιμοποιήσετε μόνο υπηρεσία παροχής δεδομένων OLEDB Microsoft Jet 4.0 και το αντικείμενο recordset πρέπει να δρομέα προγράμματος-πελάτη.
Παρόμοια με την ενότητα "Microsoft sql Server", παραπάνω σε αυτό άρθρο, έχετε την επιλογή να τα ADO σύνδεσης θα χρησιμοποιείται από το Recordset κατά τη χρήση μιας βάσης δεδομένων Jet. Σας κώδικα ADO να κάνετε κοινή χρήση της σύνδεσης του ADO ότι η Microsoft Access χρησιμοποιεί για το αρχείο βάσης δεδομένων Jet (.mdb) αυτήν τη στιγμή ανοιχτό ή μέσω προγραμματισμού, μπορείτε να δημιουργήσετε μια νέα σύνδεση ADO με ξεχωριστό Jet το αρχείο βάσης δεδομένων.

Κοινή χρήση της σύνδεσης του ADO που χρησιμοποιείται από τη Microsoft Access

Εάν γράφετε κώδικα στην ίδια βάση δεδομένων της Microsoft Access (.mdb) που περιέχει τα δεδομένα που χρειάζεται το σύνολο εγγραφών σας, είναι δυνατό να σας κώδικα ADO για κοινή χρήση σύνδεσης ADO που χρησιμοποιεί η Microsoft Access. Αυτό σύνδεση εκτίθεται από το CurrentProject.AccessConnection η ιδιότητα. Το παρακάτω παράδειγμα δείχνει πώς να συνδέσετε μια φόρμα σε μια ομάδα εγγραφών ADO σε μια βάση δεδομένων Jet με την κοινή χρήση της σύνδεσης του ADO που Η Microsoft Access χρησιμοποιεί αυτήν τη στιγμή:
  1. Ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  2. Ανοίξτε τη φόρμα "πελάτες" σε προβολή σχεδίασης.
  3. Απαλοιφή του Προέλευση εγγραφών η ιδιότητα της φόρμας για να αποσυνδέσετε τη φόρμα.
  4. Ορισμός του Με το άνοιγμα η ιδιότητα της φόρμας στην ακόλουθη διαδικασία συμβάντος:
    Private Sub Form_Open(Cancel As Integer)
       Dim cn As ADODB.Connection
       Dim rs As ADODB.Recordset
                    
       Set cn = CurrentProject.AccessConnection
    
       'Create an instance of the ADO Recordset class, and
       'set its properties
       Set rs = New ADODB.Recordset
       With rs
          Set .ActiveConnection = cn
          .Source = "SELECT * FROM Customers"
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .CursorLocation = adUseServer
          .Open 
       End With
       
       'Set the form's Recordset property to the ADO recordset
       Set Me.Recordset = rs
       Set rs = Nothing
       Set cn = Nothing
    End Sub
    					
  5. Αποθηκεύστε τη φόρμα και, στη συνέχεια, κλείστε το.
  6. Ανοίξτε τη φόρμα Customers σε προβολή φόρμας.
  7. Προσθήκη, επεξεργασία ή διαγραφή μιας εγγραφής στη φόρμα.
Σημειώστε ότι η φόρμα είναι δεσμευμένη σε ένα ενημερώσιμο αντικείμενο recordset που είναι χρήση δεδομένων Jet.

Άνοιγμα του ξεχωριστή σύνδεση ADO

Σε κάποιο σημείο, ίσως χρειαστεί να ανοίξετε και να διαχειριστείτε τις δικές σας ADO σύνδεση με μια βάση δεδομένων Jet. Για παράδειγμα, θα πρέπει να χρησιμοποιήσετε αυτήν την προσέγγιση Εάν γράφετε κώδικα σας σε μια βάση δεδομένων που είναι ξεχωριστή από τη βάση δεδομένων που περιέχει τα δεδομένα που χρειάζεστε για να αποκτήσετε πρόσβαση. Σημειώστε ότι όταν χρησιμοποιείτε αυτό η προσέγγιση, η Microsoft συνιστά να κλείσετε τη σύνδεση ADO που ανοίγει όταν δεν χρειάζονται πια. Για παράδειγμα, ίσως θέλετε να κλείσετε το ADO σύνδεση με το συμβάν UnLoad της φόρμας.

Το ακόλουθο παράδειγμα παρουσιάζει πώς μπορείτε να ανοίξετε το δικό σας connection του ADO σε μια βάση δεδομένων Microsoft Jet και να συνδεθεί μια φόρμα:
  1. Δημιουργήστε μια νέα κενή βάση δεδομένων.
  2. Εισαγωγή φόρμας πελάτες από το δείγμα βάσης δεδομένων Northwind.mdb.
  3. Ανοίξτε τη φόρμα "πελάτες" σε προβολή σχεδίασης.
  4. Απαλοιφή του Προέλευση εγγραφών η ιδιότητα της φόρμας για να αποσυνδέσετε τη φόρμα.
  5. Ορισμός του Με το άνοιγμα η ιδιότητα της φόρμας στην ακόλουθη διαδικασία συμβάντος:
    Private Sub Form_Open(Cancel As Integer)
       Dim cn As ADODB.Connection
       Dim rs As ADODB.Recordset
             
       'Create a new ADO Connection object
       Set cn = New ADODB.Connection
    
       With cn
          .Provider = "Microsoft.Access.OLEDB.10.0"
          .Properties("Data Provider").Value = "Microsoft.Jet.OLEDB.4.0"
          .Properties("Data Source").Value = _
              "C:\Program Files\Microsoft Office\Office10" & _
              "\Samples\Northwind.mdb"
          .Open
       End With
    
       'Create an instance of the ADO Recordset class, and
       'set its properties
       Set rs = New ADODB.Recordset
       With rs
          Set .ActiveConnection = cn
          .Source = "SELECT * FROM Customers"
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .Open 
       End With
       
       'Set the form's Recordset property to the ADO recordset
       Set Me.Recordset = rs
       Set rs = Nothing
       Set cn = Nothing
    End Sub
    					
  6. Προσθέστε τον ακόλουθο κώδικα στο συμβάν UnLoad της φόρμας:
    Private Sub Form_Unload(Cancel As Integer)
       'Close the ADO connection we opened
       Dim cn As ADODB.Connection
       Set cn = Me.Recordset.ActiveConnection
       cn.Close
       Set cn = Nothing
    End Sub
    					
  7. Αποθηκεύστε τη φόρμα και, στη συνέχεια, κλείστε το.
  8. Ανοίξτε τη φόρμα Customers σε προβολή φόρμας.
  9. Προσθήκη, επεξεργασία ή διαγραφή μιας εγγραφής στη φόρμα.
Σημειώστε ότι η φόρμα είναι δεσμευμένη σε ένα ενημερώσιμο αντικείμενο recordset που είναι χρήση δεδομένων Jet.

Απαιτήσεις για ODBC

Όταν συνδέσετε μια φόρμα σε μια ομάδα εγγραφών ADO που χρησιμοποιεί δεδομένα από μια βάση δεδομένων ODBC, υπάρχουν δύο κύριες απαιτήσεις:
  • Πρέπει να χρησιμοποιήσετε το ADO σύνδεσης που χρησιμοποιείται από το σύνολο εγγραφών η υπηρεσία παροχής Microsoft OLEDB για ODBC.
  • Ομάδα εγγραφών ADO πρέπει να δρομέα προγράμματος-πελάτη.
Το ακόλουθο παράδειγμα παρουσιάζει τον τρόπο ανοίγματος ενός ADO σύνδεση σε μια βάση δεδομένων ODBC και να συνδεθεί μια φόρμα.

ΣΗΜΕΊΩΣΗ: Τα βήματα αυτά προϋποθέτουν ότι η βάση δεδομένων ODBC περιέχει έναν πίνακα που ονομάζεται Οι ΠΕΛΆΤΕΣ που είναι πανομοιότυπη δομή του πίνακα "πελάτες" στο δείγμα βάση δεδομένων Northwind.mdb. Προϋποθέτει επίσης ότι έχετε δημιουργήσει ένα DSN ODBC που ονομάζεται MyDSN που χρησιμοποιεί το πρόγραμμα οδήγησης ODBC που χρειάζεστε για να συνδεθείτε με το παρασκηνιακό βάση δεδομένων.
  1. Ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  2. Ανοίξτε τη φόρμα "πελάτες" σε προβολή σχεδίασης.
  3. Απαλοιφή του Προέλευση εγγραφών η ιδιότητα της φόρμας για να αποσυνδέσετε τη φόρμα.
  4. Ορισμός του Με το άνοιγμα η ιδιότητα της φόρμας στην ακόλουθη διαδικασία συμβάντος:
    Private Sub Form_Open(Cancel As Integer)
       Dim cn As ADODB.Connection
       Dim rs As ADODB.Recordset
       Dim strConnection As String
    
       strConnection = "ODBC;DSN=MyDSN;UID=sa;PWD=;DATABASE=Northwind"
       'Create a new ADO Connection object
       Set cn = New ADODB.Connection
    
       With cn
          .Provider = "MSDASQL"
          .Properties("Data Source").Value = strConnection
          .Open
       End With
    
       'Create an instance of the ADO Recordset class, and
       'set its properties
       Set rs = New ADODB.Recordset
       With rs
          Set .ActiveConnection = cn
          .Source = "SELECT * FROM Customers"
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .CursorLocation = adUseClient
          .Open 
       End With
       
       'Set the form's Recordset property to the ADO recordset
       Set Me.Recordset = rs
       Set rs = Nothing
       Set cn = Nothing
    End Sub
    					
  5. Προσθέστε τον ακόλουθο κώδικα στο συμβάν UnLoad της φόρμας:
    Private Sub Form_Unload(Cancel As Integer)
       'Close the ADO connection we opened
       Dim cn As ADODB.Connection
       Set cn = Me.Recordset.ActiveConnection
       cn.Close
       Set cn = Nothing
    End Sub
    					
  6. Αποθηκεύστε τη φόρμα και, στη συνέχεια, κλείστε το.
  7. Ανοίξτε τη φόρμα Customers σε προβολή φόρμας.
  8. Προσθήκη, επεξεργασία ή διαγραφή μιας εγγραφής στη φόρμα.
Σημειώστε ότι η φόρμα είναι δεσμευμένη σε ένα ενημερώσιμο αντικείμενο recordset που είναι με βάση δεδομένων ODBC.

Απαιτήσεις για Oracle

Όταν συνδέσετε μια φόρμα σε μια ομάδα εγγραφών ADO που χρησιμοποιεί δεδομένα από μια βάση δεδομένων Oracle, υπάρχουν δύο κύριες απαιτήσεις:
  • Πρέπει να χρησιμοποιήσετε το ADO σύνδεσης που χρησιμοποιείται από το σύνολο εγγραφών η υπηρεσία παροχής Microsoft OLEDB για Oracle.
  • Ομάδα εγγραφών ADO πρέπει να δρομέα προγράμματος-πελάτη.
Το ακόλουθο παράδειγμα παρουσιάζει τον τρόπο ανοίγματος ενός ADO σύνδεση σε μια βάση δεδομένων Oracle και να συνδεθεί μια φόρμα.

ΣΗΜΕΊΩΣΗ: Τα βήματα αυτά προϋποθέτουν ότι η βάση δεδομένων της Oracle περιέχει έναν πίνακα Οι ΠΕΛΆΤΕΣ που είναι πανομοιότυπη δομή του πίνακα "πελάτες" με το όνομα του δείγμα βάσης δεδομένων Northwind.mdb.
  1. Ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  2. Ανοίξτε τη φόρμα "πελάτες" σε προβολή σχεδίασης.
  3. Απαλοιφή του Προέλευση εγγραφών η ιδιότητα της φόρμας για να αποσυνδέσετε τη φόρμα.
  4. Ορισμός του Με το άνοιγμα η ιδιότητα της φόρμας στην ακόλουθη διαδικασία συμβάντος:
    Private Sub Form_Open(Cancel As Integer)
       Dim cn As ADODB.Connection
       Dim rs As ADODB.Recordset
             
       'Create a new ADO Connection object
       Set cn = New ADODB.Connection
    
       With cn
          .Provider = "MSDAORA"
          .Properties("Data Source").Value = "MyOracleServer"
          .Properties("User ID").Value = "username"
          .Properties("Password").Value = "password"          
          .Open
       End With
    
       'Create an instance of the ADO Recordset class, and
       'set its properties
       Set rs = New ADODB.Recordset
       With rs
          Set .ActiveConnection = cn
          .Source = "SELECT * FROM Customers"
          .LockType = adLockOptimistic
          .CursorType = adOpenKeyset
          .CursorLocation = adUseClient
    
          .Open 
       End With
      
       'Set the form's Recordset property to the ADO recordset
       Set Me.Recordset = rs
       Set rs = Nothing
       Set cn = Nothing
    End Sub
    					
  5. Προσθέστε τον ακόλουθο κώδικα στο συμβάν UnLoad της φόρμας:
    Private Sub Form_Unload(Cancel As Integer)
       'Close the ADO connection we opened
       Dim cn As ADODB.Connection
       Set cn = Me.Recordset.ActiveConnection
       cn.Close
       Set cn = Nothing
    End Sub
    					
  6. Αποθηκεύστε τη φόρμα και, στη συνέχεια, κλείστε το.
  7. Ανοίξτε τη φόρμα Customers σε προβολή φόρμας.
  8. Προσθήκη, επεξεργασία ή διαγραφή μιας εγγραφής στη φόρμα.
Σημειώστε ότι η φόρμα είναι δεσμευμένη σε ένα ενημερώσιμο αντικείμενο recordset που είναι βάσει των δεδομένων της Oracle.

Αναφορές

Για πρόσθετες πληροφορίες, κάντε κλικ στο ακόλουθο άρθρο αριθμό, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
281784Διαφορά μεταξύ Σύνδεση και AccessConnection ιδιότητες
Τα προϊόντα τρίτων κατασκευαστών που είναι που αναφέρονται σε αυτό το άρθρο έχουν κατασκευαστεί από εταιρείες που είναι ανεξάρτητες από Από τη Microsoft. Η Microsoft δεν παρέχει καμία εγγύηση, σιωπηρή ή διαφορετικά, όσον αφορά την επιδόσεις ή την αξιοπιστία αυτών των προϊόντων.

Ιδιότητες

Αναγν. άρθρου: 281998 - Τελευταία αναθεώρηση: Σάββατο, 17 Σεπτεμβρίου 2011 - Αναθεώρηση: 7.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
Λέξεις-κλειδιά: 
kbado kbdatabinding kbdatabase kbdesign kbprogramming kbhowto kbmt KB281998 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:281998

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com