function Main()
local oDlg, oServer, oBrw
oServer = TDolphinSrv():New( "10.0.0.220", "*********", "*********" )
if oServer:hMySQL == nil
MsgInfo( "can't connect to the database" )
return nil
endif
oServer:SelectDB( "lotenet" )
DEFINE DIALOG oDlg TITLE "Clients" SIZE 1200, 650
@ 5, 2 BROWSE oBrw SIZE 1150, 100 OF oDlg ;
ARRAY oServer:Query( "SELECT * FROM doc_data LIMIT 0, 30" )
ACTIVATE DIALOG oDlg NOWAIT
oServer:End()
Return Nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 49 guests