232 lines
7.1 KiB
C
232 lines
7.1 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
Harbour Project source code
|
|
|
|
This file contains source for first odbc routines.
|
|
|
|
Copyright 1999 Antonio Linares <alinares@fivetech.com>
|
|
www - http://www.harbour-project.org
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version, with one exception:
|
|
|
|
The exception is that if you link the Harbour Runtime Library (HRL)
|
|
and/or the Harbour Virtual Machine (HVM) with other files to produce
|
|
an executable, this does not by itself cause the resulting executable
|
|
to be covered by the GNU General Public License. Your use of that
|
|
executable is in no way restricted on account of linking the HRL
|
|
and/or HVM code into it.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
|
|
their web site at http://www.gnu.org/).
|
|
|
|
|
|
*/
|
|
|
|
/*
|
|
* The following parts are Copyright of the individual authors.
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* Copyright 1999 Felipe G. Coury <fcoury@flexsys-ci.com>
|
|
* HB_SQLNUMRES()
|
|
* HB_SQLDESCRIB()
|
|
* HB_SQLEXTENDE()
|
|
*
|
|
* See doc/license.txt for licensing terms.
|
|
*
|
|
*/
|
|
|
|
#include <windows.h>
|
|
#include <limits.h>
|
|
#include <malloc.h>
|
|
#include <math.h>
|
|
#include <stdlib.h>
|
|
#include <ctype.h>
|
|
#include "extend.h"
|
|
#include "itemapi.h"
|
|
#include "hbdefs.h"
|
|
#include <sql.h>
|
|
#include <sqlext.h>
|
|
#include <sqltypes.h>
|
|
|
|
HARBOUR HB_SQLALLOCEN( void ) /* HB_SQLALLOCENV( @hEnv ) --> nRetCode */
|
|
{
|
|
HENV hEnv;
|
|
RETCODE ret = SQLAllocEnv( &hEnv );
|
|
|
|
hb_stornl( ( LONG ) hEnv, 1 );
|
|
hb_retni( ret );
|
|
}
|
|
|
|
HARBOUR HB_SQLALLOCCO( void ) /* HB_SQLALLOCCONNECT( hEnv, @ hDbc ) --> nRetCode */
|
|
{
|
|
HDBC hDbc;
|
|
RETCODE ret = SQLAllocConnect( ( HENV ) hb_parnl( 1 ), &hDbc );
|
|
|
|
hb_stornl( ( LONG ) hDbc, 2 );
|
|
hb_retni( ret );
|
|
}
|
|
|
|
HARBOUR HB_SQLDRIVERC( void ) /* HB_SQLDRIVERCONNECT( hDbc, @ cConnectString, lPrompt ) --> nRetCode */
|
|
{
|
|
BYTE bBuffer1[ 1024 ];
|
|
SWORD wLen;
|
|
RETCODE ret = SQLDriverConnect( ( HDBC ) hb_parnl( 1 ),
|
|
GetDesktopWindow(),
|
|
hb_parc( 2 ), strlen(hb_parc(2)),
|
|
bBuffer1, 1024, &wLen, SQL_DRIVER_COMPLETE ) ;
|
|
hb_storc( bBuffer1 , 3 );
|
|
hb_retni( ret );
|
|
}
|
|
|
|
HARBOUR HB_SQLDISCONN( void ) /* HB_SQLDISCONNECT( hDbc ) --> nRetCode */
|
|
{
|
|
hb_retni( SQLDisconnect( ( HDBC ) hb_parnl( 1 ) ) );
|
|
}
|
|
|
|
HARBOUR HB_SQLFREECON( void ) /* HB_SQLFREECONNECT( hDbc ) --> nRetCode */
|
|
{
|
|
hb_retni( SQLFreeConnect( ( HDBC ) hb_parnl( 1 ) ) );
|
|
}
|
|
|
|
HARBOUR HB_SQLFREEENV( void ) /* HB_SQLFREEENV( hEnv ) --> nRetCode */
|
|
{
|
|
hb_retni( SQLFreeEnv( ( HENV ) hb_parnl( 1 ) ) );
|
|
}
|
|
|
|
HARBOUR HB_SQLALLOCST() /* HB_SQLALLOCSTMT( hDbc, @ hStmt ) --> nRetCode */
|
|
{
|
|
HSTMT hStmt;
|
|
|
|
hb_retni( SQLAllocStmt( ( HDBC ) hb_parnl( 1 ), &hStmt ) );
|
|
hb_stornl( ( LONG ) hStmt, 2 );
|
|
}
|
|
|
|
HARBOUR HB_SQLFREESTM() /* HB_SQLFREESTMT( hStmt, nType ) --> nRetCode */
|
|
{
|
|
hb_retni( SQLFreeStmt( ( HSTMT ) hb_parnl( 1 ), hb_parni( 2 ) ) );
|
|
}
|
|
|
|
HARBOUR HB_SQLEXECDIR( void ) /* HB_SQLEXECDIRECT( hStmt, cStatement ) --> nRetCode */
|
|
{
|
|
hb_retni( SQLExecDirect( ( HSTMT ) hb_parnl( 1 ), hb_parc( 2 ), SQL_NTS ) );
|
|
}
|
|
|
|
HARBOUR HB_SQLFETCH( void ) /* HB_SQLFETCH( hStmt ) --> nRetCode */
|
|
{
|
|
hb_retni( SQLFetch( ( HSTMT ) hb_parnl( 1 ) ) );
|
|
}
|
|
|
|
HARBOUR HB_SQLGETDATA( void ) /* HB_SQLGETDATA( hStmt, nField, nType, nLen, @cBuffer ) --> nRetCode */
|
|
{
|
|
SDWORD lLen = ( SDWORD ) hb_parnl( 4 );
|
|
PTR bBuffer = hb_xgrab( lLen );
|
|
WORD wType = hb_parni( 3 );
|
|
WORD wResult = SQLGetData( ( HSTMT ) hb_parnl( 1 ), hb_parni( 2 ),
|
|
wType, ( PTR ) bBuffer, lLen, &lLen );
|
|
|
|
if( wResult == SQL_SUCCESS || wResult == SQL_SUCCESS_WITH_INFO )
|
|
hb_storclen( ( LPSTR ) bBuffer,
|
|
( WORD ) lLen, 5 );
|
|
|
|
hb_xfree( ( PTR ) bBuffer );
|
|
hb_retni( wResult );
|
|
}
|
|
|
|
/* HB_NUMRESULTCOLS( hStmt, @nColCount ) */
|
|
HARBOUR HB_SQLNUMRES( void )
|
|
{
|
|
SQLSMALLINT nCols;
|
|
WORD wResult = SQLNumResultCols( ( HSTMT ) hb_parnl( 1 ), &nCols );
|
|
|
|
if( wResult == SQL_SUCCESS || wResult == SQL_SUCCESS_WITH_INFO )
|
|
hb_stornl( ( LONG ) nCols, 2 );
|
|
|
|
hb_retni( wResult );
|
|
}
|
|
|
|
/* HB_SQLDESCRIBECOL( hStmt, nCol, @cName, nLen, @nBufferLen, @nDataType, @nColSize, @nDec, @nNull ) --> nRetCode */
|
|
HARBOUR HB_SQLDESCRIB( void )
|
|
{
|
|
SDWORD lLen = ( SDWORD ) hb_parnl( 4 );
|
|
PTR bBuffer = hb_xgrab( lLen );
|
|
SQLSMALLINT wBufLen = hb_parni( 5 );
|
|
SQLSMALLINT wDataType = hb_parni( 6 );
|
|
SQLUINTEGER wColSize = hb_parni( 7 );
|
|
SQLSMALLINT wDecimals = hb_parni( 8 );
|
|
SQLSMALLINT wNullable = hb_parni( 9 );
|
|
WORD wResult = SQLDescribeCol( ( HSTMT ) hb_parnl( 1 ), hb_parni( 2 ),
|
|
( PTR ) bBuffer, hb_parni( 4 ), &wBufLen,
|
|
&wDataType, &wColSize, &wDecimals,
|
|
&wNullable );
|
|
|
|
if( wResult == SQL_SUCCESS || wResult == SQL_SUCCESS_WITH_INFO )
|
|
{
|
|
hb_storclen( ( LPSTR ) bBuffer,
|
|
( WORD ) wBufLen, 3 );
|
|
hb_stornl( ( LONG ) wBufLen, 5 );
|
|
hb_stornl( ( LONG ) wDataType, 6 );
|
|
hb_stornl( ( LONG ) wColSize, 7 );
|
|
hb_stornl( ( LONG ) wDecimals, 8 );
|
|
hb_stornl( ( LONG ) wNullable, 9 );
|
|
}
|
|
|
|
hb_xfree( ( PTR ) bBuffer );
|
|
hb_retni( wResult );
|
|
}
|
|
|
|
/* HB_SQLEXTENDEDFETCH( hStmt, nOrientation, nOffset, @nRows, @nRowStatus ) */
|
|
HARBOUR HB_SQLEXTENDE( void )
|
|
{
|
|
SQLUINTEGER uiRowCountPtr = hb_parni( 4 );
|
|
SQLUSMALLINT siRowStatus = hb_parni( 5 );
|
|
WORD wResult = SQLExtendedFetch( ( HSTMT ) hb_parnl( 1 ),
|
|
hb_parnl( 2 ),
|
|
hb_parnl( 3 ),
|
|
&uiRowCountPtr,
|
|
&siRowStatus );
|
|
|
|
if( wResult == SQL_SUCCESS || wResult == SQL_SUCCESS_WITH_INFO )
|
|
{
|
|
hb_stornl( ( LONG ) uiRowCountPtr, 4 );
|
|
hb_stornl( ( LONG ) siRowStatus, 5 );
|
|
}
|
|
|
|
hb_retni( wResult );
|
|
}
|
|
|
|
HARBOUR HB_SQLFETCHSC( void )
|
|
{
|
|
hb_retni( SQLFetchScroll( ( HSTMT ) hb_parnl( 1 ),
|
|
hb_parnl( 2 ), hb_parnl( 3 ) ) );
|
|
}
|
|
|
|
HARBOUR HB_SQLERROR() // hEnv, hDbc, hStmt, @ cErrorClass, @ nType, @ cErrorMsg
|
|
{
|
|
BYTE bBuffer1[ 256 ], szErrorMsg[ 256 ];
|
|
UDWORD lError;
|
|
SWORD wLen;
|
|
|
|
hb_retni( SQLError( ( HENV ) hb_parnl( 1 ), ( HDBC ) hb_parnl( 2 ),
|
|
( HSTMT ) hb_parnl( 3 ), bBuffer1, &lError,
|
|
szErrorMsg, 256, &wLen ) );
|
|
|
|
hb_storc( bBuffer1, 4 );
|
|
hb_stornl( lError, 5 );
|
|
hb_storc( szErrorMsg, 6 );
|
|
}
|
|
|
|
|