Active X Data Objects ADO MCSD Doron Amir

Active. X Data Objects (ADO) דורון אמיר : מרצה MCSD Doron Amir www. doronamir. com

Overview of Active. X Data Objects (ADO) מאפשר לגשת ולתפעל נתונים ממקור נתונים ADO מספק אובייקטים לניהול נתונים ADO מספק ממשק ויזואלי לניהול מסד הנתונים ADO מאפשר כתיבת קוד עבור ניהול מסד הנתונים ADO תומך בפלטפורמות תכנות שונות ADO Microsoft Visual Basic ® Microsoft Visual Inter. Dev ® Microsoft Visual C++ ® Microsoft Visual J++ ® Microsoft Visual Fox. Pro Microsoft VBScript ADO OLE DB ® ® DATA STORE

ADO Object Model Connection ERRORS PROPERTIES Recordset Command FIELDS PARAMETERS PROPERTIES Connection Object אובייקט הקישור יוצר התקשרות אל מסד הנתונים. 1 מאפשר לשלוח פקודות למסד הנתונים. 2. מאפשר לקבל רשומות. 3

Fields Collection FIELD BOF NAME DORON AMIR EOF PASS 111 USER user. D 222 user. A המייצג את העמודות במערך הרשומות Fields מכיל אוסף Recotdset

Value Property BOF NAME DORON AMIR EOF PASS 111 USER user. D 222 user. A מאפשר לגשת אל ערכי השדות במערך הרשומות

Command Object COMMAND Select * From My. Table מאפשר להפעיל פקודות על מסד הנתונים ADO Command Object. 1 (Query String) מחרוזת שאילתה. 2 (Store Procedure) שם פרוצדורה מאוחסנת. 3 Parameters Collection Stored Procedure / Query Parameters אוסף המכיל פרמטרים עבור Errors Collection אוסף לטיפול בשגיאות המתאר וממספר את ייצוג השגיאה

Connecting to a data source (Connection Object) pubs חיבור וניתוק ממסד הנתונים

Add References… Microsoft Active. X Data Objects 2. 0 Library

Retrieving data from a data source (Record Set Object) (Create Recordset & Sql Quert) Open Method SQL Query Connection Object

Close & Free Your Objects

OLE-DB Data Provider

Handling data access errors

Error Handler !!! ()Private Sub cmd. Connect_Click Dim ado. Err As Error Create an Err Object On Error Go. To Err. Handler: Go To an Err. Handler Label . . … My Connection Code Exit Sub Err. Handler: Err. Handler Label For Each ado. Err In cn. Pubs. Errors "Msg. Box "Hi You have Error !!!" & ado. Err. Description, vb. Critical, "Employee Information Next End Sub עבור כל שגיאה נקבל תיאור אובייקט השגיאה נמצא באובייקט הקישור

Sorting and searching data

Move. Next ()Private Sub cmd. Next_Click rs. Employee. Move. Next If rs. Employee. EOF Then rs. Employee. Move. Last End If End Sub

Move Previous ()Private Sub cmd. Previous_Click rs. Employee. Move. Previous If rs. Employee. BOF Then rs. Employee. Move. First End If End Sub

Sort Method ()Private Sub cmd. Sort_Click ‘Check to see if a sort has been applied If rs. Employee. Sort = "" Then ‘No sort, so create on the author's last name "rs. Employee. Sort = "lname DESC Else ‘There is a sort, so turn it off "" = rs. Employee. Sort End If End Sub

Updating data

Updating rs. Employee. Open "Select emp_id, fname, " & _ “lname from employee ", cn. Pubs, _ ad. Open. Keyset, ad. Lock. Optimistic Update Method Private Sub cmd. Update_Click() Dim Answer As Integer Answer = Msg. Box("Do you want update ? ", vb. Yes. No + vb. Question, "Update") If Answer = vb. Yes Then rs. Employee. Update End If End Sub ad. Open. Keyset & ad. Lock. Optimistic

Active. X Data Objects (ADO) דורון אמיר : מרצה MCSD Doron Amir www. doronamir. com