Làm th? nào ð? liên k?t các h?nh th?c Microsoft Access v?i ADO recordsets

Bài vi?t này mô t? nh?ng g? là c?n thi?t ð? t?o ra m?t h?nh th?c updateable b? ràng bu?c vào m?t ð?i tý?ng d? li?u ActiveX (ADO) RecordSet ð?i tý?ng.

Liên k?t m?t h?nh th?c truy c?p Microsoft v?i m?t recordset, b?n ph?i ð?t các RecordSet tài s?n c?a các h?nh th?c h?p l? d? li?u truy c?p các ð?i tý?ng (DAO) ho?c ADO RecordSet ð?i tý?ng.

Các RecordSet b?t ð?ng s?n ð? ðý?c gi?i thi?u trong Microsoft Access 2000, và nó cho phép b?n ð? ràng bu?c các h?nh th?c DAO ho?c ADO RecordSet các ð?i tý?ng. Tuy nhiên, h?nh th?c trong Access 2000 h? tr? updateability ch? N?u k?t n?i ADO ðý?c m? ra b?ng cách s? d?ng MSDataShape và SQL Server OLEDB các nhà cung c?p. Ð? có thêm thông tin v? vi?c này gi?i h?n trong Access 2000, b?m vào s? bài vi?t dý?i ðây ð? xem bài vi?t trong Microsoft Knowledge Base: Trong Microsoft Access 2002 ho?c sau này, b?n có th? t?o m?t h?nh th?c updateable là ràng bu?c ð? m?t recordset ADO có s? d?ng OLEDB các nhà cung c?p. M?t h?nh th?c ph?i ðáp ?ng m?t s? nh?ng yêu c?u chung cho các h?nh th?c ðý?c updateable khi nó là ràng bu?c ð? m?t recordset ADO. Nh?ng yêu c?u chung là:

1. ADO recordset n?m bên dý?i ph?i updateable.
2. Recordset ph?i ch?a m?t ho?c nhi?u các l?nh v?c ðý?c duy nh?t ch? m?c, ch?ng h?n nhý m?t b?ng khóa chính.

Các yêu c?u khác cho updateability khác nhau gi?a khác nhau các nhà cung c?p. Bài vi?t này mô t? nh?ng g? các yêu c?u khác là khi b?n s? d?ng các nhà cung c?p Microsoft SQL Server, máy bay ph?n l?c, ODBC và Oracle OLEDB.

Yêu c?u ð?i v?i Microsoft SQL Server

Không có hai yêu c?u chính ð? h? tr? updateability khi b?n liên k?t m?t h?nh th?c v?i m?t recordset ADO b?ng cách s? d?ng Microsoft SQL Server d? li?u:

• ADO recordset k?t n?i ph?i s? d?ng Microsoft Truy c?p 10,0 OLEDB nhà cung c?p c?a nó là nhà cung c?p d?ch v?.
• ADO recordset k?t n?i ph?i s? d?ng Microsoft SQL Máy ch? OLEDB nhà cung c?p nhý là nhà cung c?p d? li?u c?a nó.

CHUì Yì: Các nhà cung c?p c?a Microsoft Access 10,0 OLEDB là m?t d?ch v? OLEDB nhà cung c?p ðý?c vi?t ð?c bi?t cho s? d?ng trong Microsoft Access. Nó không ðý?c thi?t k? ð? ðý?c s? d?ng trong các ?ng d?ng khác v?i Microsoft Access, và nó không ph?i là ðý?c h? tr? trong các ?ng d?ng khác.

Khi b?n t?o ADO recordsets trong Microsoft Access, b?n có m?t s? l?a ch?n nhý mà ADO k?t n?i s? ðý?c s? d?ng b?i recordset. ADO m? c?a b?n có th? chia s? k?t n?i ADO mà Microsoft Access b?ng cách s? d?ng cõ s? d? li?u SQL Server ðang m? trong m?t Truy nh?p T?p d? án (ADP); ho?c b?n có th? l?p tr?nh t?o ra m?t m?i ADO k?t n?i ð?n m?t cõ s? d? li?u SQL Server khác nhau.

Chia s? k?t n?i ADO ðý?c s? d?ng b?i Microsoft Access

N?u b?n ðang s? d?ng m?t truy c?p T?p d? án (.adp) k?t n?i v?i m?t Microsoft SQL Server cõ s? d? li?u, nó có th? cho ADO m? c?a b?n ð? chia s? các ADO k?t n?i truy c?p Microsoft ðang s? d?ng. K?t n?i này ðý?c ti?p xúc b?i các CurrentProject.AccessConnection b?t ð?ng s?n.

Ví d? sau ðây ch?ng t? làm th? nào ð? liên k?t m?t h?nh th?c v?i m?t recordset ADO d?a trên d? li?u SQL Server c? ph?n m?t ADO k?t n?i v?i Microsoft Access.

1. M? d? án m?u NorthwindCS.adp.
2. M? các h?nh th?c khách hàng theo quan ði?m thi?t k?.
3. R? ràng các RecordSource b?t ð?ng s?n c?a các h?nh th?c ð? unbind m?u.
4. Ð?t các OnOpen tài s?n c?a các h?nh th?c ð? th? t?c s? ki?n sau ðây:

   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. Lýu và sau ðó ðóng các h?nh th?c.
6. M? các h?nh th?c khách hàng trong d?ng xem.
7. Thêm, ch?nh s?a ho?c xóa m?t h? sõ theo h?nh th?c.

Lýu ? r?ng các h?nh th?c là ràng bu?c ð? m?t recordset updateable là d?a trên d? li?u SQL Server.

M? m?t k?t n?i riêng bi?t ADO

T?i m?t s? ði?m, b?n có th? ph?i m? và qu?n l? c?a riêng b?n ADO k?t n?i ð?n máy ch? SQL. Ví d?, b?n s? ph?i s? d?ng cách ti?p c?n này n?u b?n ð? vi?t m? c?a b?n trong cõ s? d? li?u Access (.mdb) ho?c m?t d? án truy c?p t?p tin (.adp) ð? ðý?c k?t n?i v?i m?t cõ s? d? li?u SQL Server khác nhau hõn c?a b?n ?ng d?ng. Lýu ? r?ng khi b?n s? d?ng cách ti?p c?n này, Microsoft khuy?n cáo r?ng b?n ðóng k?t n?i ADO b?n m? ra khi nó không c?n là c?n thi?t. Cho Ví d?, b?n có th? mu?n ðóng k?t n?i ADO trong s? ki?n này l?y c?a các h?nh th?c.

Ví d? sau ðây ch?ng t? làm th? nào ð? m? ADO riêng c?a b?n k?t n?i ð?n m?t cõ s? d? li?u Microsoft SQL Server và liên k?t m?t h?nh th?c v?i nó:

1. M? cõ s? d? li?u m?u Northwind.mdb.
2. M? các h?nh th?c khách hàng theo quan ði?m thi?t k?.
3. R? ràng các RecordSource b?t ð?ng s?n c?a các h?nh th?c ð? unbind m?u.
4. Ð?t các OnOpen tài s?n c?a các h?nh th?c ð? th? t?c s? ki?n sau ðây:

   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. Thêm m? sau s? ki?n này l?y c?a các h?nh th?c:

   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. Lýu bi?u m?u, và sau ðó ðóng nó.
7. M? các h?nh th?c khách hàng trong d?ng xem.
8. Thêm, ch?nh s?a ho?c xóa m?t h? sõ theo h?nh th?c.

Lýu ? r?ng các h?nh th?c là ràng bu?c ð? m?t recordset updateable là d?a trên d? li?u SQL Server.

Yêu c?u ð?i v?i Microsoft Jet

M?c dù nó có th? liên k?t m?t h?nh th?c v?i m?t recordset ADO ðó b?ng cách s? d?ng d? li?u t? cõ s? d? li?u máy bay ph?n l?c, Microsoft khuy?n cáo r?ng b?n s? d?ng DAO Thay vào ðó. Ð?O cao t?i ýu hóa cho máy bay ph?n l?c và thý?ng th?c hi?n nhanh hõn ADO khi ðý?c s? d?ng v?i m?t cõ s? d? li?u máy bay ph?n l?c.

Khi b?n liên k?t m?t h?nh th?c v?i m?t ADO RecordSet s? d?ng d? li?u Microsoft máy bay ph?n l?c, có hai l?a ch?n:

• Recordset ActiveConnection b?t ð?ng s?n ph?i s? d?ng d?ch v? Microsoft Access 10,0 OLEDB nhà cung c?p, c?ng nhý các nhà cung c?p c?a Microsoft ph?n l?c 4,0 OLEDB Data và recordset ph?i là m?t con ch?y phía máy ch?.
  
  - hay -
• Recordset ActiveConnection b?t ð?ng s?n ph?i s? d?ng ch? Microsoft Jet 4,0 OLEDB d? li?u nhà cung c?p và recordset ph?i là m?t con tr? phía khách hàng.

Týõng t? nhý ph?n "Microsoft sql Server" trý?c ðó trong này bài vi?t, b?n có m?t s? l?a ch?n nhý ADO mà k?t n?i s? ðý?c s? d?ng b?i các RecordSet khi s? d?ng m?t cõ s? d? li?u máy bay ph?n l?c. ADO m? c?a b?n có th? chia s? k?t n?i ADO ti?p c?n Microsoft ðang s? d?ng cho máy bay ph?n l?c cõ s? d? li?u file (.mdb) ðang m?, ho?c b?n có th? l?p tr?nh t?o m?t k?t n?i ADO m?i ð?n m?t máy bay ph?n l?c riêng bi?t cõ s? d? li?u t?p tin.

Chia s? k?t n?i ADO ðý?c s? d?ng b?i Microsoft Access

N?u b?n ðang vi?t m? trong cõ s? d? li?u Microsoft Access cùng (.mdb) có ch?a d? li?u c?a b?n recordset c?n, nó có th? cho ADO m? s? c?a b?n ð? chia s? k?t n?i ADO truy c?p Microsoft ðang s? d?ng. Ði?u này k?t n?i ðý?c ti?p xúc b?i các CurrentProject.AccessConnection b?t ð?ng s?n. Ví d? sau ðây ch?ng t? làm th? nào ð? ràng bu?c m?t h?nh th?c ð? m?t ADO recordset trong cõ s? d? li?u máy bay ph?n l?c b?ng cách chia s? k?t n?i ADO mà Microsoft Access hi?n nay b?ng cách s? d?ng:

1. M? cõ s? d? li?u m?u Northwind.mdb.
2. M? các h?nh th?c khách hàng theo quan ði?m thi?t k?.
3. R? ràng các RecordSource b?t ð?ng s?n c?a các h?nh th?c ð? unbind m?u.
4. Ð?t các OnOpen tài s?n c?a các h?nh th?c ð? th? t?c s? ki?n sau ðây:

   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. Lýu bi?u m?u, và sau ðó ðóng nó.
6. M? các h?nh th?c khách hàng trong d?ng xem.
7. Thêm, ch?nh s?a ho?c xóa m?t h? sõ theo h?nh th?c.

Lýu ? r?ng các h?nh th?c là ràng bu?c ð? m?t recordset updateable là s? d?ng d? li?u máy bay ph?n l?c.

M? m?t k?t n?i riêng bi?t ADO

T?i m?t s? ði?m, b?n có th? ph?i m? và qu?n l? c?a riêng b?n ADO k?t n?i ð?n m?t cõ s? d? li?u máy bay ph?n l?c. Ví d?, b?n s? ph?i s? d?ng cách ti?p c?n này N?u b?n ðang vi?t m? c?a b?n trong cõ s? d? li?u ðó là riêng bi?t t? cõ s? d? li?u có ch?a d? li?u mà b?n c?n ð? truy c?p. Lýu ? r?ng khi b?n s? d?ng ði?u này cách ti?p c?n, Microsoft khuy?n cáo r?ng b?n ðóng k?t n?i ADO mà b?n m? ra khi nó không c?n là c?n thi?t. Ví d?, b?n có th? mu?n ðóng ADO k?t n?i trong s? ki?n này l?y c?a các h?nh th?c.

Ví d? sau ch?ng t? làm th? nào ð? m? k?t n?i ADO riêng c?a b?n ð?n m?t cõ s? d? li?u Microsoft Jet và liên k?t m?t h?nh th?c v?i nó:

1. T?o m?t cõ s? d? li?u tr?ng m?i.
2. Chuy?n nh?p các h?nh th?c khách hàng t? cõ s? d? li?u m?u Northwind.mdb.
3. M? các h?nh th?c khách hàng theo quan ði?m thi?t k?.
4. R? ràng các RecordSource b?t ð?ng s?n c?a các h?nh th?c ð? unbind h?nh th?c.
5. Ð?t các OnOpen tài s?n c?a các h?nh th?c ð? th? t?c s? ki?n sau ðây:

   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. Thêm m? sau s? ki?n này l?y c?a các h?nh th?c:

   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. Lýu bi?u m?u, và sau ðó ðóng nó.
8. M? các h?nh th?c khách hàng trong d?ng xem.
9. Thêm, ch?nh s?a ho?c xóa m?t h? sõ theo h?nh th?c.

Lýu ? r?ng các h?nh th?c là ràng bu?c ð? m?t recordset updateable là s? d?ng d? li?u máy bay ph?n l?c.

Yêu c?u ð?i v?i ODBC

Khi b?n liên k?t m?t h?nh th?c v?i m?t recordset ADO b?ng cách s? d?ng d? li?u t? m?t cõ s? d? li?u ODBC, không có hai yêu c?u chính:

• ADO k?t n?i ðý?c s? d?ng b?i recordset ph?i s? d?ng các nhà cung c?p c?a Microsoft OLEDB cho ODBC.
• ADO recordset ph?i là m?t con tr? phía khách hàng.

Ví d? sau ðây ch?ng t? làm th? nào ð? m? m?t ADO k?t n?i ð?n m?t cõ s? d? li?u ODBC và liên k?t m?t h?nh th?c v?i nó.

CHUì Yì: Các bý?c này gi? ð?nh r?ng cõ s? d? li?u ODBC có ch?a m?t b?ng tên Khách hàng là gi?ng h?t nhau trong c?u trúc ð? bàn khách hàng m?u cõ s? d? li?u Northwind.mdb. Nó c?ng gi? ð?nh b?n ð? t?o ra m?t DSN ODBC ð?t tên MyDSN s? d?ng tr?nh ði?u khi?n ODBC mà b?n c?n ð? k?t n?i v?i back-end cõ s? d? li?u.

1. M? cõ s? d? li?u m?u Northwind.mdb.
2. M? các h?nh th?c khách hàng theo quan ði?m thi?t k?.
3. R? ràng các RecordSource b?t ð?ng s?n c?a các h?nh th?c ð? unbind h?nh th?c.
4. Ð?t các OnOpen tài s?n c?a các h?nh th?c ð? th? t?c s? ki?n sau ðây:

   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. Thêm m? sau s? ki?n này l?y c?a các h?nh th?c:

   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. Lýu bi?u m?u, và sau ðó ðóng nó.
7. M? các h?nh th?c khách hàng trong d?ng xem.
8. Thêm, ch?nh s?a ho?c xóa m?t h? sõ theo h?nh th?c.

Lýu ? r?ng các h?nh th?c là ràng bu?c ð? m?t recordset updateable là d?a trên d? li?u ODBC.

Yêu c?u ð?i v?i Oracle

Khi b?n liên k?t m?t h?nh th?c v?i m?t recordset ADO b?ng cách s? d?ng d? li?u t? m?t cõ s? d? li?u Oracle, không có hai yêu c?u chính:

• ADO k?t n?i ðý?c s? d?ng b?i recordset ph?i s? d?ng các nhà cung c?p c?a Microsoft OLEDB cho Oracle.
• ADO Recordset ph?i là m?t con tr? phía khách hàng.

Ví d? sau ðây ch?ng t? làm th? nào ð? m? m?t ADO k?t n?i ð?n m?t cõ s? d? li?u Oracle và liên k?t m?t h?nh th?c v?i nó.

CHUì Yì: Các bý?c này gi? ð?nh r?ng cõ s? d? li?u Oracle có ch?a m?t b?ng tên khách hàng là gi?ng h?t nhau trong c?u trúc b?ng khách hàng ? các m?u cõ s? d? li?u Northwind.mdb.

1. M? cõ s? d? li?u m?u Northwind.mdb.
2. M? các h?nh th?c khách hàng theo quan ði?m thi?t k?.
3. R? ràng các RecordSource b?t ð?ng s?n c?a các h?nh th?c ð? unbind m?u.
4. Ð?t các OnOpen tài s?n c?a các h?nh th?c ð? th? t?c s? ki?n sau ðây:

   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. Thêm m? sau s? ki?n này l?y c?a các h?nh th?c:

   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. Lýu bi?u m?u, và sau ðó ðóng nó.
7. M? các h?nh th?c khách hàng trong d?ng xem.
8. Thêm, ch?nh s?a ho?c xóa m?t h? sõ theo h?nh th?c.

Lýu ? r?ng các h?nh th?c là ràng bu?c ð? m?t recordset updateable là d?a trên d? li?u Oracle.

Ð? bi?t thêm chi ti?t, b?m vào bài vi?t sau ðây s? ð? xem bài vi?t trong cõ s? ki?n th?c Microsoft: Các s?n ph?m c?a bên th? ba có th?o lu?n trong bài vi?t này ðý?c s?n xu?t b?i các công ty ð?c l?p Microsoft. Microsoft ðýa ra không có b?o hành, ng? ? hay cách khác, liên quan ð?n các hi?u su?t ho?c ð? tin c?y c?a các s?n ph?m này.