Click here to Skip to main content
Click here to Skip to main content
Articles » Database » Database » General » Downloads
 
Add your own
alternative version

Accessing the Borland Database Engine (BDE) from Visual C++

, 17 Nov 1999
bdedatabase_demo.zip
MfcResearch
BdeTest
vc4bde32.zip
IDAPI32M.LIB
IDAPI32.LIB
Release
BdeTest.exe
TEST.TV
Test.DBF
Test.DBT
TEST.FAM
Test.MB
Test.PX
Test.DB
BdeTest.dsw
BdeTest.dsp
res
BdeTest.ico
bdedatabase_src.zip
//////////////////////////////////////////////////////////////////////
// BdeException.cpp -- Implementation of Borland Database Engine exception handler



#include "stdafx.h"
#include "BdeException.h"


IMPLEMENT_DYNAMIC(CBdeException, CException);


////////////////////////////////////////////////////////////////////////
//  CBdeException construction/destruction

CBdeException::CBdeException()
{
	m_dbiResult = DBIERR_NONE;
	m_nExtendedError = 0;
}


CBdeException::CBdeException(DBIResult dbiResult)
{
	m_dbiResult = dbiResult;
	m_nExtendedError = 0;
}


CBdeException::CBdeException(DBIResult dbiResult, CString strTable,
		CString strDatabaseName, LPCTSTR szAddInfo)
{
	m_dbiResult = dbiResult;
	if (szAddInfo != NULL)
		m_strAddInfo.Format("%s", szAddInfo);
	else m_strAddInfo = "Unspecified Illegal Borland Database Operation";
	m_strTableName = strTable;
	m_strDatabaseName = strDatabaseName;
	m_nExtendedError = 0;
}

CBdeException::CBdeException(DBIResult dbiResult, UINT nExtendedError, CString strTable,
		CString strDatabaseName, LPCTSTR szAddInfo)
{
	m_dbiResult = dbiResult;
	if (szAddInfo != NULL)
		m_strAddInfo.Format("%s", szAddInfo);
	else m_strAddInfo = "Unspecified Illegal Borland Database Operation";
	m_strTableName = strTable;
	m_strDatabaseName = strDatabaseName;
	m_nExtendedError = nExtendedError;
}


// TODO:  Fix this
BOOL CBdeException::GetErrorMessage(LPTSTR lpszError, UINT nMaxError, PUINT pnHelpContext)
{
	m_strAddInfo.Empty();	 // TODO:  Remove this line
	_tcsncpy(lpszError, GetErrorMessage(FALSE), nMaxError);
	return TRUE;
}


CString CBdeException::GetErrorMessage(BOOL bVerbose /*= TRUE */)
{
	char        dbi_status[DBIMAXMSGLEN * 5] = {'\0'};
	DBIMSG      dbi_string = {'\0'};
	DBIErrInfo  ErrInfo;
	CString sFinal;
	CString strDbiError;

	DbiGetErrorInfo(TRUE, &ErrInfo);

	if (m_nExtendedError != 0)
	{
		strDbiError = GetExtendedErrorMessage(m_nExtendedError); 
	}
	else if (ErrInfo.iError == m_dbiResult)
	{
		wsprintf(dbi_status, "%s", ErrInfo.szErrCode);

		if (strcmp(ErrInfo.szContext1, ""))
			wsprintf(dbi_status, "%s\r\n    %s", dbi_status, ErrInfo.szContext1);

		if (strcmp(ErrInfo.szContext2, ""))
			wsprintf(dbi_status, "%s\r\n    %s", dbi_status, ErrInfo.szContext2);
		if (strcmp(ErrInfo.szContext3, ""))
			wsprintf(dbi_status, "%s\r\n    %s", dbi_status, ErrInfo.szContext3);
		if (strcmp(ErrInfo.szContext4, ""))
			wsprintf(dbi_status, "%s\r\n    %s", dbi_status, ErrInfo.szContext4);
		strDbiError.Format("%s", dbi_status);
	}
	else
	{
		DbiGetErrorString(m_dbiResult, dbi_string);
		wsprintf(dbi_status, "%s", dbi_string);
		strDbiError.Format("%s", dbi_status);
	}

	// if not verbose, then only send a basic error message
	if (bVerbose == FALSE)
	{
		if (m_nExtendedError != 0) sFinal = strDbiError;		
		else sFinal.Format("%s", dbi_string);
		return sFinal;
	}

	// construct an advanced message
	if (m_strTableName.IsEmpty()) m_strTableName = "Unknown";
	if (m_strDatabaseName.IsEmpty()) m_strDatabaseName = "Unknown";


	sFinal.Format("%s\n\nTable:      %s\nDatabase:    %s\n\nBorland Database Engine returned the following error:\n%s",
		m_strAddInfo, m_strTableName, m_strDatabaseName, strDbiError);

  return sFinal;
}


int CBdeException::ReportError(UINT nType, UINT nMessageID)
{	
	if (nMessageID == 0)
	{
		return AfxMessageBox(GetErrorMessage(), MB_OK | MB_ICONHAND);
	}
	CString s;
	if (s.LoadString(nMessageID))
	{
		return AfxMessageBox(s + "\n\n" + GetErrorMessage(), MB_OK | MB_ICONHAND);
	}
	return AfxMessageBox(GetErrorMessage(), nType);
}



CString CBdeException::GetExtendedErrorMessage(int nError)
{
	switch (nError)
	{
		case BDEEXERR_FIELDNOTINTEGER:
			return "Incompatible data types.  Field can not be read from or written to as an integer.";
		case BDEEXERR_FIELDNOTFLOAT:
			return "Incompatible data types.  Field can not be read from or written to as a floating point value.";
		case BDEEXERR_FIELDNOTDATE:
			return "Incompatible data types.  Field can not be read from or written to as a date.";
		case BDEEXERR_FIELDNOTSTRING:
			return "Incompatible data types.  Field can not be read from or written to as a string.";
		case BDEEXERR_NOSUCHFIELD:
			return "The specified field does not exist in the current table.";
		case BDEEXERR_NOTINEDITMODE:
			return "This operation can only be performed on a table in 'Edit' mode.  The current table is not in edit mode.";
		case BDEEXERR_ALREADYINEDITMODE:
			return "This operation can not be performed on a table in 'Edit' mode.  The current table is currently in edit mode.";
		case BDEEXERR_INVALIDCURSOR:
			return "The table is closed or has not been associated with a database or table file.  This operation can not be performed on a closed table.";
		case BDEEXERR_ALREADYOPEN:
			return "The table is currently is open.  This operation can not be performed on an open table.";
		case BDEEXERR_NOTINITIALIZED:
			return "This application has not initialized the Borland Database Engine.";
		case BDEEXERR_INVALIDDATETIMEFORMAT:
			return "Unrecognized or invalid date or time format.  The application could not translate the specified value to a date or time.";
		case BDEEXERR_UNSUPPORTEDFIELDTYPE:
			return "The field is a data type that is not supported by this application,";
		case BDEEXERR_UNSUPPORTEDBLOBTYPE:
			return "The blob field contains a data type that is not supported by this application,";
		case BDEEXERR_FIELDNOTBOOLEAN:
			return "Incompatible data types.  Field can not be read from or written to as a logical (true/false) value.";
		case BDEEXERR_INVALIDFIELDINDEX:
			return "Invalid field index.  The specified field number oes not exist in the current table.";
		case BDEEXERR_INVALIDFIELDNAME:
			return "Invalid field name.  The specified field does not exist in the current table.";
	} // end of switch

	return "";
}

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Robert Pittenger, MCPD-EAD
President Starpoint Software Inc.
United States United States
Bob Pittenger is founder and President of Starpoint Software Inc. He holds a B.A. degree from Miami University, M.S. and Ph.D. degrees from Purdue University, and an MBA from Xavier University. He has been programming since 1993, starting with Windows application development in C++/MFC and moving to C# and .NET around 2005 and is a .NET Microsoft Certified Professional Developer.
 
Bob is the author of two books:
Billionaire: How the Ultra-Rich Built Their Fortunes Through Good and Evil and What You Can Learn from Them
and
Wealthonomics: The Most Important Economic and Financial Concepts that Can Make You Rich Fast.
Visit http://www.billionairebook.net for more information.

| Advertise | Privacy | Terms of Use | Mobile
Web01 | 2.8.141223.1 | Last Updated 18 Nov 1999
Article Copyright 1999 by Robert Pittenger, MCPD-EAD
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid