Con este procedimiento inicializo el cConnect del ADODataSource y lo conecto
*----------------------------------------------------------- -------------------*
procedure InicializaBDADO(oBD,lAbrir)
*----------------------------------------------------------- -------------------*
DEFAULT lAbrir TO .T.
oBD:cConnect :='Provider=MSDASQL.1;Persist Security Info=False;Data
Source=BDSISGESTION'
oBD:cUser :='sysdba'
oBD:cPassword:='masterkey'
oBD:lDisplayErrors:=.T.
if lAbrir
oBD:Connect()
endif
return
En los formularios en el evento oninitialize escribo lo siguiente:
if !::BasedeDatos:lConnected
InicializaBDADO(::BasedeDatos,.T.)
::lCentered:=.T.
endif
BasedeDatos es un objeto clase tADODataSource.
BDSISGESTION es el DSN ODBC que apunta a la base de datos.
y me funciona bien
"Martin del Angel" <
martindelangel@msn.com> escribió en el mensaje
news:46396ec9$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
> Ya tengo instalado el controlador de ODBC y tengo el siguiente codigo y me
> truena.
>
>
> METHOD FormInitialize( oSender ) CLASS TForm1
> LOCAL cConection:="DSN=DYMSACOMPRAS;Driver=Firebird/InterBase(r)
> driver;"+;
>
> " Dbname=C:REGISCOMPRASCOMPRAS.FDB;CHARSET=NONE;PWD=masterk ey;UID=SYSDBA; "+;
> "Client=C:USB DRIVEREGISREGIS_COMPRASgds32.dll"
>
> WITH OBJECT ::oAdoDataSource1
> :cConnect := cConection
> :lConnected:=.t. // truena aqui
> end
>
> WITH OBJECT ::oSQLQuery1
> :oDataSource:=::oAdoDataSource1
> :cSelect:='SELECT * FROM CUENTAS'
> :lOpen:=.t.
> end
>
> WITH OBJECT ::oDBBrowse1
> :oDataSet:=::oSQLQuery1
> END
>
> RETURN Nil
>
> Si no es mucha molestia un ejemplo,
>
> Gracias
>
>
>
>
> "Christian" <
christianassenza@yahoo.com.ar> wrote in message
> news:[email=
4638f69c@ozsrv2.ozlan.local...]
4638f69c@ozsrv2.ozlan.local...[/email]
>> Yo trabajo con Interbase y funciona muy bien, antes trabajaba con ODBC
>> (tODBCDatasource) pero ahora lo hago con ADO, con OLEDB for ODBC. He
>> bajado el controlador ODBC de para FireBird (tiene un logo como un ave
>> fenix).
>>
>>
>> "Martin del Angel" <
martindelangel@msn.com> escribió en el mensaje
>> news:4638efdb$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>>> Hola !
>>>
>>> Alguien a trabajado con Firebird y Xailer ?
>>>
>>> Se puede conectar por medio de OLEDB ?
>>>
>>> Ayuda Please !
>>>
>>>
>>>
>>> Gracias
>>>
>>
>>
>
>