Truy cập dữ liệu từ xa

ActiveX EXE

Đừng dùng các ActiveX EXE triển khai từ xa. Ví tính năng của MTS đáp ứng rất tốt vấn đề triển khai từ xa.

Triển khai activex dll từ xa dùng mts (microsoft transaction server )

Triển khai một thành phần dùng MTS là cách dễ nhất để tạo một ứng dụng phân tán.

MTS chạy trên WinNT, Win95 và Win98; nhưng hiệu quả nhất là WinNT

MTS có trong bộ WinNT 5.0. Với NT 4.0 ( là môi trường chúng ta đang nói chuyện), ta phải cài đặt phiên bản mới nhất của MTS dùng Windows Option Pack, kèm theo đĩa CD của Visual Basic. Nó nằm trong đĩa 2 của bản Enterprise, thư mục NToptpak. Hoặc là ta có thể tải xuống WindowsOptionPack từ web site tại http://www.microsoft.com/windows/dowloads/contents/Updates/NT40ptPK. Lưu ý rằng Option Pack được áp dụng cho Win95, Win98 – khi cài NTOption Pack trên máy không phải NT, ta có PersonalWebServer đối với Win95 và một phiên bản hạn chế của MTS.

Phần này làm việc với MTS 2.0. Chương này chỉ nói về sử dụng MTS với vai trò là một trung gian yêu cầu đối tượng và theo dõi các thành phần phân tán từ xa. Ta không tìm hiểu các tính năng khác của MTS như là cho phép transaction giữa các thành phần, hay là mô hình bảo mật của MTS.

Muốn nghiên cứu thêm MTS vào http://www.microsoft.com/ntServer/basics/appservices/transsvcs/

Triển khai một thành phần từ xa dưới MTS có 3 bước:

1. Tạo gói MTS để chứa thành phần.
2. Đặt thành phần vào gói.
3. Export gói ra từ MTS và cài đặt vào máy Client.

Tạo gói MTS

Gói MTS là một nơi chứa logic cho một hay nhiều mô-dun lớp chứa trong ActiveX DLL.Việc tạo gói cung cấp khả năng quản lý mọi lớp chứa trong gói, thậm chí các lớp của các thành phần khác.

1. Phóng MTS từ menu Start của Windows (Nó tồn tại trong các nhóm lập trình khác nhau tuỳ theo phiên bản và cách cài đặt).

2. MTS xuất hiện trong cửa sổ MicrosoftManagement Console: MMC cung cấp khả năng mở rộng thông qua snap-in. Snap-in là một thành phần phần mềm hoạt động như một phần nối giữa MMC và công cụ của Server. Snap-in được đóng gói như một ActiveX DLL, nhưng ta chưa thể xây dựng snap-in trong Visual Basic. Vì vậy, nếu bạn có một công cụ phần mềm mà bạn muốn quản lý trong MMC, bạn phải chờ đến khi nó hỗ trợ Visual Basic hoặc là bạn viết snap-in trong Visual C++.

3. Trong phần cửa sổ bên trái, mở mục MicrosoftTransactionServer, sau đó mở

Computers,rồi MyComputer. Ta sẽ thấy mục Packages Installed.

4. Nhấn vào mục này, Ta sẽ thấy một số gói có sẵn (mặc dù các gói này có thể thay đổi tuỳ vào hệ thống ).

5. Nhấn nút phải chuột trên thư mục PackagesInstalled.Từ menu bật ra, chọn

Ne w , Package.

6. Trình tự động PackageWizardxuất hiện. Chọn Createanemptypackage.Đặt tên nó là Novelty.

7. Màn hình SetPackageIdentifyxuất hiện. Bởi vì ta không dùng bảo mật với thành phần này, hãy để nó quy định là Interactive user, rồi nhấn Finish.

8. Ta sẽ thấy gói mới trong thư mục Package Installed.

Mặc dù ta đã tạo xong gói, nhưng nó chưa làm gì cả, bởi vì ta chưa thêm thành phần cho nó.

Đưa thành phần vào gói

Công việc rất đơn giản chỉ cần kéo rê ActiveX DLL vào gói đã tạo sẵn.

1. Trong MTS, mở mục Novelty dưới mục Packages Installed.
2. Ta sẽ thấy 2 mục : Components và Roles. Nhấn vào mục Components. Mục này rỗng vì ta chưa thêm thành phần vào.
3. Sắp xếp các cửa sổ màn hình sao cho WindowsExplorer mở sát bên cửa sổ MTS.
4. Chọn và kéo rê tập tin ActiveX DLL từ cửa sổ Windows Explorer vào phần bên phải của cửa sổ MTS. Các lớp được cung cấp bởi thành phần được thêm vào gói MTS.

Một biểu tượng quả bóng màu xanh lá cây và đen hiển thị trong mục Components cho biết thành phần đã được cài đặt và nó đang phục vụ yêu cầu. Ta có thể kiểm tra bằng cách :

1. Tạo một ứng dụng Visual Basic kiểu Standard EXE.

2. Dùng menu ProjectReferences, cho một tham chiếu đến thành phần CustSrv mà ta vừa đặt trong MTS. (Tên thư viện là CustSvr2)

3. Nhập đoạn chương trình sau đây:

Private mCust As CCustomer
    Private Sub Form_Load()
    Set mCust = New CCustomer
    End Sub
    Private Sub Form_Unload(Cancel As Integer) Set mCust = Nothing
    End Sub
    

Ứng dụng này không làm gì với thành phần cả, nó chỉ giữ một instance của đối tượng được mở để ta có thể xem xét cách MTS phục vụ các yêu cầu.

4. Thi hành ứng dụng. Nếu ta sắp xếp 2 cửa sổ của ứng dụng và cửa sổ của MTS sát cạnh nhau, ta sẽ thấy quả bóng đang quay, thể hiện nó đang phục vụ các yêu cầu của ứng dụng.

5. Đóng ứng dụng, quả bóng ngừng quay nó không phục vụ nữa.

Trong khi quả bóng đang quay, ta có thể nhấn nút phải chuột lên biểu tượng gói, khám phá cửa sổ Propertiescủa nó. Trong cửa sổ này, chọn tab Advanced,MTS cho phép ta quy định MTS sẽ giữ thành phần nạp vào bộ nhớ trong bao nhiêu phút sau lần truy cập đầu tiên. Giá trị này có thể là 0, nghĩa là thành phần bị xoá khỏi bộ nhớ ngay khi ứng dụng nhả nó ra. Nếu giá trị này là 1440 phút, thành phần được cachevào bộ nhớ trong 24 giờ sau khi Client truy cập lần cuối cùng. Nếu muốn nạp thành phần vào bộ nhớ bất chấp Client có dùng nó hay không, chọn tuỳ chọn “Leaverunningwhen idle.” Nó sẽ tăng khả năng hoạt động và tiêu tốn vùng bộ nhớ trên phía Server.

Export và cài đặt gói MTS trên máy Client

Để cho phép ứng dụng Client truy cập thành phần chạy dưới MTS, ta phải đăng ký vào Registry của máy Client để báo với nó rằng thành phần đang chạy từ xa.

Để Client nhận ra thành MTS phân phát từ xa, ta làm như sau :

• Export gói :Tạo một tập tin cho phép cài đặt. Tập tin này thi hành mọi hoạt động cần thiết để Client nhận ra thành phần triển khai từ xa.
• Cài đặt gói lên máy Client.

Để xem ví dụ ta làm như sau:

1. Trong cửa sổ MTS, nhấn nút phải chuột lên gói Novelty. Từ menu bật ra, chọn Export.
2. Hộp thoại ExportPackage xuất hiện. Dùng nút Browseđể chọn một thư mục rỗng để export gói. Cho vào tập tin Novelty, nhấn Save.
3. Trở về hộp thoại ExportPackage. Nhấn Export. Sau một lúc, thông báo “The package was successfully exported” xuất hiện.

Thư mục dùng để export gói giờ đây chứa các tập tin bao gồm:

• Một tập tin gọi là Novelty.PAK
• Bản sao của ActiveX DLL, CustSvr2.dll
• Một thư mục gọi là Clients. Thư mục này chứa một tập tin EXE gọi là Novelty. exe

Tập tin Novelty.PAK và CustSvr2.DLL được dùng để tạo bản sao cho bộ cài đặt của gói Novelty vào máy MTS. Tập tin Novelty.exe chạy trên máy Client để chuyển yêu cầu của đối tượng chứa trong CustSvr2.dll vào máy MTS. Mỗi lần chạy Novelty.exe trên máy Client, ứng dụng tham chiếu đến thành phần CustSvr2 sẽ truy cập nó qua mạng thay vì truy cập nội bộ.

Để xoá một thành phần khỏi MTS, chỉ cần nhân nút phải chuột lên nó và và chọn Delete trong menu bật ra. Thực chất, hành động này không xóa ActiveDLLkhỏi hệ thống; nó chỉ bỏ những gì đã đăng ký. Ứng dụng sẽ không thể dùng thành phần cho đến khi nó được đăng ký lại.

Dùng Microsoft Access để tạo Bản thiết kế gốc và bản sao

Trong khi ta có thể tiến hành Replication dùng chương trình của DAO, Microsoft Access là cách dễ hơn để bắt đầu Replication. Bởi vì Access có các lệnh menu quản lý việc tạo các Bản thiết kế gốc và bản sao cơ sở dữ liệu tự động.

Để tạo một Bản thiết kế gốc dùng Microsoft Access, ta cần cài đặt tính năng gọi là Sao chụp cặp đựng tài liệu-Briefcase Replication. Đây là tuỳ chọn lúc ta cài đặt Access; còn nếu chưa có sẵn, Access sẽ thông báo những gì cần làm khi ta tạo Bản thiết kế gốc,gồm các bước sau :

1. Chắc chắn rằng cần phải tạo bản sao dự phòng (backup) cơ sở dữ liệu mà không bàn cãi. Ví dụ, nếu ta đang làm việc với cơ sở dữ liệu tên là novelty.mdb, ta có thể đặt tên nó là nmaster.mdb.
2. Mở cơ sở dữ liệu trong Microsoft Access
3. Từ menu Tools, chọn Replication.Chọn CreateReplica từ menu con.
4. Access phát ra một cảnh báo rằng cơ sở dữ liệu cần được đóng trước khi tạo bản sao từ đó. Nó hỏi có muốn đóng cơ sở dữ liệu và chuyển đổi nó thành Bản thiết kế gốchay không. Chọn Yes.
5. Cơ sở dữ liệu đóng. Kế tiếp, Access cảnh báo nên tạo một bản sao dự phòng cho cơ sở dữ liệu và hỏi có muốn thực hiện điều này trước khi tiến hành quy trình sao chụp không. Chọn Yes.
6. Access chuyển đổi cơ sở dữ liệu thành Bản thiết kế gốc và tạo một bản sao từ đó, nó yêu cầu ta đặt tên cho bản sao cơ sở dữ liệu. Nếu ta đang dùng cơ sở dữ liệu Novelty, ta có thể đặt tên cho bản sao là nreplica.mdb.
7. Khi việc sao chụp thành công, Access hiển thị một thông báo giải thích những gì đã thực hiện.

Thêm các đối tượng hỗ trợ sao chụp vào cơ sở dữ liệu trong Microsoft Access

Ban đầu, khi thêm một đối tượng mới (như một bảng hoặc truy vấn) vào cơ sở dữ liệu Bản thiết kế gốc, bởi mặc định, nó không được sao chụp. Trong Microsoft Access, điều này là hiển nhiên bởi vì các loại đối tượng cơ sở dữ liệu khác nhau (hỗ trợ sao chụp và không sao chụp) có các biểu tượng khác nhau trong cửa sổ Database của Access.

Muốn biến một đối tượng cơ sở dữ liệu mới thành đối tượng dữ liệu hỗ trợ sao chụp ta làm như sau:

1. Trong cửa sổ Database, nhấn nút phải chuột trên đối tượng cơ sở dữ liệu mà ta muốn thay đổi trạng thái sao chụp của nó.
2. Từ menu bật ra, chọn Properties.
3. Hộp thoại DatabaseObjectProperties xuất hiện.
4. Chọn vào hộp đánh dấu Replicable, nhấn OK. Biểu tượng của đối tượng cơ sở dữ liệu thay đổi phản ánh trạng thái mới của nó là một đối tượng hỗ trợ sao chụp. Sau này, khi tiến hành đồng bộ hoá cơ sở dữ liệu, đối tượng cơ sở dữ liệu mới được copy vào bản sao cơ sở dữ liệu.

Với kỹ thuật này, ta có thể thay đổi trạng thái sao chụp của một đối tượng cơ sở dữ liệu bất kỳ tại một thời điểm bất kỳ. Để biến đối tượng thành cấm sao chụp, đơn giản ta chỉ cần bỏ chọn trong hộp đánh dấu replicable trong hộp thoại Database ObjectProperties.Tuy nhiên, lưu ý rằng, khi ta chuyển một đối tượng cơ sở dữ liệu đặc biệt thành cấm sao chụp, những đối tượng được copy trước đó vào một bản sao cơ sở dữ liệu sẽ bị xoá khi tiến hành đồng bộ hoá.

Thiết lập Replication với DAO

Để bắt đầu dùng Replication với lập trình DAO, ta phải cho phép cơ sở dữ liệu hỗ trợ Replication. Để thực hiện điều này, thêm một thuộc tính động vào đối tượng Database thể hiện cơ sở dữ liệu. Khái niệm thuộc tính động chủ yếu để hiểu cách thực hiện Replication với DAO; các thuộc tính hiệu chỉnh cho phép mở rộng mô hình đối tượng của DAO.

Các thuộc tính động của cơ sở dữ liệu Jet được giới thiệu trong chương 13 “Đối tượng truy cập dữ liệu ”. Dùng DAO, ta có thể lập trình để xác định các thuộc tính của một đối tượng cơ sở dữ liệu đặc biệt. Ví dụ sau đây trình bày liệt kê tất cả các thuộc tính của một bảng trong Bản thiết kế gốc.

Option Explicit
    ' References DAO 3.51. Dim db As Database
    Dim pr As Property
    Dim td As TableDef
    Public Sub ListProps()
    Set db = OpenDatabase("....DB
master.mdb") Set td = db.TableDefs("tblCustomer")
    For Each pr In td.Properties
    Debug.Print pr.Name
    Next
    End Sub
    

Biến một cơ sở dữ liệu thành cơ sở dữ liệu hỗ trợ sao chụp bằng cách tạo một thuộc tính Replicable,sau đó quy định giá trị cho nó là chuỗi “T”. Biến một cơ sở dữ liệu thành cơ sở dữ liệu hỗ trợ sao chụp sẽ chuyển đổi nó thành Bản thiết kế gốc; điều này khác với khi tạo các đối tượng riêng rẽ ở trong cơ sở dữ liệu hỗ trợ sao chụp. Làm việc với DAO khác với khi ta làm việc với Microsoft Access, bởi vì tự Access đã thực hiện việc sao chụp bên trong. Khi ta yêu cầu Access tạo một bản sao, nó tự làm thêm việc chuyển cơ sở dữ liệu thành cơ sở dữ liệu hỗ trợ sao chụp trên đối tượng cơ sở dữ liệu mà ta chọn.

Dùng chương trình viết với DAO để biến cơ sở dữ liệu thành cơ sở dữ liệu hỗ trợ sao chụp :

Option Explicit
    ' References DAO 3.51. Dim db As Database
    Dim pr As Property
    Dim td As TableDef
    Const DBPath = "....DB
ovelty.mdb"
    Const MasterDBPath = "....DB
master.mdb" Const ReplicaDBPath = "....DB
replica.mdb" Private Sub cmdMakeDBRep_Click()
    On Error GoTo ErrHandler
    ' The "True" parameter in the OpenDatabase method
    ' tells Jet to open the database for exclusive
    ' access, which is required for creating properties. FileCopy DBPath, MasterDBPath
    Set db = OpenDatabase(MasterDBPath, True)
    With db
    Set pr =.CreateProperty("Replicable", dbText, "T")
    .Properties.Append pr
    .Properties("Replicable") = "T" End With
    MsgBox "The database has been copied to " & _
    db.Name & _
    " and its Replicable property is now " & _
    db.Properties("Replicable").Value
    db.Close
    Set db = Nothing' Release exclusive lock on db.
    Exit Sub
    ErrHandler:
    Select Case Err.Number
    Case 3367' Replicable property already exists
    Exit Sub' So ignore the error and exit
    Case Else' Something unforseen happened
    MsgBox "Error: " & Err & " - " & Error
    End Select
    End Sub
    

Tuy nhiên, có một rắc rối khi tạo một thuộc tính Replicable cho một cơ sở dữ liệu

– Sau khi tạo ra, ta không thể loại bỏ nó. Thử dùng đoạn chương trình sau để loại bỏ :

db.Properties.Delete “Replicable”

Nhưng không thực hiện được. Đoạn chương trình phát ra báo lỗi số 3607, thông báo rằng đây là thuộc tính chỉ đọc và không thể loại bỏ. Vì vậy, như đã cảnh báo ở phần trước, việc tạo bản dự phòng cho cơ sở dữ liệu là điều đặc biệt quan trọng khi ta thao tác với DAO để thực hiện Replication.

Tạo đối tượng trong cơ sở dữ liệu hỗ trợ sao chụp

Sau khi tạo cơ sở dữ liệu hỗ trợ sao chụp, ta phải tạo các đối tượng riêng rẽ (như bảng) trong cơ sở dữ liệu này. Thực hiện điều này bằng cách tạo đối tượng Replicable cho chúng, tương tự như khi ta thực hiện với cơ sở dữ liệu. Các đối tượng cơ sở dữ liệu có thuộc tính Replicable là “T” sẽ được sao chụp đồng bộ hoá.

Để thực hiện điều này, ta dùng đoạn chương trình sau đây. Giả sử rằng đây là cơ sở dữ liệu hỗ trợ sao chụp; ta lấy một bảng hiện hành trong cơ sở dữ liệu và biến nó thành bảng hỗ trợ sao chụp.

Private Sub cmdMakeTable_Click() On Error GoTo ErrHandler
    Set db = OpenDatabase(MasterDBPath, True) Set td = db.TableDefs("tblCustomer") td.Properties("Replicable") = "T"
    On Error GoTo 0
    MsgBox "The Replicable property of " & _
    td.Name & _
    " has been set to " & _
    td.Properties("Replicable")
    Set db = Nothing' Release exclusive lock on DB Exit Sub
    ErrHandler:
    If Err.Number = 3270 Then
    Set pr = td.CreateProperty("Replicable", dbText, "T")
    td.Properties.Append pr
    Else
    MsgBox "Error " & Err & " - " & Error
    End If
    End Sub
    

Đoạn chương trình này tương tự đoạn chương trình thiết lập thuộc tính Replicable của cơ sở dữ liệu. Ở đây, bẫy lỗi đảmnhiệm tình huống thuộc tính Replicablechưa được tạo cho đối tượng. Đoạn chương trình bẫy lỗi để xác định thuộc tính Replicable của đối tượng cơ sở dữ liệu có tồn tại không; nếu chưa có, nó tạo ra thuộc tính đó và quy định thuộc tính hiệu chỉnh là chuỗi “T”. Giá trị “T” làm cho đối tượng ( và các dữ liệu chứa bên trong nó ) được copy vào bản sao cơ sở dữ liệu vào lúc đồng bộ hoá.

Giá trị “T” của thuộc tính Replicable của đối tượng cơ sở dữ liệu tự động đổi thuộc tính KeepLocal thành “F”.

Dùng thuộc tính ReplicableBool để biến đối tượng thành đối tượng hỗ trợ sao chụp

Chú ý rằng các thuộc tính hiệu chỉnh ta dùng đến giờ đều có giá trị là ký tự - ký tự T hay F thể hiện giá trị Boolean là True hay False.Bởi vì khi chúng được giới thiệu cho Jet, các thuộc tính cơ sở dữ liệu hiệu chỉnh chỉ có thể chứa giá trị là ký tự. Trong Jet 3.51, các thuộc tính hiệu chỉnh có thể chứa một tập hợp rất phong phú gồm nhiều kiểu dữ liệu. Nhờ đó, nó giúp ta tạo các thuộc tính gắn liền với Replication trong DAO một cách dễ dàng hơn nếu như ta thích dùng True /Falsethay vì T / F.

Nếu muốn thuộc tính Replicable của đối tượng cơ sở dữ liệu dùng giá trị Boolean, ta tạo và định thuộc tính ReplicableBool thay vì Replicable.ReplicatonBool dùng giá trị Boolean, thay vì chuỗi ký tự.

Private Sub cmdMakeTableBool_Click() On Error GoTo ErrHandler
    Set db = OpenDatabase(MasterDBPath, True) Set td = db.TableDefs("tblCustomer") td.Properties("ReplicableBool") = True
    On Error GoTo 0
    MsgBox "The Replicable property of " & _
    td.Name & _
    " has been set to " & _
    td.Properties("Replicable")
    Set db = Nothing' Release exclusive lock on DB Exit Sub
    ErrHandler:
    If Err.Number = 3270 Then
    Set pr = td.CreateProperty("ReplicableBool", dbBoolean, True)
    td.Properties.Append pr
    Else
    MsgBox "Error " & Err & " - " & Error
    End If
    End Sub
    

Khi tạo và dùng thuộc tính ReplicableBool, thuộc tính Replicable cũng trở thành có sẵn, và 2 thuộc tính trả về cùng giá trị, nghĩa là nếu ta quy định ReplicableBoollà True, thì đọc thuộc tính Replicable,ta thấy nó là “T”.

Lập trình với DAO để tạo một cơ sở dữ liệu bản sao

Tạo một cơ sở dữ liệu bản sao từ Bản thiết kế gốc bằng cách thi hành phương thức MakeReplica của đối tượng Database.

Cú pháp :

db.MakeReplica <tên tập tin>,[<mô tả>],