FiveTech Software tech support forums

... the server is working well. function MakeTable( oCon ) local cCmdSql := "CREATE TABLE IF NOT EXISTS TEST ("+; "ROW_ID INTEGER NOT NULL AUTO_INCREMENT COMMENT 'LLAVE',"+; "CODIGO CHAR(5) NOT NULL COMMENT 'CODIGO CLIENTE',"+; "NOMBRE CHAR(30) NOT NULL COMMENT ...

... MsgInfo("Tabla CLIENTES NO EXISTE...") endif cCmdSql:= "CREATE TABLE IF NOT EXISTS clientes (" +; "ROW_ID INTEGER NOT NULL AUTO INCREMENT COMMENT 'Llave'," +; "CODIGO DECIMAL(05,0) NOT NULL COMMENT 'Codigo de Cliente'," +; "NOMBRE CHAR(50) NOT NULL ...

... the server is working well. function MakeTable( oCon ) local cCmdSql := "CREATE TABLE IF NOT EXISTS TEST ("+; "ROW_ID INTEGER NOT NULL AUTO_INCREMENT COMMENT 'LLAVE',"+; "CODIGO CHAR(5) NOT NULL COMMENT 'CODIGO CLIENTE',"+; "NOMBRE CHAR(30) NOT NULL COMMENT ...

... { LONG lResult = CallWindowProc( ( FARPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam ); InvalidateRect( hWnd, NULL, TRUE ); return lResult; } else if( uMsg == WM_PAINT ) { PAINTSTRUCT ps; char text[ 256 ]; RECT rct; HDC hDC = BeginPaint( hWnd, &ps ); HGDIOBJ ...

... local oodbca xdsn:="inkom" oodbc:=TOdbc():new(xdsn) oOdbc:Create( "Test", { { "Name", "C", 50, 0,"NOT NULL PRIMARY KEY" },; { "phone", "C", 15, 0,"" },; { "age", "C", 3, 0,"" } } ) oodbca:=TdbOdbcDirect():new("SELECT ...

... "initguid.h" #include "connmgr.h" LPWSTR AnsiToWide( LPSTR ); HB_FUNC (GPRSCONNECT) { // By Pawel HANDLE phWebConnection = NULL; DWORD pdwStatus = 0; //Comprobamos si ya estamos conectados. ConnMgrConnectionStatus (phWebConnection, &pdwStatus); if (pdwStatus == CONNMGR_STATUS_CONNECTED) ...

... Windows) ----------------- #ifndef _WINDOWS_ #define _WINDOWS_ #ifndef FALSE #define FALSE 0 #endif #ifndef TRUE #define TRUE 1 #endif #ifndef NULL #define NULL 0 #endif #ifndef SEEK_SET #define SEEK_SET  0 #define SEEK_CUR  1 #define SEEK_END  2 #endif #ifndef _MSC_VER // define portable types ...

... -1, 4); } HB_FUNC (DISKINFO) { BOOL iRet; unsigned __int64 iFreeBytesToCaller, iTotalBytes, iFreeBytes; iRet = GetDiskFreeSpaceEx(NULL, (PULARGE_INTEGER) &iFreeBytesToCaller, (PULARGE_INTEGER) &iTotalBytes, (PULARGE_INTEGER) &iFreeBytes); hb_reta (2); hb_stornl ((ULONG) ...

>
If u have any code sample can u kindly share wih me.
>

Please see the post viewtopic.php?f=3&t=15339&hilit=null for code samples

... SHELLEXECUTEINFO shExecInfo; shExecInfo.cbSize = sizeof(SHELLEXECUTEINFO); shExecInfo.fMask = SEE_MASK_NOCLOSEPROCESS; shExecInfo.hwnd = NULL; shExecInfo.lpVerb = _T("runas"); shExecInfo.lpFile = _T("MyAppl.exe"); shExecInfo.lpParameters = _T("-u"); shExecInfo.lpDirectory ...

At times we need to assign NULL value to a parameter. Some other times we need to skip a parameter, leaving it empty and allowing the server-side procedure / function to substitute the skipped parameter with its default value. Both are ...

Rao

Here is the link to the xHarb NG on Google .. you will see the thread I started and the discussions from other interested users with the same problem

http://groups.google.com/group/comp.lan ... our/topics

Rick

> Hopefully you will be able to contribute your fix to the xHarb project. > What should I do for this? I posted the fix here. I would like xHarbour team to examine this modification and incorporate if they consider it suitable. I do not know how to bring it to their notice. I would welcome if ...

Rao

Just wanted those following this thread to know you modification to WinOle32 workes perfect. Hopefully you will be able to contribute your fix to the xHarb project.

Rick Lipkin

The real problem is when we need to pass NULL value to a parameter of a ServerSide procedure or function. For example, this is a function stored on the MSSQL server. CREATE FUNCTION nulltest( @nVar Int )RETURNING IntASBEGINDECLARE @RetVal ...