Lập trình VB ADO

Lập trình VB ADO

Tran Mi Lal Tri a

Bộ môn Công Nghệ Pr Jlẽm

Khoa Công Nghệ th II

Đại học Khoa học Tự nhiên

ha

Tf : ar =

(H01((11À

flicrosoft ActiveX Data Object) Vio hinh ADO

ADO và OLEDB

— — ©lienf Annlic=afior 7

Remote Data Object ActiveX Data Object

ODBC Driver OLEDB Data Provider

| ODBCDriver OLE DB Manager

TH tính ADO

Connection string (Chudi kết nồi)

Command text (Van bản câu lệnh)

Command type (Kiéu cau lệnh)

Cursor location (Dinh vi con tro)

Cursor type (Kiéu con trỏ) Lock type (Kiểu khóa)

Mode type (Kiểu chế độ làm việc)

Sử dụng Connection

Chon Project -> References -> Microsoft Activex Data Objects 2.x Library

Khai báo một biên (toàn cục/ cục bộ) kiểu

ADODB.Connection

Dim cn As ADODB.Connection

Tạo kết nỗi trước khi sử dụng

set Cn = new ADODB.Connection Cn.ConnectionString= ”

Cn.Open

Đóng kết nôi sau khi dùng xong

Cn.Close

~_ Connection String

Connection string

e Chi dinh trinh cung cap (Provider) OLEDB str dung dé

két ndi dén CSDL

⁄ ~ Provider=Microsoft.Jet OLEDB.4.0; < MS ACCESS _Data Source=DatabasePathname

J

Persist Security Info=False:

MS SQLServer -

Initial Catalog= DatabaseName;

\ Data Source= ServerName _J

Command type

e Thuộc tính này quy định kiểu query bạn đang sử

dụng để thực thi một yêu câu dữ liệu

- adCmdText

- adCmdTable

~ adCmdStoredProc

—~ adCmdUnknown (Kiéu mac dinh)

~ adCommandFile

- adCmdTableDirect

Cursor locations

e Cho phép quan ly cursor phia may khach hoac may

chu cho recordset

- AdUseClient

- AdUseServer (Mặc định)

- AdUseClientBatch

- AdUseNone

Cursor type

e Quy định loại recordset sẽ được trả về bởi trình cung

cấp dữ liệu

e CÓ 4 loại:

—~ adOpenForwardOnly (Mặc định)

- adObpenKeyset

—~ adOpenDynamic

- adObpenStaftic

Lock type

e Quy định cách quản lý việc khóa trong suốt các

phiên (Transaction) hiệu chỉnh với recordset cua

bạn

—~ adLockReadOnly

— adLockPessimistic

—~ adLockOptimistic

—~ adLockBatchOptimistic

10

Mode type

e Cung cap viéc han ché truy cap dén CSDL trong khi

ban dang có mot recordset dang mo

—~ adModeUnknown

- adModeRead

- adModeWrite

- adModeEeadWrite

—~ adModeShareDenyRead

—~ adModeShareDenyWrite

- adModeShareExclusive

- adđModeShareDenyNone

11

e 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 = cn prs.Open (strsql)

set OpenRS = prs

End Function

strsql

As String) As

ng dẫn kết nỗi CSDL ADO

12

g dẫn kết nỗi CSDL ADO

e - 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

ớng dẫn kết nỗi CSDL ADO

e 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 = “ N6i dung cau select .”

Dim pResultRs as ADODB.Recordset Set pResultRS = OpenRS(SQL)

Sử dụng pResultSet ở đây

Set pResultRs = nothing

14

ng dẫn kết nỗi CSDL ADO

e 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 cau lénh SQL insert, delete hoac update

ExecSQL (SQL)

15