Xailer & OZ Software

Hola compañeros,
Alguno de uds. que me pueda proporcionar un ejemplo de connexion y
apertura de base de datos y tablas usando FireBird y ADO de Xailer...
Saludos
GabO

METHOD FormInitialize( oSender ) CLASS TMenuPrincipal
LOCAL cSTRING
AppData:AddData( "BD", "")
AppData:AddData( "cnn", "")
AppData:AddData( "SQLUSUARIOS", "")
AppData:AddData("sFecha",date())
AppData:AddData("aUsuarios","")
/*
en petra.ini tengo:
[BASEDATOS]
BD=LOCALHOST:C:SISTEMASXAILERPETRADATAPETRA.FDB
*/
WITH OBJECT TIni():New( ".Petra.ini" )
AppData:BD := :GetEntry( "BASEDATOS", "BD", "" )
END
// si puedes observar en la cadena donde dice "Location="+AppData:BD
// es donde esta la data de la Base de Datos
cSTRING:="Provider=LCPI.IBProvider.3.Free;Password=masterkey; "+;
"Persist Security Info=True;User ID=SYSDBA;Data Source=PETRA;"+;
"Location="+AppData:BD+";ctype=WIN1251;garbage_collect=True; "+;
"auto_commit=True;auto_commit_level=65536;bicursor=False;"+;
"free_threading=True;array_vt_type=True;inner_trans=True;"+;
" truncate_char=True;support_odbc_query=False;force_prepare_st mt=False; "+;
"unicode_mode=True;unicode_stmt=True;clear_param_info=True;"+;
" auto_param_describe=True;force_param_describe=True;named_par am_prefix=:; "+;
" ignore_unprepare=True;exec_sp_named_param=False;odbc_call_sp =2; "+;
" auto_commit_ddl=0;auto_commit_ddl_level=4096;rowset_vm_using =512; "+;
" nested_trans=False;ado_exec_sp=2;schema_sp_params=2;ignore_e rr_param=0; "+;
"dbclient_library=fbclient.dll;dbclient_type=fb2.0;"+;
"support_square_delim_name=0;keywords_list=0"
Waiton('Conectando con Base de Datos Petra')
WITH OBJECT ::oDBPETRA
:cConnect:=cSTRING
IF !:lConnected
IF !:Connect()
MSGSTOP('Error al Conectar a Base de Datos PETRA','Error')
::Close()
ELSE
MSGINFO('Conecatdo a Base de Datos Petra')
ENDIF
ENDIF
END
WaitOff()
AppData:cnn:=::oDBPETRA
WITH OBJECT ::oSQLUSUARIOS
:cSelect:="Select * From usuarios ORDER BY USUARIO"
IF !:lOpen
:lOpen:=.t.
IF !:lOpen
msgstop("Error al Abrir Usuarios ","Error")
::Close()
ENDIF
ENDIF
END
AppData:SQLUsuarios:=::oSQLUSUARIOS
RETURN Nil
--