ActiveX Data Objects (ADO) מרצה : דורון אמיר MCSD Doron Amir .
-
Upload
mitchell-maxwell -
Category
Documents
-
view
225 -
download
5
Transcript of ActiveX Data Objects (ADO) מרצה : דורון אמיר MCSD Doron Amir .
ActiveX Data Objects (ADO)
מרצה : דורון אמירמרצה : דורון אמיר
MCSD Doron MCSD Doron
AmirAmir www.doronamir.comwww.doronamir.com
Overview of ActiveX Data Objects (ADO)Overview of ActiveX Data Objects (ADO)
ADO מאפשר לגשת ולתפעל נתונים ממקור נתונים
ADO מספק אובייקטים לניהול נתונים
ADOמספק ממשק ויזואלי לניהול מסד הנתונים
ADOמאפשר כתיבת קוד עבור ניהול מסד הנתונים
ADOתומך בפלטפורמות תכנות שונות
Microsoft Visual Basic
Microsoft Visual InterDev
Microsoft Visual C++
Microsoft Visual J++
Microsoft Visual FoxPro
Microsoft VBScript
ADO
OLE DB
DATA STORE
ADO Object ModelADO Object Model
ConnectionERRORS
RecordsetFIELDS Comman
dPARAMETER
SPROPERTIES
PROPERTIES
PROPERTIES
אובייקט הקישור יוצר התקשרות אל מסד הנתונים 1.
מאפשר לשלוח פקודות למסד הנתונים 2.
מאפשר לקבל רשומות.3.
Connection ObjectConnection Object
Recordset objectRecordset object
מייצג קבוצת רשומות המוחזרות ממסד הנתונים,טבלה או תוצאת שאילתה1.
(BOF,EOF,MoveNextמכיל אובייקטים ומאפיינים לניהול מערך הרשומות )2.
Value Propertyמכיל מאפייני גישה לערכי השדות 3.
BOFBOF
NAMENAMEPASSPASSUSERUSER
DORONDORON111111userDuserD
AMIRAMIR222222userAuserA
EOFEOF
Fields CollectionFields Collection
Recotdset מכיל אוסף Fields המייצג את העמודות במערך הרשומות
BOFBOF
NAMENAMEPASSPASSUSERUSER
DORONDORON111111userDuserD
AMIRAMIR222222userAuserA
EOFEOF
FIELD
Value PropertyValue Property
מאפשר לגשת אל ערכי השדות במערך הרשומות
BOFBOF
NAMENAMEPASSPASSUSERUSER
DORONDORON111111userDuserD
AMIRAMIR222222userAuserA
EOFEOF
Command ObjectCommand Object
.1ADO Command Object מאפשר להפעיל פקודות על מסד הנתונים
(Query String ) מחרוזת שאילתה2.
(Store Procedureשם פרוצדורה מאוחסנת )3.
Select * From MyTable
COMMAND
Stored Procedure / Queryאוסף המכיל פרמטרים עבור Parameters
Parameters CollectionParameters Collection
אוסף לטיפול בשגיאות המתאר וממספר את ייצוג השגיאה
Errors CollectionErrors Collection
Connecting to a data source (Connection Connecting to a data source (Connection Object)Object)
חיבור וניתוק ממסד הנתונים pubs
Add ReferencesAdd References……
Microsoft ActiveX Data Objects 2.0 Library
Must Add ReferencesMust Add References……
ללא הפנייה לא ניתן להגדיר אובייקט התקשרות או כל אובייקט ADO
הגדרת אובייקט קישור + אובייקט מערך רשומותהגדרת אובייקט קישור + אובייקט מערך רשומות
Connection For SQL ServerConnection For SQL Server
יצירת מופע
ספק1.
אבטחה2.
שם השרת3.
שם מסד הנתונים4.
הודעת התחברות
Retrieving data from a data source (Record Set Retrieving data from a data source (Record Set Object)Object) (Create Recordset & Sql Quert)(Create Recordset & Sql Quert)
Open Method SQL Query Connection Object
Binding Data & TextBox ControlsBinding Data & TextBox Controls
Setחיבור הפקד אל מערך הרשומות ע"י 1.
קישור השדה המיועד2.
Close & Free Your ObjectsClose & Free Your Objects
OLE-DB Data ProviderOLE-DB Data Provider
Handling data access errorsHandling data access errors
Error Handler !!!Error Handler !!!Private Sub cmdConnect_Click()
Dim adoErr As Error
On Error GoTo ErrHandler:
..
…
Exit Sub
ErrHandler:For Each adoErr In cnPubs.Errors
MsgBox "Hi You have Error !!!" & adoErr.Description, vbCritical, "Employee Information"
Next
End Sub
My Connection Code
Create an Err Object
Go To an ErrHandler Label
ErrHandler Label
עבור כל שגיאה נקבל תיאור
אובייקט השגיאה נמצא באובייקט הקישור
Sorting and searching dataSorting and searching data
Cursor LocationCursor Location
Set rsEmployee = New Recordset
rsEmployee.CursorLocation = adUseClient
מאחסן את הרשומות במחשב 1.הלקוח
מאפשר לנוע קדימה וחזרה 2.ברשומות
ללא מאפיין זה לא ניתן לנווט לאחור3.
MoveNextMoveNext
Private Sub cmdNext_Click()
rsEmployee.MoveNext
If rsEmployee.EOF Then
rsEmployee.MoveLast
End If
End Sub
Move PreviousMove Previous
Private Sub cmdPrevious_Click()
rsEmployee.MovePrevious
If rsEmployee.BOF Then
rsEmployee.MoveFirst
End If
End Sub
Sort MethodSort MethodPrivate Sub cmdSort_Click)(
‘Check to see if a sort has been applied
If rsEmployee.Sort = "" Then
‘No sort, so create one on the author's last name
rsEmployee.Sort = "lname DESC"
Else
‘There is a sort, so turn it off
rsEmployee.Sort"" =
End If
End Sub
Updating dataUpdating data
UpdatingUpdating
rsEmployee.Open "Select emp_id, fname_ & " ,
“lname from employee ", cnPubs ,_
adOpenKeyset, adLockOptimistic
adOpenKeyset & adLockOptimistic
Private Sub cmdUpdate_Click()
Dim Answer As Integer
Answer = MsgBox("Do you want update ? ", vbYesNo + vbQuestion, "Update")
If Answer = vbYes Then
rsEmployee.Update
End If
End Sub
Update Method
ActiveX Data Objects (ADO)
מרצה : דורון אמירמרצה : דורון אמיר
MCSD Doron MCSD Doron
AmirAmir www.doronamir.comwww.doronamir.com