DBF Viewer

Utilities like DBU, Make, IDE written in HMG/ used to create HMG based applications

Moderator: Rathinagiri

User avatar
MigSoft
Posts: 70
Joined: Sat Aug 02, 2008 5:51 am
Location: Santiago - Chile
Contact:

DBF Viewer

Post by MigSoft » Wed Dec 30, 2009 2:57 am

Hello everyone,

"dbfview" is an application that is a mixture of code provided by our friends Rathinagiri, Grigory Filatov and an adaptation of sample "contactos" by Roberto Lopez.

I hope it serves as a starting point of a tool for viewing files DBF.

Regards,

Miguel Angel Juárez A.


Compile with IDE :P
Attachments
HMGdbview.zip
(898.06 KiB) Downloaded 794 times
Regards,

MigSoft.

User avatar
dhaine_adp
Posts: 457
Joined: Wed Aug 06, 2008 12:22 pm
Location: Manila, Philippines
Been thanked: 1 time

Post by dhaine_adp » Wed Dec 30, 2009 5:08 am

Hi MigSoft,

I downloaded the file, thanks for sharing. I'll test it and hopefully I can get back to you.

Happy New Year too...... and to everyone as well!!!!!!!!!!!!!!!!!!!

Thanks,

Danny
Regards,

Danny
Manila, Philippines

User avatar
Alex Gustow
Posts: 290
Joined: Thu Dec 04, 2008 1:05 pm
Location: Yekaterinburg, Russia
Contact:

Post by Alex Gustow » Wed Dec 30, 2009 8:28 am

Hi Miguel! I downloaded your app, runed - it looks and works fine & useful. Really good thing - thanks for sharing!

Danny, I agree with you - HAPPY NEW YEAR to all !!!!!!

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Post by fchirico » Wed Dec 30, 2009 11:22 am

MigSoft wrote:Hello everyone,

"dbfview" is an application that is a mixture of code provided by our friends Rathinagiri, Grigory Filatov and an adaptation of sample "contactos" by Roberto Lopez.

I hope it serves as a starting point of a tool for viewing files DBF.

Regards,

Miguel Angel Juárez A.


Compile with IDE :P
Gracias Miguel!

Feliz año nuevo para todos!!!

Happy new year for all!!
Saludos, Fernando Chirico.

User avatar
MigSoft
Posts: 70
Joined: Sat Aug 02, 2008 5:51 am
Location: Santiago - Chile
Contact:

Post by MigSoft » Wed Dec 30, 2009 12:56 pm

Corrigenda, :D

File "dbview.prg "on export to Excel routine please change a few lines as follows.

Code: Select all

*--------------------------------------------------------*
Procedure SaveToXls( cAlias, cFile )
*--------------------------------------------------------*
   Local oExcel,  oSheet, oBook, aColumns, nCell := 1

   If !Empty( cbase )

        IF ( oExcel := win_oleGetActiveObject("Excel.Application" )) == NIL
           IF ( oExcel := win_oleCreateObject("Excel.Application" ) ) == NIL
              MsgStop( "ERROR! Excel is not available. ["+ Ole2TxtError()+ "]", PROGRAM )
              Return
           ENDIF
        ENDIF

	oExcel:Visible := .F.
	oExcel:WorkBooks:Add()
	oSheet := oExcel:ActiveSheet()  

	Aeval( (cAlias)->( DBstruct(cAlias) ), { |e,i| oSheet:Cells( nCell, i ):Value := e[DBS_NAME] } )
	do while !(cAlias)->( EoF() )
		nCell++
		aColumns := (cAlias)->( Scatter() )
		aEval( aColumns, { |e,i| oSheet:Cells( nCell, i ):Value := e } )
		(cAlias)->( DBskip() )
	enddo

	oBook := oExcel:ActiveWorkBook()
	oBook:Title   := cAlias
	oBook:Subject := cAlias
	oBook:SaveAs(cFile)
	oExcel:Quit()

   Endif

Return
Regards,

MigSoft
Regards,

MigSoft.

User avatar
sudip
Posts: 1444
Joined: Sat Mar 07, 2009 11:52 am
Location: Kolkata, WB, India
Has thanked: 4 times

Post by sudip » Wed Dec 30, 2009 5:55 pm

Hello MigSoft,

Thanks a lot for sharing.
Regarding export to excel. You may try with copying and pasting (from clipboard). IMHO, it will be more efficient mainly for larger tables.
With best regards.

Sudip
With best regards,
Sudip

User avatar
MigSoft
Posts: 70
Joined: Sat Aug 02, 2008 5:51 am
Location: Santiago - Chile
Contact:

Post by MigSoft » Wed Dec 30, 2009 6:15 pm

Hi Sudip,

Very interesting. How so :?: :roll:

Regards,

MigSoft
Regards,

MigSoft.

User avatar
esgici
Posts: 4346
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 233 times
Been thanked: 80 times
Contact:

Post by esgici » Wed Dec 30, 2009 6:41 pm

Hola Miguel

Congrats and thanks, good and big job :)

Yet another "contender" to DBA ;)

Saludos

--

Esgici
Viva INTERNATIONAL HMG :D

User avatar
MigSoft
Posts: 70
Joined: Sat Aug 02, 2008 5:51 am
Location: Santiago - Chile
Contact:

Post by MigSoft » Wed Dec 30, 2009 11:16 pm

Hello Esgici,

Thanks for your kind words.

DBA is a powerful tool (Congratulations), and has many functions that at this time "DBViewer" does not count.

In the future we can all keep adding new features. :P

Best regards,

MigSoft
Regards,

MigSoft.

User avatar
Roberto Lopez
HMG Founder
Posts: 3900
Joined: Wed Jul 30, 2008 6:43 pm
Has thanked: 13 times
Been thanked: 136 times

Post by Roberto Lopez » Wed Dec 30, 2009 11:45 pm

MigSoft wrote:Hello everyone,

"dbfview" is an application that is a mixture of code provided by our friends Rathinagiri, Grigory Filatov and an adaptation of sample "contactos" by Roberto Lopez.

I hope it serves as a starting point of a tool for viewing files DBF.

Regards,

Miguel Angel Juárez A.


Compile with IDE :P

Thanks!!!
Regards/Saludos,

Roberto


(Veritas Filia Temporis)

Post Reply