Solved

ERROR CODES

Posted on 1998-10-28
4
155 Views
Last Modified: 2010-04-30
Does anybody know where I can look up API error codes?
I am mostly interested in the ones dealing with
sockets and drive mapping.
0
Comment
Question by:cybergirl
4 Comments
 
LVL 1

Expert Comment

by:ajmendes
ID: 1442157
Hi,
I have a text file that have an plenty of error codes.
If you want it, tell me your e-mail to send it to you. If you find what you want then i post this comment as an answer, OK?

Bye.
0
 
LVL 6

Expert Comment

by:clifABB
ID: 1442158
Here is a list of error codes at the Microsoft site:
http://premium.microsoft.com/msdn/library/sdkdoc/errlist_9rqr.htm

I've been having a bit of trouble getting in, so I'll post this as a comment.  If you get in and it's what you want, let me know and I'll repost as an answer.
0
 
LVL 14

Accepted Solution

by:
waty earned 50 total points
ID: 1442159
Here is the part of a new addins I am writing. It will display the API error message for any API error number
' #VBIDEUtils#************************************************************
' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : waty.thierry@usa.net
' * Date             : 12/10/1998
' * Time             : 20:20
' * Module Name      : APIError_Module
' * Module Filename  : APIError.bas
' **********************************************************************
' * Comments         :
' * Used to get error messages directly from the
' *   system instead of hard-coding them
' *
' *
' **********************************************************************

Option Explicit

Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200

Private Declare Function FormatMessage Lib "kernel32" Alias _
      "FormatMessageA" _
      (ByVal dwFlags As Long, lpSource As Any, _
      ByVal dwMessageId As Long, _
      ByVal dwLanguageId As Long, _
      ByVal lpBuffer As String, _
      ByVal nSize As Long, _
      Arguments As Long) As Long

' *** Status Codes
Public Const INVALID_HANDLE_VALUE = -1&
Public Const ERROR_SUCCESS = 0&

Public Function ReturnAPIError(ErrorCode As Long) As String
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : waty.thierry@usa.net
   ' * Date             : 12/10/1998
   ' * Time             : 20:21
   ' * Module Name      : APIError_Module
   ' * Module Filename  : APIError.bas
   ' * Procedure Name   : ReturnAPIError
   ' * Parameters       :
   ' *                    ErrorCode As Long
   ' **********************************************************************
   ' * Comments         :
   ' * Takes an API error number, and returns
   ' * a descriptive text string of the error
   ' *
   ' **********************************************************************

   Dim sBuffer    As String

   ' *** Allocate the string, then get the system to
   ' *** tell us the error message associated with
   ' *** this error number
   
   sBuffer = String(256, 0)
   FormatMessage FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, 0&, ErrorCode, 0&, sBuffer, Len(sBuffer), 0&

   ' *** Strip the last null, then the last CrLf pair if it exists
   
   sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
   If Right$(sBuffer, 2) = Chr$(13) & Chr$(10) Then
      sBuffer = Mid$(sBuffer, 1, Len(sBuffer) - 2)
   End If

   ReturnAPIError = sBuffer

End Function

Public Sub APIError()
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : waty.thierry@usa.net
   ' * Date             : 12/10/1998
   ' * Time             : 20:35
   ' * Module Name      : APIError_Module
   ' * Module Filename  : APIError.bas
   ' * Procedure Name   : APIError
   ' * Parameters       :
   ' **********************************************************************
   ' * Comments         :
   ' * Takes an API error number, and returns
   ' * a descriptive text string of the error
   ' *
   ' **********************************************************************

   Dim sError        As String
   
   On Error GoTo ERROR_APIError
   
   sError = InputBox("Enter the error number", "Returns API error")
   
   If IsNumeric(sError) = False Then Exit Sub
   
   MsgBox ReturnAPIError(CLng(sError)), vbInformation + vbOKOnly, "Error n°" & sError
   
   Exit Sub
   
ERROR_APIError:
   MsgBox "Error n°" & sError & vbCrLf & " Invalid error number" & vbCrLf & "You have to give another one", vbCritical + vbOKOnly, "Error n°" & sError
   
End Sub

0
 

Author Comment

by:cybergirl
ID: 1442160
Thanks for the code waty, it worked great.
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now