sdodbc.hpp

SQLDirect Component Library is a light-weight Borland Database Engine replacement for Borland Delphi

typedef short __stdcall (*TSQLSetEnvAttr)(void * hEnv, int Attr, void * Value, int StringLength);

typedef short __stdcall (*TSQLSetParam)(void * hStmt, Word ipar, short fCType, short fSqlType, unsigned cbParamDef, short ibScale, void * rgbValue, int &cbValue);

typedef short __stdcall (*TSQLSetStmtAttr)(void * hStmt, int fOption, void * pvParam, int fStrLen);

typedef short __stdcall (*TSQLSetStmtOption)(void * hStmt, Word fOption, unsigned vParam);

typedef short __stdcall (*TSQLSpecialColumns)(void * hStmt, Word fColType, char * szCatalogName, short cbCatalogName, char * szSchemaName, short cbSchemaName, char * szTableName, short cbTableName, Word fScope, Word fNullable);

typedef short __stdcall (*TSQLStatistics)(void * hStmt, char * szCatalogName, short cbCatalogName, char * szSchemaName, short cbSchemaName, char * szTableName, short cbTableName, Word fUnique, Word fAccuracy);

typedef short __stdcall (*TSQLTables)(void * hStmt, char * szCatalogName, short cbCatalogName, char * szSchemaName, short cbSchemaName, char * szTableName, short cbTableName, char * szTableType, short cbTableType);

typedef short __stdcall (*TSQLTransact)(void * hEnv, void * hDbc, Word fType);

typedef short __stdcall (*TSQLBrowseConnect)(void * hDbc, char * szConnStrIn, short cbConnStrIn, char * szConnStrOut, short cbConnStrOutMax, short &cbConnStrOut);

typedef short __stdcall (*TSQLBulkOperations)(void * hStmt, short Operation);

typedef short __stdcall (*TSQLColAttributes)(void * hStmt, Word icol, Word fDescType, void * rgbDesc, short cbDescMax, short &cbDesc, int &fDesc);

typedef short __stdcall (*TSQLColumnPrivileges)(void * hStmt, char * szCatalogName, short cbCatalogName, char * szSchemaName, short cbSchemaName, char * szTableName, short cbTableName, char * szColumnName, short cbColumnName);

typedef short __stdcall (*TSQLDescribeParam)(void * hStmt, Word ipar, void * pfSqlType, unsigned &cbParamDef, void * pibScale, void * pfNullable);

typedef short __stdcall (*TSQLExtendedFetch)(void * hStmt, Word fFetchType, int irow, unsigned &crow, Word &gfRowStatus);

typedef short __stdcall (*TSQLForeignKeys)(void * hStmt, char * szPkCatalogName, short cbPkCatalogName, char * szPkSchemaName, short cbPkSchemaName, char * szPkTableName, short cbPkTableName, char * szFkCatalogName, short cbFkCatalogName, char * szFkSchemaName, short cbFkSchemaName, char * szFkTableName, short cbFkTableName);

typedef short __stdcall (*TSQLMoreResults)(void * hStmt);

typedef short __stdcall (*TSQLNativeSql)(void * hDbc, char * szSqlStrIn, int cbSqlStrIn, char * szSqlStr, int cbSqlStrMax, int &cbSqlStr);

typedef short __stdcall (*TSQLNumParams)(void * hStmt, short &cpar);

typedef short __stdcall (*TSQLParamOptions)(void * hStmt, unsigned crow, unsigned &irow);

typedef short __stdcall (*TSQLPrimaryKeys)(void * hStmt, char * szCatalogName, short cbCatalogName, char * szSchemaName, short cbSchemaName, char * szTableName, short cbTableName);

typedef short __stdcall (*TSQLProcedureColumns)(void * hStmt, char * szCatalogName, short cbCatalogName, char * szSchemaName, short cbSchemaName, char * szProcName, short cbProcName, char * szColumnName, short cbColumnName);

typedef short __stdcall (*TSQLProcedures)(void * hStmt, char * szCatalogName, short cbCatalogName, char * szSchemaName, short cbSchemaName, char * szProcName, short cbProcName);

typedef short __stdcall (*TSQLSetPos)(void * hStmt, Word irow, Word fOption, Word fLock);

typedef short __stdcall (*TSQLTablePrivileges)(void * hStmt, char * szCatalogName, short cbCatalogName, char * szSchemaName, short cbSchemaName, char * szTableName, short cbTableName);

typedef short __stdcall (*TSQLDrivers)(void * hEnv, Word fDirection, char * szDriverDesc, short cbDriverDescMax, short &cbDriverDesc, char * szDriverAttributes, short cbDrvrAttrMax, short &cbDrvrAttr);

typedef short __stdcall (*TSQLBindParameter)(void * hStmt, Word ipar, short fParamType, short fCType, short fSqlType, unsigned cbColDef, short ibScale, void * rgbValue, int cbValueMax, void * pcbValue);

typedef short __stdcall (*TSQLDriverConnect)(void * hDbc, HWND hWnd, char * szConnStrIn, short cbConnStrIn, char * szConnStrOut, short cbConnStrOutMax, short &cbConnStrOut, Word fDriverCompletion);

class DELPHICLASS TOdbcFunctions;
class PASCALIMPLEMENTATION TOdbcFunctions : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	unsigned FLibHandle;
	TSQLAllocConnect FSQLAllocConnect;
	TSQLAllocEnv FSQLAllocEnv;
	TSQLAllocHandle FSQLAllocHandle;
	TSQLAllocStmt FSQLAllocStmt;
	TSQLBindCol FSQLBindCol;
	TSQLCancel FSQLCancel;
	TSQLCloseCursor FSQLCloseCursor;
	TSQLColAttribute FSQLColAttribute;
	TSQLColumns FSQLColumns;
	TSQLConnect FSQLConnect;
	TSQLCopyDesc FSQLCopyDesc;
	TSQLDataSources FSQLDataSources;
	TSQLDescribeCol FSQLDescribeCol;
	TSQLDisconnect FSQLDisconnect;
	TSQLEndTran FSQLEndTran;
	TSQLError FSQLError;
	TSQLExecDirect FSQLExecDirect;
	TSQLExecute FSQLExecute;
	TSQLFetch FSQLFetch;
	TSQLFetchScroll FSQLFetchScroll;
	TSQLFreeConnect FSQLFreeConnect;
	TSQLFreeEnv FSQLFreeEnv;
	TSQLFreeHandle FSQLFreeHandle;
	TSQLFreeStmt FSQLFreeStmt;
	TSQLGetConnectAttr FSQLGetConnectAttr;
	TSQLGetConnectOption FSQLGetConnectOption;
	TSQLGetCursorName FSQLGetCursorName;
	TSQLGetData FSQLGetData;
	TSQLGetDescField FSQLGetDescField;
	TSQLGetDescRec FSQLGetDescRec;
	TSQLGetDiagField FSQLGetDiagField;
	TSQLGetDiagRec FSQLGetDiagRec;
	TSQLGetEnvAttr FSQLGetEnvAttr;
	TSQLGetFunctions FSQLGetFunctions;
	TSQLGetInfo FSQLGetInfo;
	TSQLGetStmtAttr FSQLGetStmtAttr;
	TSQLGetStmtOption FSQLGetStmtOption;
	TSQLGetTypeInfo FSQLGetTypeInfo;
	TSQLNumResultCols FSQLNumResultCols;
	TSQLParamData FSQLParamData;
	TSQLPrepare FSQLPrepare;
	TSQLPutData FSQLPutData;
	TSQLRowCount FSQLRowCount;
	TSQLSetConnectAttr FSQLSetConnectAttr;
	TSQLSetConnectOption FSQLSetConnectOption;
	TSQLSetCursorName FSQLSetCursorName;
	TSQLSetDescField FSQLSetDescField;
	TSQLSetDescRec FSQLSetDescRec;
	TSQLSetEnvAttr FSQLSetEnvAttr;
	TSQLSetParam FSQLSetParam;
	TSQLSetStmtAttr FSQLSetStmtAttr;
	TSQLSetStmtOption FSQLSetStmtOption;
	TSQLSpecialColumns FSQLSpecialColumns;
	TSQLStatistics FSQLStatistics;
	TSQLTables FSQLTables;
	TSQLTransact FSQLTransact;
	TSQLBrowseConnect FSQLBrowseConnect;
	TSQLBulkOperations FSQLBulkOperations;
	TSQLColAttributes FSQLColAttributes;
	TSQLColumnPrivileges FSQLColumnPrivileges;
	TSQLDescribeParam FSQLDescribeParam;
	TSQLExtendedFetch FSQLExtendedFetch;
	TSQLForeignKeys FSQLForeignKeys;
	TSQLMoreResults FSQLMoreResults;
	TSQLNativeSql FSQLNativeSql;
	TSQLNumParams FSQLNumParams;
	TSQLParamOptions FSQLParamOptions;
	TSQLPrimaryKeys FSQLPrimaryKeys;
	TSQLProcedureColumns FSQLProcedureColumns;
	TSQLProcedures FSQLProcedures;
	TSQLSetPos FSQLSetPos;
	TSQLTablePrivileges FSQLTablePrivileges;
	TSQLDrivers FSQLDrivers;
	TSQLBindParameter FSQLBindParameter;
	TSQLDriverConnect FSQLDriverConnect;
	
public:
	virtual void __fastcall SetApiCalls(unsigned ASqlLibModule);
	virtual void __fastcall ClearApiCalls(void);
	bool __fastcall IsAvailFunc(AnsiString AName);
	__property TSQLAllocConnect SQLAllocConnect = {read=FSQLAllocConnect};
	__property TSQLAllocEnv SQLAllocEnv = {read=FSQLAllocEnv};
	__property TSQLAllocHandle SQLAllocHandle = {read=FSQLAllocHandle};
	__property TSQLAllocStmt SQLAllocStmt = {read=FSQLAllocStmt};
	__property TSQLBindCol SQLBindCol = {read=FSQLBindCol};
	__property TSQLCancel SQLCancel = {read=FSQLCancel};
	__property TSQLCloseCursor SQLCloseCursor = {read=FSQLCloseCursor};
	__property TSQLColAttribute SQLColAttribute = {read=FSQLColAttribute};
	__property TSQLColumns SQLColumns = {read=FSQLColumns};
	__property TSQLConnect SQLConnect = {read=FSQLConnect};
	__property TSQLCopyDesc SQLCopyDesc = {read=FSQLCopyDesc};
	__property TSQLDataSources SQLDataSources = {read=FSQLDataSources};
	__property TSQLDescribeCol SQLDescribeCol = {read=FSQLDescribeCol};
	__property TSQLDisconnect SQLDisconnect = {read=FSQLDisconnect};
	__property TSQLEndTran SQLEndTran = {read=FSQLEndTran};
	__property TSQLError SQLError = {read=FSQLError};
	__property TSQLExecDirect SQLExecDirect = {read=FSQLExecDirect};
	__property TSQLExecute SQLExecute = {read=FSQLExecute};
	__property TSQLFetch SQLFetch = {read=FSQLFetch};
	__property TSQLFetchScroll SQLFetchScroll = {read=FSQLFetchScroll};
	__property TSQLFreeConnect SQLFreeConnect = {read=FSQLFreeConnect};
	__property TSQLFreeEnv SQLFreeEnv = {read=FSQLFreeEnv};
	__property TSQLFreeHandle SQLFreeHandle = {read=FSQLFreeHandle};
	__property TSQLFreeStmt SQLFreeStmt = {read=FSQLFreeStmt};
	__property TSQLGetConnectAttr SQLGetConnectAttr = {read=FSQLGetConnectAttr};
	__property TSQLGetConnectOption SQLGetConnectOption = {read=FSQLGetConnectOption};
	__property TSQLGetCursorName SQLGetCursorName = {read=FSQLGetCursorName};
	__property TSQLGetData SQLGetData = {read=FSQLGetData};
	__property TSQLGetDescField SQLGetDescField = {read=FSQLGetDescField};
	__property TSQLGetDescRec SQLGetDescRec = {read=FSQLGetDescRec};
	__property TSQLGetDiagField SQLGetDiagField = {read=FSQLGetDiagField};
	__property TSQLGetDiagRec SQLGetDiagRec = {read=FSQLGetDiagRec};
	__property TSQLGetEnvAttr SQLGetEnvAttr = {read=FSQLGetEnvAttr};
	__property TSQLGetFunctions SQLGetFunctions = {read=FSQLGetFunctions};
	__property TSQLGetInfo SQLGetInfo = {read=FSQLGetInfo};
	__property TSQLGetStmtAttr SQLGetStmtAttr = {read=FSQLGetStmtAttr};
	__property TSQLGetStmtOption SQLGetStmtOption = {read=FSQLGetStmtOption};
	__property TSQLGetTypeInfo SQLGetTypeInfo = {read=FSQLGetTypeInfo};
	__property TSQLNumResultCols SQLNumResultCols = {read=FSQLNumResultCols};
	__property TSQLParamData SQLParamData = {read=FSQLParamData};
	__property TSQLPrepare SQLPrepare = {read=FSQLPrepare};
	__property TSQLPutData SQLPutData = {read=FSQLPutData};
	__property TSQLRowCount SQLRowCount = {read=FSQLRowCount};
	__property TSQLSetConnectAttr SQLSetConnectAttr = {read=FSQLSetConnectAttr};
	__property TSQLSetConnectOption SQLSetConnectOption = {read=FSQLSetConnectOption};
	__property TSQLSetCursorName SQLSetCursorName = {read=FSQLSetCursorName};
	__property TSQLSetDescField SQLSetDescField = {read=FSQLSetDescField};
	__property TSQLSetDescRec SQLSetDescRec = {read=FSQLSetDescRec};
	__property TSQLSetEnvAttr SQLSetEnvAttr = {read=FSQLSetEnvAttr};
	__property TSQLSetParam SQLSetParam = {read=FSQLSetParam};
	__property TSQLSetStmtAttr SQLSetStmtAttr = {read=FSQLSetStmtAttr};
	__property TSQLSetStmtOption SQLSetStmtOption = {read=FSQLSetStmtOption};
	__property TSQLSpecialColumns SQLSpecialColumns = {read=FSQLSpecialColumns};
	__property TSQLStatistics SQLStatistics = {read=FSQLStatistics};
	__property TSQLTables SQLTables = {read=FSQLTables};
	__property TSQLTransact SQLTransact = {read=FSQLTransact};
	__property TSQLBrowseConnect SQLBrowseConnect = {read=FSQLBrowseConnect};
	__property TSQLBulkOperations SQLBulkOperations = {read=FSQLBulkOperations};
	__property TSQLColAttributes SQLColAttributes = {read=FSQLColAttributes};
	__property TSQLColumnPrivileges SQLColumnPrivileges = {read=FSQLColumnPrivileges};
	__property TSQLDescribeParam SQLDescribeParam = {read=FSQLDescribeParam};
	__property TSQLExtendedFetch SQLExtendedFetch = {read=FSQLExtendedFetch};
	__property TSQLForeignKeys SQLForeignKeys = {read=FSQLForeignKeys};
	__property TSQLMoreResults SQLMoreResults = {read=FSQLMoreResults};
	__property TSQLNativeSql SQLNativeSql = {read=FSQLNativeSql};
	__property TSQLNumParams SQLNumParams = {read=FSQLNumParams};
	__property TSQLParamOptions SQLParamOptions = {read=FSQLParamOptions};
	__property TSQLPrimaryKeys SQLPrimaryKeys = {read=FSQLPrimaryKeys};
	__property TSQLProcedureColumns SQLProcedureColumns = {read=FSQLProcedureColumns};
	__property TSQLProcedures SQLProcedures = {read=FSQLProcedures};
	__property TSQLSetPos SQLSetPos = {read=FSQLSetPos};
	__property TSQLTablePrivileges SQLTablePrivileges = {read=FSQLTablePrivileges};
	__property TSQLDrivers SQLDrivers = {read=FSQLDrivers};
	__property TSQLBindParameter SQLBindParameter = {read=FSQLBindParameter};
	__property TSQLDriverConnect SQLDriverConnect = {read=FSQLDriverConnect};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TOdbcFunctions(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOdbcFunctions(void) { }
	#pragma option pop
	
};


class DELPHICLASS ESDOdbcError;
class PASCALIMPLEMENTATION ESDOdbcError : public Sdcommon::ESDEngineError 
{
	typedef Sdcommon::ESDEngineError inherited;
	
private:
	AnsiString FSqlState;
	
public:
	__fastcall ESDOdbcError(short AErrorCode, short ANativeError, const AnsiString AMsg, const AnsiString ASqlState);
	__property AnsiString SqlState = {read=FSqlState};
public:
	#pragma option push -w-inl
	/* ESDEngineError.Create */ inline __fastcall ESDOdbcError(int AErrorCode, int ANativeError, const AnsiString Msg, int AErrorPos) : Sdcommon::ESDEngineError(AErrorCode, ANativeError, Msg, AErrorPos) { }
	#pragma option pop
	#pragma option push -w-inl
	/* ESDEngineError.CreateDefPos */ inline __fastcall virtual ESDOdbcError(int AErrorCode, int ANativeError, const AnsiString Msg) : Sdcommon::ESDEngineError(AErrorCode, ANativeError, Msg) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall ESDOdbcError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sdcommon::ESDEngineError(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall ESDOdbcError(int Ident)/* overload */ : Sdcommon::ESDEngineError(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall ESDOdbcError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sdcommon::ESDEngineError(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall ESDOdbcError(const AnsiString Msg, int AHelpContext) : Sdcommon::ESDEngineError(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall ESDOdbcError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sdcommon::ESDEngineError(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall ESDOdbcError(int Ident, int AHelpContext)/* overload */ : Sdcommon::ESDEngineError(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall ESDOdbcError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sdcommon::ESDEngineError(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~ESDOdbcError(void) { }
	#pragma option pop
	
};


#pragma pack(push, 1)
struct TIOdbcConnInfo
{
	Byte ServerType;
	void *hEnv;
	void *hDbc;
} ;
#pragma pack(pop)

class DELPHICLASS TICustomOdbcDatabase;
class PASCALIMPLEMENTATION TICustomOdbcDatabase : public Sdcommon::TISqlDatabase 
{
	typedef Sdcommon::TISqlDatabase inherited;
	
private:
	void *FHandle;
	int FDriverOdbcVer;
	bool FIsTransSupported;
	AnsiString FDBMSVer;
	bool FGetDataAnyColumn;