Kết nối cơ sở dữ liệu sử dụng công nghệ ADO (activex data objects)

Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Bởi: Khoa CNTT ĐHSP KT Hưng Yên Công nghệ Open Database Connectivity (ODBC) ODBC công nghệ Windows cho phép sử dụng client nối với sở liệu từ xa Lưu trú máy Cilent, ODBC tìm cách làm cho nguồn liệu quan hệ trở thành tổng quát ứng dụng Client Điều có nghĩa ứng dụng Client không cần quan tâm kiểu liệu sở mà nối Bởi công nghệ phía Client, ODBC không đòi hỏi phải xử lý Servercuar sở liệu ODBC gồm phần : - Trình quản lý điều khiển (Driver maneger) • Một hay nhiều trình điều khiển (Driver) • Một hay nhiều nguồn liệu (Data source) Kiến trúc ODBC 1/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Tạo nguồn liệu ODBC Để tạo ứng dụng Client nối với sở liệu Client/Server dùng ODBC, trước hết ta phải cung cấp thông tin nguồn liệu client Mỗi server yêu cầu gói thông tin khác để nối với client ODBC cung cấp cho thông tin tên đơn giản để ta tham chiếu đến nó, thay phải thiết lập gói thông tin từ đầu lần ta cần đến Điều cung cấp cho ứng dụng Client khả tham chiếu cách dễ dàng đến tổ hợp điều khiển, sở liệu thêm tên người sử dụng mật Tên tên nguồn liệu hay DSN Để tạo tên nguồn liệu ODBC máy Client, ta theo bước sau: + Đảm bảo có SQL Server hoạt động vàg truy cập từ máy Client + Từ Start chọn Setting chọn ConTrol Panel + Nhấn đúp chuột lên biểu tượng ODBC Hộp thoại quản trị nguồn liệu xuất hiện: Ta tạo ba kiểu nguồn liệu ODBC: + User DSN: Chỉ có người tạo sử dụng máy dùng + System DSN: Bất kỳ sử dụng máy dùng Đây kiểu nguồn liệu mà ta cần tạo cài đặt ứng dụng sở liệu Web 2/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) + File DSN: Có thể copy sử dụng dễ dàng máy khác Tạo System DSN Chọn Vào Tab System DSN cửa sổ ODBC Data Source Administrator Nhấn nút Add Hộp thoại Create New Data Source xuất hiện, chọn tên diều khiển sở liệu ta muốn dùng Nhấn Finish Trình tạo nguồn sở xuất Trong ô Name nhập tên nguồn liệu Tên dùng ứng dụng Client để tham chiếu đến sở liệu, nên đặt tên cho dễ nhớ Điền vào ô Description thông tin mô tả sở liệu, thông tin hiển thị cửa sổ Control Panel Trong hộp kết hợp Server, chọn chọn máy sở liệu Nhấn Next, hình trình tự động xuất hiện, hỏi ta cách Login vào Server Màn hình trình tự động xuất hiện, chọn vào hộp đánh dấu “Change the Default database to” chọn sở liệu vừa đạt tên 10 Nhấn Next hình kế xuất hiện, nhắc ta chọn thông dịch ký tự (thông thường ta để mặc định ta sử dụng ký tự khác Server) nhấn next 11 Màn hình kế cho ta chọn khả kích hoạt tác vụ ghi nhật ký Thông thường ta chuyển thành On ta gặp lỗi hay tìm kiếm nguyên nhân ách tắc ứng dụng Nếu bật tuỳ chọn thành on quên không tắt thành off đay nguyên nhân phổ biến suy biến khả hoạt động truy vấn sử dụng ODBC, Vì công cụ gỡ rối nên nhớ chuyển thành off ta đưa ứng dụng thành sản phẩm Nhấn Finish, hộp thoại xuất mô tả chi tiết nguồn liệu mà ta vừa tạo Sau nhấn nút Test Data Source Trình điều khiển đáp ứng cách thông báo kết nối vừa thiết lập thành công Công nghệ OLE DB (Object Linking and Embedding Data Base) OLE DB tập hợp hệ giao tiếp truy cập liệu Microsoft dùng để cung cấp tích hợp liệu chung doanh nghiệp bất chấp loại liệu Những giao diện cho phép nguồn liệu chia sẻ thông tin chúng qua giao diện chung mà không cần bổ sung chức CSDL nơi lưu trữ Ta cần lập trình với phần giao diện người sử dụng phía Client, truy cập liệu trình trình duyệt Web ứng dụng Visual Basic chuyển hết phía ActiveX Server, ta đảm bảo logic chương trình quán, loại chương trình dùng 3/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Chỉ trình cung cấp OLE DB chuỗi kết nối Nếu không trình cung cấp, ta không dùng đối tượng Connection, ta có trình cung cấp mặc định trình cung cấp ODBC MSDASQL Dùng đối tường connection ADO để kết nối với nguồn liệu Thuộc tính Provider đối tượng Connection chuỗi ký tự kết nối mà trình cung cấp OLE DB dùng, dùng chuỗi kết nối ADO ConnectionString để cung cấp thông tin cách thức kết nối với Server Tuỳ thuộc vào nguồn liệu mà thông tin kết nối khác nhau: - Khi ta dùng trình cung cấp ODBC: cn.provider = “MSDASQL” cn.ConnectionString = “DSN = tracnghiem” Tất nhiên DSN tên tracnghiem phải thực tồn máy Client Trường hợp kết nối DSN cn.provider = “MSDASQL” cn.ConnectionString = “Driver =SQL Server; DataBase =Tracnghiem; UID=Hue; PID=minhhue; ” Kết nối nhanh không cần đọc thông tin DSN từ bảng đăng ký Windows Tuy nhiên linh hoạt gắn chặt thông tin biên dịch - Dùng trình cung cấp Jet chuỗi kết nối đường dẫn tập tin MDB: cn.Provider = ”Microsoft.Jet.OLEDB.4.0 ” cn.ConnectionString = “c:\data\dulieu.mdb” Để kết nối sở liệu bảo mật trình cung cấp Jet ta phải cung cấp thêm thông tin thông qua tập hợp Properties đối tượng connection Thường tên người sử dụng, mật khẩu, vị trí sở liệu chứa thông tin bảo mật Cn.Provider = “Microsoft.Jet.OLEDB.4.0” Cn.ConnectionString =”C:\data\dulieu.mdb” 4/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Cn.Properties(“PassWord”) = “minhhue” Cn.Properties(“User ID”) = “Hue” - Để nối với sở liệu SQL Server, ta dùng trình cung cấp SQLOLEDB.1 cn.Provider = “SQLOLEDB.1” cn.ConnectionString = “DATABASE = dulieu; SERVER = NameServer; UID = hue; PWD = minhhue” Lưu ý trường hợp này, chuỗi kết nối SQL Server tương tự với chuỗi kết nối DSN, ngoại trừ tham số DRIVER= - Để kết nối với Oracle, ta dùng trình điều khiển Oracle gọi MSDAORA cn.Provider =”MSDAORA” cn.ConnectionString = User/MyPassWord@ServiceName Trên cách kết nối Oracle chuẩn, tổ hợp tên người sử dụng, mật tên dịch vụ Ta logon vào Oracle cách cung cấp Server, tên người sử dụng tham số cho phương thức Open đối tượng connection Dim cn As ADODB.Connection Set cn = New ADODB.connection cn.Provider = “MSDAORA” cn.Open “Server”, “UserID”, “PasWord” Công nghệ Data Access Object (DAO) Ta dùng DAO để thao tác với sở liệu (CSDL) thông qua môi trường lập trình Visual Basic 6.0, với DAO ta thi hành câu truy vấn, cập nhật giá trị, bảng CSDL tạo cấu trúc CSDL bao gồm bảng, câu truy vấn chứa sẵn mối quan hệ bảng Mô hình đối tượng DAO phức tạp với hàng trăm yếu tố, hàng tá kiểu tập hợp chứa nhiều đối tượng xử lý CSDL Thông qua tập hợp sở hữu đối tượng DataBase, ta thao tác liệu cấu trúc CSDL chứa CSDL 5/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Trong lập trình DAO, có tập hợp cốt lõi gồm kỹ thuật thông dụng sử dụng gần cho chương trình Chúng bao gồm: - Thi hành câu truy vấn SELECT để lấy liệu từ CSDL - Duyệt qua mẩu tin RecordSet - Thi hành câu truy vấn hành động (Update, Delete Append, ) - Sửa đổi cấu trúc CSDL - Xử lý lỗi phát sinh truy cập CSDL + Các tập hợp có lập trình DAO 3.5 thể chúng: Tập hợp Thể Giao diện Thể kết nối mở cho máy CSDL, thông Thuộc tính Count, WorkSpaces thường ta có workspace hoạt động Append, Delete thời điểm thời phương thức Refresh DataBase Tất CSDL mở workspace, thường ta có CSDL mở thời Thuộc tính Count, phương thức Refresh TableDefs Tất định nghĩa bảng có CSDL Thuộc tính Count, Append, Delete, phương thức Refresh QueryDefs Tất định nghĩa truy vấn có CSDL Thuộc tính Count, Append, Delete, phương thức Refresh RecordSet Tất RecordSet mở ngữ cảnh CSDL Thuộc tính Count, phương thức Refresh Parameter Các tham số có QueryDef định Thuộc tính Count, phương thức Refresh Relations Mối quan hệ định nghĩa CSDL đặc biệt Thuộc tính Count, Append, Delete, phương thức Refresh Connections Kết nối đến CSDL hữu đối tượng workspace =ODBCDirect Thuộc tính Count, phương thức Refresh 6/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Chỉ mục thuộc TableDef định Thuộc tính Count, Append, Delete, phương thức Refresh Fields Các trường có cấu trúc liệu Thuộc tính Count, Append, Delete, phương thức Refresh Groups Nhoms bảo mật sở hữu CSDL (tham khảo phần CSDL nhiều người sử dụng) Thuộc tính Count, Append, Delete, phương thức Refresh Users Danh sách người sử dụng xác định tính bảo mật CSDL (tham khảo phần CSDL nhiều người sử dụng) Thuộc tính Count, Append, Delete, phương thức Refresh Errors Lỗi sinh hành động DAO Thuộc tính Count, phương thức Refresh Containers Nhóm đối tượng tài liệu định nghĩa sẵn chứa CSDL Thuộc tính Count, phương thức Refresh Documents CSDL, bảng, quan hệ ví dụ đối tượng Thuộc tính Count, phương thức Refresh Các thuộc tính đối tượng DAO Thuộc tính Count, Append, Delete, phương thức Refresh Indexes Properties Sử dụng DAO để làm việc với sữ liệu Dùng đối tượng DataBase để kết nối với CSDL + Từ menu Project chọn Reference + Chọn "Microsoft DAO 3.51 Object Library" + Chọn OK Dùng phương thức OpenDataBase để tạo đối tượng DataBase Phương thức trả đối tượng DataBase trước dùng ta phải khai báo biến đối tượng có kiểu DataBase để chưa giá trị trả phương thức Dim DB As Database 7/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Set DB = OpenDatabase(DBName, [Option], [ReadOnly], [Connect]) DBName: Tên file CSDL Option: = True: CSDL mở chế độ loại trừ (không khác mở nó) = False: Mọi người mở ReadOnly: = True: Ta sửa đổi CSDL Connect: Cách thức kết nối với CSDL Client/Server ? Dùng đối tượng RecordSet để thao tác với mẩu tin Ta sử dụng đối tượng RecordSet để thao tác với mẩu tin DAO Đối tượng RecordSet cung cấp giao diện hướng đối tượng cho mô hình CSDL quan hệ liên quan đến bảng chia thành mẩu tin trường ? Dùng phương thức OpenRecordSet để tạo đối tượng RecordSet Trong DAO đối tượng DataBase, Connection, QueryDef, TableDef, RecordSet có phương thức OpenRecordSet, tất dùng để truy cập liệu chứa CSDL Set Recordset = object.OpenRecordset (Source, [Type], [Options],[LlockEdits]) Recordset: Biến đối tượng bạn muốn mở Object: Đối tượng tồn để tạo có phương thức OpenRecordSet Source: Một chuỗi nguồn liệu mà RecordSet lấy, tên bảng, tên truy vấn câu truy vấn Type Lựa chọn: Một số quy định kiểu chỏ Recordset mở Options Lựa chọn: Một kết hợp số đặc tính Recordset LockEdit Lựa chọn: Một số xác định khoá Recordset Type: nhận kiểu sau Tên Mô tả (ý nghĩa) 8/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) dbOpenTable Tạo đối tượng Recordset kiểu bảng WorkSpaceCho phép sửa đổi ghi, trình bày kết câu truy vấn nhiều bảng dbOpenDynamic Mở đối tượng Recordset kiểu Dymamic WorkSpace Cho phép sửa đổi, thêm hay xoá RecordSet mở user khác, không hiệu = Dynaset dbOpenDynaset Mở đối tượng Recordset kiểu Dynaset , cho phép cập nhật, cho phép lấy mẩu tin từ nhiều bảng = cách nối bảng, cập nhật được, tốc độ tìm kiếm chậm dbOpenSnapshot Mở đối tượng Recordset kiểu Snapshot, nhanh Dynaset, cập nhật trả Dynaset lấy tham chiếu RecordSet (Defalt) Mở đối tượng Recordset tương tự Snapshot dbOpenForwardOnly nhanh Snapshot, trỏ di chuyển tới phía trước Options:Bạn dùng kết hợp cho đối số Options Tên Mô tả (ý nghĩa) dbAppendOnly Cho phép người dùng thêm ghi mới, ngăn chặn sửa đổi, xoá ghi tồn dbSQLPassThrough Thực câu truy vấn (Microsoft Jet snapshot-type Recordset only) dbSeeChanges Phát sinh lỗi người sử dụng thay đổi liệu mà người sử dụng khác truy nhập vào dbDenyWrite Ngăn chặn user khác sửa đổi thêm ghi dbDenyRead Ngăn chặn user khác đọc bảng dbForwardOnly Tạo trỏ Recordset kiểu Snapshot Nó cung cấp tương thích trỏ kiểu Forward bạn nên dùng dbOpenForwardOnly lựa chon Options dbReadOnly Ngăn chặn users thay đổi ghi Bạn nên dùng bReadOnly lựa chon Options dbRunAsync Thi hành truy vấn đồng 9/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) dbExecDirect Thi hành truy vấn trực tiếp gọi SQLExecDirect Chỉ dùng lựa chọn bạn không mở RecordSet Xem thêm Microsoft ODBC 3.0 Programmer’s Reference." dbInconsistent Cho phép cập nhật mâu thuẫn (Microsoft Jet dynasettype and snapshot-type Recordset objects only) dbConsistent Chie cho phép cập nhật thích hợp (Microsoft Jet dynaset-type and snapshot-type Recordset objects only) LockEdits:Bạn dùng cho cho đối số LockEdit Tên Mô tả (ý nghĩa) dbReadOnly Ngăn chặn user thay đổi Recordset (Default cho ODBCDirect workspaces) Bạn dùng dbReadOnly lựa chọn options, LockEdit (nhưng không gồm Nếu bạn dùng có lỗi) dbPessimistic Dùng Pesimistic khoá kết nối môi trường nhiều người dùng dbOptimistic Dùng Pesimistic khoá kết nối môi trường nhiều người dùng thi hành phương thức Update dbOptimisticValue Dùng optimistic đặt sở đồng thời nhiều giá trị hàng dbOptimisticBatch Cho phép cập nhật theo gói ? Các thuộc tính, phương thức RecordSet + Thuộc tính EOF (End Of File) = True trỏ ghi vị trí cuối RecordSet + Thuộc tính BOF (Begin Of File)=True ta di chuyển trỏ ghi đến cuối dòng RecordSet + Các phương thức di chuyển trỏ RecordSet - MoveFirst: Di chuyển trỏ đến mẩu tin RecordSet - MoveNext: Di chuyển trỏ đến mẩu tin sau RecordSet - MovePrevious: Di chuyển trỏ đến mẩu tin trước RecordSet - MoveLast: Di chuyển trỏ đến mẩu tin cuối RecordSet - Move: Di chuyển số mẩu tin định 10/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) + Thuộc tính RecordCount xác định số mẩu tin RecordSet + Phương thức Edit cho phép sửa đổi giá trị mẩu tin - Dùng phương thức duyệt để di chuyển trỏ ghi đến vị trí cần sửa - Thi hành phương thức Edit - Dùng tập hợp Fields đối tượng RecordSet để gán giá trị cho mẩu tin - Dùng phương thức Update để cập nhật giá trị cho RecordSet + Dùng phương thức AddNew Update để tạo mẩu tin - Thi hành phương thức AddNew để thêm ghi - Dùng tập hợp Fields đối tượng RecordSet để gán giá trị cho mẩu tin - Dùng phương thức Update để cập nhật giá trị cho RecordSet + Các phương tìm kiếm để định vị mẩu tin - FindFirst: - FindNext: - FindPrevious: - FindLast: RecordSet.{FindFirst | FindLast | FindNext | FindPrevious} Criteria Criteria: Một xâu chứa điều kiện tìm kiếm Ví dụ: Public dao As Database Private Sub Form_Load() Set dao = OpenDatabase(App.Path & "\qlbh97.mdb") End sub 11/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) -Public Sub mbdao(rs As Recordset, tenbang As String) Set rs = dao.OpenRecordset(tenbang, dbOpenSnapshot) End sub Public cmdthem_Click() Dim rs as Recordset Call modao(rs, “loai”) rs.AddNew rs!maloai = "mb" rs!tenloai = "máy bay" rs.Update rs.Close End sub -Public cmdsua_Click() Dim rs as Recordset Call modao(rs, “loai”) Do While not rs.EOF If Ucase(rs!maloai) = Ucase("mb") then Rs.Edit Rs!tenloai = “Máy bay moi” 12/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Rs.Update End if Rs.MoveNext Loop rs.Close End sub Công nghệ Remote Data Access Object (RDO) + Định cấu hình sử dụng ODBC ODBC công nghệ Windows cho phép ứng dụng Client kết nối với CSDL từ xa ODBC gồm phần: Trình quản lý điều khiển (Driver manager) Một hay nhiều trình điều khiển (Driver) Một hay nhiều nguồn liệu (Data Source) Tạo nguồn liệu cho ODBC Đảm bảo ta có SQL Server hoạt động Phóng Coltrol Panel Chọn ODBC hộp thoại quản trị nguồn liệu xuất 13/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Hình 1.2 Hộp thoại Quản trị nguồn liệu ODBC ? User DSN: Chỉ có người tạo sở dụng máy dùng ? System DSN: Bất kỳ sử dụng máy dùng ? File DSN: Có thể copy sử dụng dễ dàng máy khác Tạo System DSN Chọn tab System DSN cửa sổ ODBC Data Source Administrator Chọn Add Hộp thoại Create New Data Source xuất Chọn tên điều khiẻn CSDL ta muốn dùng Chọn Finish Chọn tên nguồn liệu Name (Tên dùng ứng dụng Client để tham chiếu đến CSDL, nên đặt cho gợi nhớ) 14/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Description định thông tin hiển thị cửa sổ ODBC Control Panel Trong hộp thoại Server, chọn (tên Server) SQL Server chứa CSDL mà ta làm việc Chọn Next chọn chế Login vào server Sau nhập tên người sử dụng mật Nhấn Next Chọn ô đánh dấu "Change the default database", chọn sở liệu "Data" từ hộp kết hợp 10 Nhấn Next Trên hình nhắc ta chọn thông dịch ký tự Hãy nhấn Next 11 Màn hình kế cho ta chọn khả kích hoạt tác vụ ghi nhật ký 12 Chọn Finish sau nhấn nút Test Data Source 13 Nhấn OK , tên nguồn liệu xuất cửa sổ ODBC Data Source Addministrator Kiểm nghiệm kết nối CSDL ODPC (Ping) Công việc dùng cần xác định nguyên nhân trục trặc kết nối Client/Server, Server, kết nối mạng, ODBC hay ứng dụng Client Cú pháp: ODBCPing /UUserName/ PPassWord/ SServer Ví dụ: Để kiểm định kết nối với SQL Server = BEDROCK, UserName= randy, PassWord=Prince ODBCPing /Urandy /Pprince / SBEDROCK +Từ dấu nhắc DOS, gõ lệnh ODBCPing /Urandy /Pprince / SBEDROCK ? + ODBCPING thiết lập kết nối với Server thoát Kiểm nghiệm SQL Server DSN Tạo nguồn liệu ODBC tên Novelty 15/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Tạo đề án Standard.EXE VB Thêm điều khiển "Micrisoft Data Bound Grid Control" Thêm khiển DBGrid Tạo form điều khiển kết nối liệu Đổi thuộc tính Data.DefaultType = - UseODBC Thiết lập thuộc tính Data.Connect = "ODBC;UID=randy; PWD=printce; DSN=Data" Thiết lập thuộc tính Data.RecordSet= "SELECT * from cauhoi" Quy định thuộc tính DBGrid.DataSource = Data1 10 Thi hành ứng dụng Truy cập liệu dùng điều khiển liệu từ xa + Điều khiển liệu từ xa (Remote Data Control - RDO) cách truy cập liệu từ xa ứng dụng viết Visual Basic, giao diện lập trình tương tự điều khiển ADO Data hay DAO Data + Sử dụng RDC - Trong Visual Basic chọn menu Project, Components - Chọn "Microsoft Remote Data Control ", thiết lập tham chiếu đến "Microsoft Data Bound Grid Control " - Chọn OK - Tạo instance cho điều khiển Remote Data điều khiển Data Bound Grid - Nhập tên người sử dụng vào thuộc tính RemoteData UserName - Nhập vào mật người dùng truy cập sở liệu vào thuộc tính RemoteData Passoword - Quy định thuộc tính SQL RemoteData.SQL = "SELECT * from Noidung" 16/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) - Chọn DSN cho sở liệu SQL Server thuộc tính Remote Data.DataSourceName (DSN tạo trước đây, xuất danh sách thả xuống) - Đặt thuộc tính DBGrid.DataSource = MSRDC1 - Thi hành ứng dụng Sử dụng RDO chương trình Đối tượng liệu từ xa (Remote Data Object - RDO) xếp cấu trúc phân nhánh đối tượng tương tự DAO + Tạo tham chiếu đến RDO trước sử dụng: chọn Project/ Reference/ "Microsoft Remote Data Object 2.0" + Chọn OK Thiết lập kết nối dùng đối tượng RDOConnection Ta dùng đối tượng RDOConnection để thiết lập kết nối đến Server sở liệu từ xa RDO Để tạo kết nối dùng đối tượng RDOConnection, ta bắt đầu công việc tạo chuỗi kết nối ODBC gồm phần tử thông dụng: UID Tên login người sử dụng PID Mật người sử dụng DSN Tên nguồn liệu ta tạo trình Quản lý Điều khiển ODBC SRIVER Điều khiển ODBC mà ta muốn dùng DATABASE Tên sở liệu mà ta muốn kết nối APP Tên ứng dụng kết nối với CSDL LANGUAGE Ngôn ngữ quốc tế dùng Server SERVER Tên SQL Server mà ứng dụng kết nối đến Ta không thiết phải dùng toàn tham biến Ví dụ: DSN=DSNQLBH; UID=hue;PWD=minhhue 17/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Nếu không cung cấp tên login mật ngời sử dụng vào chuỗi kết nối, ứng dụng nối đến server, trình điều khiển ODBC hiển thị hộp thoại yêu cầu ngời sử dụng cung cấp thông tin vào Thi hành phơng thức EstablishConnection để thi hành kết nối Ví dụ: Set rdo = New rdoConnection rdo.Connect = "DSN=DSNQLBH" rdo.EstablishConnection Thi hành truy vấn RDOQuery RDOResultset chứa kết mẩu tin trả Dùng đối tợng RDOQuery để tạo câu truy vấn SQL động đối tợng RDOResualset để chứa kết mẩu tin trả thông qua phương thức OpenResultset đối tợng RDOQuery VD: Public rdo as rdoConnection -Public Sub Form_load() Set rdo = New rdoConnection rdo.Connect = "DSN=DSNQLBH" rdo.EstablishConnection End Sub Public Sub mbrdo(rq As rdoQuery, rs As rdoResultset) Dim rq As rdoQuery Dim rs As rdoResultset Set rq = New rdoQuery 18/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Set rq.ActiveConnection = rdo rq.SQL = "select * from loai" Set rs = rq.OpenResultset Do While Not rs.EOF If rs!maloai = "tv" Then rs.Edit rs!tenloai = "ti vi mau" rs.Update MsgBox "mau tin vua duoc sửa" End If rs.MoveNext Loop rs.Close End Sub Công nghệ ActiveX Data Objects (ADO) ADO công nghệ truy cập sở liệu hướng đối tượng ADO xem kỹ thuật để truy cập sở liệu từ Web Server Vì ADO cung cấp dạng thư viện ActiveX Server Ta dùng ADO ứng dụng Visual Basic Trong thực tế sử dụng ADO để làm việc với sở liệu Client / Server dễ kỹ thuật khác ADO giao diện dựa đối tượng cho công nghệ liệu OLE DB 19/19 [...]... dữ liệu (Data Source) Tạo nguồn dữ liệu cho ODBC 1 Đảm bảo rằng ta có một SQL Server đang hoạt động 2 Phóng Coltrol Panel 3 Chọn ODBC hộp thoại quản trị nguồn dữ liệu xuất hiện 13/19 Kết nối cơ sở dữ liệu sử dụng công nghệ ADO (ActiveX Data Objects) Hình 1.2 Hộp thoại Quản trị nguồn dữ liệu ODBC ? User DSN: Chỉ có người tạo ra nó mới sở dụng nó và chỉ trên máy đang dùng ? System DSN: Bất kỳ ai sử dụng. .. 18/19 Kết nối cơ sở dữ liệu sử dụng công nghệ ADO (ActiveX Data Objects) Set rq.ActiveConnection = rdo rq.SQL = "select * from loai" Set rs = rq.OpenResultset Do While Not rs.EOF If rs!maloai = "tv" Then rs.Edit rs!tenloai = "ti vi mau" rs.Update MsgBox "mau tin vua duoc sửa" End If rs.MoveNext Loop rs.Close End Sub Công nghệ ActiveX Data Objects (ADO) ADO là công nghệ truy cập cơ sở dữ liệu. .. lập kết nối với Server rồi thoát Kiểm nghiệm SQL Server DSN 1 Tạo nguồn dữ liệu ODBC tên là Novelty 15/19 Kết nối cơ sở dữ liệu sử dụng công nghệ ADO (ActiveX Data Objects) 2 Tạo 1 đề án Standard.EXE của VB 3 Thêm điều khiển "Micrisoft Data Bound Grid Control" 4 Thêm đều khiển DBGrid 5 Tạo 1 form và 2 điều khiển kết nối dữ liệu 6 Đổi thuộc tính Data. DefaultType = 1 - UseODBC 7 Thiết lập thuộc tính Data. Connect... 12/19 Kết nối cơ sở dữ liệu sử dụng công nghệ ADO (ActiveX Data Objects) Rs.Update End if Rs.MoveNext Loop rs.Close End sub Công nghệ Remote Data Access Object (RDO) + Định cấu hình và sử dụng ODBC ODBC là một công nghệ của Windows cho phép ứng dụng Client kết nối với CSDL từ xa ODBC gồm 3 phần: 1 Trình quản lý điều khiển (Driver manager) 2 Một hay nhiều trình điều khiển (Driver) 3 Một hay nhiều nguồn dữ. .. "SELECT * from Noidung" 16/19 Kết nối cơ sở dữ liệu sử dụng công nghệ ADO (ActiveX Data Objects) - Chọn DSN cho cơ sở dữ liệu SQL Server ở thuộc tính Remote Data. DataSourceName (DSN được tạo trước đây, sẽ xuất hiện trong danh sách thả xuống) - Đặt thuộc tính DBGrid.DataSource = MSRDC1 - Thi hành ứng dụng Sử dụng RDO trong chương trình Đối tượng dữ liệu từ xa (Remote Data Object - RDO) được sắp xếp trong... người sử dụng DSN Tên nguồn dữ liệu ta tạo trong trình Quản lý Điều khiển ODBC SRIVER Điều khiển ODBC mà ta muốn dùng DATABASE Tên cơ sở dữ liệu mà ta muốn kết nối APP Tên ứng dụng kết nối với CSDL LANGUAGE Ngôn ngữ quốc tế được dùng bởi Server SERVER Tên của SQL Server mà ứng dụng kết nối đến Ta không nhất thiết phải dùng toàn bộ các tham biến Ví dụ: DSN=DSNQLBH; UID=hue;PWD=minhhue 17/19 Kết nối cơ sở. .. DSN=DSNQLBH; UID=hue;PWD=minhhue 17/19 Kết nối cơ sở dữ liệu sử dụng công nghệ ADO (ActiveX Data Objects) Nếu không cung cấp tên login và mật khẩu ngời sử dụng vào trong chuỗi kết nối, khi ứng dụng nối đến server, trình điều khiển ODBC sẽ hiển thị hộp thoại yêu cầu ngời sử dụng cung cấp thông tin vào Thi hành phơng thức EstablishConnection để thi hành kết nối Ví dụ: Set rdo = New rdoConnection rdo.Connect... PWD=printce; DSN =Data" 8 Thiết lập thuộc tính Data. RecordSet= "SELECT * from cauhoi" 9 Quy định thuộc tính DBGrid.DataSource = Data1 10 Thi hành ứng dụng Truy cập dữ liệu dùng điều khiển dữ liệu từ xa + Điều khiển dữ liệu từ xa (Remote Data Control - RDO) là một cách truy cập dữ liệu từ xa trong một ứng dụng viết bằng Visual Basic, giao diện lập trình tương tự như điều khiển ADO Data hay DAO Data + Sử dụng RDC... nghệ truy cập cơ sở dữ liệu hướng đối tượng ADO được xem là kỹ thuật để truy cập cơ sở dữ liệu từ Web Server Vì ADO được cung cấp dưới dạng thư viện ActiveX Server Ta có thể dùng ADO trong ứng dụng Visual Basic Trong thực tế sử dụng ADO để làm việc với cơ sở dữ liệu Client / Server thì dễ hơn kỹ thuật khác ADO là giao diện dựa trên đối tượng cho công nghệ dữ liệu mới OLE DB 19/19 ... trước khi sử dụng: chọn Project/ Reference/ "Microsoft Remote Data Object 2.0" + Chọn OK Thiết lập kết nối dùng đối tượng RDOConnection Ta có thể dùng đối tượng RDOConnection để thiết lập 1 kết nối đến Server cơ sở dữ liệu từ xa trong RDO Để tạo 1 kết nối dùng đối tượng RDOConnection, ta bắt đầu bằng công việc tạo chuỗi kết nối ODBC gồm các phần tử thông dụng: UID Tên login của người sử dụng PID Mật .. .Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Tạo nguồn liệu ODBC Để tạo ứng dụng Client nối với sở liệu Client/Server dùng ODBC, trước hết ta phải cung cấp thông tin nguồn liệu. .. 12/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Rs.Update End if Rs.MoveNext Loop rs.Close End sub Công nghệ Remote Data Access Object (RDO) + Định cấu hình sử dụng ODBC ODBC công. .. DSN=DSNQLBH; UID=hue;PWD=minhhue 17/19 Kết nối sở liệu sử dụng công nghệ ADO (ActiveX Data Objects) Nếu không cung cấp tên login mật ngời sử dụng vào chuỗi kết nối, ứng dụng nối đến server, trình điều khiển