OBJECT ADODB.ERROR(HELP ME

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:

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

کلکسیون 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:

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