runtime error on c:\hmg.3.4.4\SAMPLES\HFCL\SQL\RDD_SQL\mdb

Moderator: Rathinagiri

Post Reply
User avatar
hmgchang
Posts: 239
Joined: Tue Aug 13, 2013 4:46 am
Location: Indonesia
Has thanked: 1 time
Been thanked: 4 times

runtime error on c:\hmg.3.4.4\SAMPLES\HFCL\SQL\RDD_SQL\mdb

Post by hmgchang » Tue Jun 05, 2018 9:20 pm

Dear Friends,

Reporting runtime error on : c:\hmg.3.4.4\SAMPLES\HFCL\SQL\RDD_SQL\mdb
runtimeerror.JPG
runtimeerror.JPG (16.29 KiB) Viewed 366 times
and the code :
code.JPG
code.JPG (74.5 KiB) Viewed 366 times

Code: Select all

* RDD SQL DEMO
* Based on Harbour Compiler Contrib Samples
* Adapted for HMG by Roberto Lopez - 2009

#include "hmg.ch"

REQUEST SDDODBC, SQLMIX

#define RDDI_CONNECT          1001
 
PROC main()

	RDDSETDEFAULT( "SQLMIX" )
	SET( 4, "yyyy-mm-dd" )
	RDDINFO( RDDI_CONNECT, { "ODBC", "DBQ="  + "test.mdb;Driver={Microsoft Access Driver (*.mdb)}" } )
	DBUSEAREA( .T.,, "select * from test", "test" )

	INDEX ON FIELD->SALARY TO salary
	DBGOTOP()

	DEFINE WINDOW Win_1 ;
		ROW 0 ;
		COL 0 ;
		WIDTH 500 ;
		HEIGHT 400 ;
		TITLE 'RDD SQL' ;
		WINDOWTYPE MAIN  

		DEFINE GRID grid1
			ROW 		10
			COL 		10
			WIDTH		470			
			HEIGHT		330
			HEADERS 	{'First','Last','Salary'}
			WIDTHS		{135,135,135}
			ROWSOURCE	"TEST"
			COLUMNFIELDS	{'First','Last','Salary'}
		END GRID
		                           	
	END WINDOW

	Win_1.Center

	Win_1.Activate

RETURN   
TIA

best rgds,
Chang
Just Hmg It !

User avatar
dragancesu
Posts: 569
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 14 times
Been thanked: 101 times

Post by dragancesu » Wed Jun 06, 2018 6:22 am

Are you definesd ODBC connection?

ODBC on 64-bit widnows don't work good

User avatar
mustafa
Posts: 689
Joined: Fri Mar 20, 2009 11:38 am
Location: Alicante - Spain
Been thanked: 78 times

Post by mustafa » Wed Jun 06, 2018 11:01 am

Hello Chang
View ---> viewtopic.php?f=9&t=837&p=45207#p45207

Regards
Mustafa

User avatar
hmgchang
Posts: 239
Joined: Tue Aug 13, 2013 4:46 am
Location: Indonesia
Has thanked: 1 time
Been thanked: 4 times

Post by hmgchang » Wed Jun 06, 2018 9:41 pm

Thanks Dragancesu & Mustafa,

Yes, mine is win10, 64bits...

best rgds,
Chang
Just Hmg It !

Post Reply