OBJECT ADODB.ERROR(HELP ME

[mehrnoosh]

salam, :oops: ,,man ye soali dashtam rajebe ADODB :wink: , mikhastam beporsam chetori mishe ba objecte ADODB.ERROR too ye barname kar kard,ke in object betoone
errorhaie dar sathe data base ro tashkhis bede
toro khoda yeki :oops: yadam bede :cry:

[Omid.Mafakher]

-------------------------------------

[h_rezaei]

کلکسیون Errorsمتعلق به شی connection است که از اشیا error تشکیل شده
وقتی یک خطا در dataAccess روی می دهد ADO به ازای هر خطا یک آبجکت Error در کلکسیون Errorsبه وجود می آورد که با یک حلقه می توان error رخ داده را trap کرد .


Private Sub cmdTemplate_Click()

Dim Conn1 As Connection
Dim Errs1 As Errors
Dim i As Integer
Dim StrTmp

On Error GoTo AdoError

Set Conn1 = CreateObject("ADODB.Connection")

' Open connection to Bogus ODBC Data Source for BIBLIO.MDB
Conn1.ConnectionString = "DBQ=BIBLIO.MDB;" & _
"DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DefaultDir=C:\Bogus\Directory\Path;" & _
"UID=admin;PWD=;"
Conn1.Open

' Remaining code goes here.

Done:

' Close all open objects.
If Conn1.State = adStateOpen Then
Conn1.Close
End If

' Destroy anything not destroyed yet.
Set Conn1 = Nothing

' We're done.
Exit Sub

AdoError:

Dim errLoop As Error
Dim strError As String

i = 1

' Process
StrTmp = StrTmp & vbCrLf & "VB Error # " & Str(Err.Number)
StrTmp = StrTmp & vbCrLf & " Generated by " & Err.Source
StrTmp = StrTmp & vbCrLf & " Description " & Err.Description

' Enumerate Errors collection and display properties of
' each Error object.
Set Errs1 = Conn1.Errors
For Each errLoop In Errs1
With errLoop
StrTmp = StrTmp & vbCrLf & "Error #" & i & ":"
StrTmp = StrTmp & vbCrLf & " ADO Error #" & .Number
StrTmp = StrTmp & vbCrLf & " Description " & .Description
StrTmp = StrTmp & vbCrLf & " Source " & .Source
i = i + 1
End With
Next

MsgBox StrTmp

' Clean up Gracefully

On Error Resume Next
GoTo Done

End Sub


اگرچه document های زیادی در این مورد در MSDN یافت نمی شود ولی در Microsoft Knowledge Base می توانید مقالات خوبی در این مورد پیدا کنید .
آیا توضیحات کافی بود؟

[ساران سافت]

خانم چرا شما فارسی نمی نویسید؟ :evil:

بد نیست قوانین سایت را مطالعه کنید. :| :mrgreen:

[h_rezaei]

این خانم مهندس کلا تایپ فارسیش مشکل داره وگرنه تا حالا تو شرکت نفت استخدام شده بود :mrgreen: