1 2 Mô hình ADO (Microsoft ActiveX Data Object) Connection Command Parameter Record Set Field Error Fields Properties Parameters Errors Property 3 ADO và OLEDB Client Application Remote Data Object ActiveX Data Object ODBC Driver OLEDB Data Provider ODBCDriver Manager OLE DB Relational Database Document Server Email Server 4 Các thuộc tính ADO z Connection string (Chuỗikếtnối) z Command text (Vănbảncâulệnh) z Command type (Kiểucâulệnh) z Cursor location (Định vị con trỏ) z Cursor type (Kiểu con trỏ) z Lock type (Kiểu khóa) z Mode type (Kiểuchếđộlàm việc) 5 Sử dụng Connection z Chọn Project -> References -> Microsoft ActiveX Data Objects 2.x Library. z Khai báo mộtbiến (toàn cục/ cụcbộ) kiểu ADODB.Connection Dim cn As ADODB.Connection z Tạokếtnốitrướckhisử dụng Set Cn = new ADODB.Connection Cn.ConnectionString= “……………….” Cn.Open z Đóng kếtnối sau khi dùng xong Cn.Close Connection String 6 Connection string z Chỉđịnh trình cung cấp (Provider) OLEDB sử dụng để kếtnối đếnCSDL. Provider=Microsoft.Jet.OLEDB.4.0; Data Source=DatabasePathname Provider=Microsoft.Jet.OLEDB.4.0; Data Source=DatabasePathname MS ACCESS Provider=SQLOLEDB.1; Persist Security Info=False; User ID=Us ername; Password=Password; Initial Catalog=DatabaseName; Data Source=ServerName Provider=SQLOLEDB.1; Persist Security Info=False; User ID=Us ername; Password=Password; Initial Catalog=DatabaseName; Data Source=ServerName MS SQL Server 7 Command type z Thuộc tính này quy định kiểu query bạn đang sử dụng để thựcthimộtyêucầudữ liệu – adCmdText – adCmdTable – adCmdStoredProc – adCmdUnknown (Kiểumặc định) – adCommandFile – adCmdTableDirect 8 Cursor locations z Cho phép quản lý cursor phía máy khách hoặcmáy chủ cho recordset. – AdUseClient – AdUseServer (Mặc định) – AdUseClientBatch – AdUseNone 9 Cursor type z Quy định loại recordset sẽđượctrả về bởi trình cung cấpdữ liệu. z Có 4 loại: – adOpenForwardOnly (Mặc định) – adOpenKeyset – adOpenDynamic – adOpenStatic 10 Lock type z Quy định cách quảnlýviệc khóa trong suốtcác phiên (Transaction) hiệuchỉnh với recordset của bạn. – adLockReadOnly – adLockPessimistic – adLockOptimistic – adLockBatchOptimistic [...]... Cung cấp việc hạn chế truy cập đến CSDL trong khi bạn đang có một recordset đang mở – – – – – – – – adModeUnknown adModeRead adModeWrite adModeReadWrite adModeShareDenyRead adModeShareDenyWrite adModeShareExclusive adModeShareDenyNone 11 Hướng dẫn kết nối CSDL ADO Viết hàm mở recordset Public Function OpenRS(ByVal ADODB.Recordset Dim prs As ADODB.Recordset Set prs = New ADODB.Recordset Set prs.ActiveConnection... prs End Function strsql As String) As 12 Hướng dẫn kết nối CSDL ADO Viết hàm thực thi một câu truy vấn Public Sub ExecSQL(ByVal strsql As String) cn.Execute (strsql) End Sub 13 Hướng dẫn kết nối CSDL ADO Mỗi lần chương trình muốn thực hiện truy vấn dữ liệu ta sử dụng như sau : Dim SQL as String SQL = “ Nội dung câu select …” Dim pResultRs as ADODB.Recordset Set pResultRS = OpenRS(SQL) … … Sử dụng pResultSet... sau : Dim SQL as String SQL = “ Nội dung câu select …” Dim pResultRs as ADODB.Recordset Set pResultRS = OpenRS(SQL) … … Sử dụng pResultSet ở đây … Set pResultRs = nothing 14 Hướng dẫn kết nối CSDL ADO Muốn cập nhật CSDL( insert, update, hoặc delete), ta thực hiện như sau: Dim SQL as String SQL = “ Nội dung câu lệnh SQL insert, delete hoặc update …” ExecSQL (SQL) 15 . adModeShareDenyNone 12 Hướng dẫnkếtnối CSDL ADO z Viếthàmmở recordset Public Function OpenRS(ByVal strsql As String) As ADODB.Recordset Dim prs As ADODB.Recordset Set prs = New ADODB.Recordset Set prs.ActiveConnection. recordset sẽđượctrả về bởi trình cung cấpdữ liệu. z Có 4 loại: – adOpenForwardOnly (Mặc định) – adOpenKeyset – adOpenDynamic – adOpenStatic 10 Lock type z Quy định cách quảnlýviệc khóa trong suốtcác phiên. Function 13 Hướng dẫnkếtnối CSDL ADO z Viếthàmthựcthimộtcâutruyvấn Public Sub ExecSQL(ByVal strsql As String) cn.Execute (strsql) End Sub 14 Hướng dẫnkếtnối CSDL ADO z Mỗilầnchương trình muốnthựchiệntruyvấndữ liệutasử