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

Για προχωρημένους: Απαιτεί ειδικές γνώσεις κωδικοποίησης, διαλειτουργικότητας και περιβάλλοντος για πολλούς χρήστες.

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

Σύνοψη

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

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

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

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

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

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

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

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

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

Το ακόλουθο παράδειγμα παρουσιάζει τον τρόπο για να συνδέσετε μια φόρμα σε μια ομάδα εγγραφών ADO που βασίζεται σε δεδομένα του SQL Server που κάνει κοινή χρήση μιας σύνδεσης ADO με τη Microsoft Access.
  1. Ανοίξτε το δείγμα έργου NorthwindCS.adp.
  2. Ανοίξτε τη φόρμα Customers σε προβολή σχεδίασης.
  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.

Ανοίξετε μια σύνδεση ADO ξεχωριστά

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

Το παρακάτω παράδειγμα δείχνει τον τρόπο για να ανοίξετε τη δική σας connection του ADO σε μια βάση δεδομένων Microsoft SQL Server και να συνδέσετε μια φόρμα σε αυτό:
  1. Ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  2. Ανοίξτε τη φόρμα Customers σε προβολή σχεδίασης.
  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. Προσθέστε τον ακόλουθο κώδικα στο συμβάν φόρτωσης της φόρμας:
    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.

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

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

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

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

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

Εάν γράφετε τον κωδικό με την ίδια βάση δεδομένων της Microsoft Access (.mdb) που περιέχει τα δεδομένα που χρειάζεται το σύνολο εγγραφών σας, είναι δυνατό για την κοινή χρήση της σύνδεσης του ADO που χρησιμοποιεί η Microsoft Access σας κώδικα ADO. Αυτή η σύνδεση έχει εκτεθεί από την ιδιότητα CurrentProject.AccessConnection . Το παρακάτω παράδειγμα δείχνει τον τρόπο για να συνδέσετε μια φόρμα σε μια ομάδα εγγραφών ADO σε μια βάση δεδομένων Jet με την κοινή χρήση της σύνδεσης του ADO που χρησιμοποιεί η Microsoft Access:
  1. Ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  2. Ανοίξτε τη φόρμα Customers σε προβολή σχεδίασης.
  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 ξεχωριστά

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

Το παρακάτω παράδειγμα δείχνει τον τρόπο για να ανοίξετε τη δική σας connection του ADO σε μια βάση δεδομένων Microsoft Jet και να συνδέσετε μια φόρμα σε αυτό:
  1. Δημιουργήστε μια νέα κενή βάση δεδομένων.
  2. Εισαγάγετε τη φόρμα "πελάτες" από το δείγμα βάσης δεδομένων Northwind.mdb.
  3. Ανοίξτε τη φόρμα Customers σε προβολή σχεδίασης.
  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. Προσθέστε τον ακόλουθο κώδικα στο συμβάν φόρτωσης της φόρμας:
    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 που χρησιμοποιείται από το αντικείμενο recordset πρέπει να χρησιμοποιήσετε την υπηρεσία παροχής Microsoft OLEDB για ODBC.
  • Η ομάδα εγγραφών ADO πρέπει να είναι ένα δρομέα προγράμματος-πελάτη.
Το ακόλουθο παράδειγμα παρουσιάζει τον τρόπο για να ανοίξετε μια σύνδεση ADO σε μια βάση δεδομένων ODBC και να συνδέσετε μια φόρμα σε αυτό.

ΣΗΜΕΊΩΣΗ: Τα βήματα αυτά προϋποθέτουν ότι η βάση δεδομένων ODBC περιέχει έναν πίνακα με το όνομα τους ΠΕΛΆΤΕΣ που έχει την ίδια δομή πίνακα "πελάτες" στο δείγμα βάσης δεδομένων Northwind.mdb. Επίσης, θεωρεί ότι δημιουργήσατε ένα DSN ODBC με το όνομα MyDSN που χρησιμοποιεί το πρόγραμμα οδήγησης ODBC που χρειάζεστε για να συνδεθείτε στη βάση δεδομένων παρασκηνίου.
  1. Ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  2. Ανοίξτε τη φόρμα Customers σε προβολή σχεδίασης.
  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. Προσθέστε τον ακόλουθο κώδικα στο συμβάν φόρτωσης της φόρμας:
    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 που χρησιμοποιείται από το αντικείμενο recordset πρέπει να χρησιμοποιήσετε την υπηρεσία παροχής Microsoft OLEDB για Oracle.
  • Η ομάδα εγγραφών ADO πρέπει να είναι ένα δρομέα προγράμματος-πελάτη.
Το ακόλουθο παράδειγμα παρουσιάζει τον τρόπο για να ανοίξετε μια σύνδεση ADO σε μια βάση δεδομένων Oracle και να συνδέσετε μια φόρμα σε αυτό.

ΣΗΜΕΊΩΣΗ: Τα βήματα αυτά προϋποθέτουν ότι η βάση δεδομένων της Oracle περιέχει έναν πίνακα με το όνομα τους ΠΕΛΆΤΕΣ που έχει την ίδια δομή πίνακα "πελάτες" στο δείγμα βάσης δεδομένων Northwind.mdb.
  1. Ανοίξτε το δείγμα βάσης δεδομένων Northwind.mdb.
  2. Ανοίξτε τη φόρμα Customers σε προβολή σχεδίασης.
  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. Προσθέστε τον ακόλουθο κώδικα στο συμβάν φόρτωσης της φόρμας:
    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 - Τελευταία αναθεώρηση: 23 Ιαν 2017 - Αναθεώρηση: 1

Σχόλια