Blanke Fejlmeddelelser??!!

Må vi se noget kode??

Private Sub m_Connection_ExecuteComplete(ByVal RecordsAffected As Long, _
          ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
                  ByVal pCommand As ADODB.Command, ByVal pRecordset As ADODB.RecordSet, _
                                                  ByVal pConnection As ADODB.Connection)
 
  On Error GoTo ErrHandl
  Dim i As Integer
  Dim Cookie As String
  Dim cmd As clsCommand
  Dim RecordZ As New clsRecordSets
     
  If (adStatus = adStatusErrorsOccurred) Then
    \'If error conserning cancelling of operation then exit
    If (pError.Number = 3712) Then
      Exit Sub
      Err.Raise pError.Number, pError.Source, pError.Description, pError.HelpFile, pError.HelpContext
    Else
      Dim ErrObj As New ErrObject
      Dim Handled As Boolean
     
      Handled = False
         
      With pError
        RaiseEvent Error(.Number, .Description, .Source, .HelpFile, .HelpContext, Handled)
      End With
     
      If (Not Handled) Then
        Err.Raise pError.Number, pError.Source, pError.Description, pError.HelpFile, pError.HelpContext
      End If
    End If
   
  End If
   

Hvilken linje påstår den, at der er en fejl, men at der ingen fejlmeddelelse er??

Din første Err.Raise bliver aldrig kaldt pga. din  Exit Sub i linjen lige før...

Har du prøvet at sætte et breakpoint i starten af event og checke fejlmeddelelsen der??

Hvad laver RaiseEvent?

Din
  If (Not Handled) Then
virker overflødig da du jo lige forinden har sat Handled = False. Bliver Handled ændret i kaldet af RaiseEvent?

OK!! Jeg forklarer mig ikke ordenligt! Selve syntaxen er OK!!

Fejlen ligger i, at selvom der angives, at der er en fejl så er pError objektet tomt!

Lad os antage at koden ser således ud i stedet for

Private Sub m_Connection_ExecuteComplete(ByVal RecordsAffected As Long, _
          ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
                  ByVal pCommand As ADODB.Command, ByVal pRecordset As ADODB.RecordSet, _
                                                ByVal pConnection As ADODB.Connection)
 
      Err.Raise pError.Number, pError.Source, pError.Description, pError.HelpFile, pError.HelpContext
   

Der vises en tom Fejl meddelelse!!

Fejlen er ikke i VB. Mere sandsynligt i ADO eller SQL!!

Hvad så, hvis du kører selvsamme query fra SQL Query Analyzer - får du så også tomme fejlmeddelelser?

Nope!!

Jeg har læst om noget lignende men det drejede sig om ASP og MTS! Og det har jeg slet ikke noget at gøre med!

Ok - så må det jo være et ADO/ODBC problem - prøv at hente den seneste MDAC 2.6 fra Microsoft (www.microsoft.com/data) - hvilken version af ADO og SQL Server bruger du nu?

Det er lige præcis det, der er problemet!! Problemet opstod først i det øjeblik jeg installerede den nyeste MDAC!! Men selvom jeg reformaterer hele maskinen er der ikke nogen bedring!

Okay, den er godt nok sur - hvilken version af MS SQL bruger du?

Prøv evt. at lægge en tidligere MDAC på så - skammeligt at det skulle være nødvendigt.

Hvilket OS er det? Har du nyeste opdateringer til det?

Det er MS SQL 7.0 jeg bruger og WinNT ServicePAck 4.0 så vidt jeg lige kan komme i tanke om!

Der står om MDAC 2.6 at der minimum skal være Servicepack 5 på - prøv evt. at lægge nyeste servicepack (6a) på og geninstaller mdac!

Har du prøvet det???

Ikke Endnu!! Prøver det med det samme!

Ok, og hvad kom der ud af det?

Lukker!