Xailer & OZ Software

Hola.
Algo me falta para cerrar la conexión en esta función, no lo consigo,
todo me funciona pero hasta que no salgo del programa no desconecta de
SQL Server.
FUNCTION CreaBaseSQL()
LOCAL oSource
LOCAL Comando
with object oSource := TOdbcDatasource():new()
:cConnect := "DRIVER=SQL Server;"+;
"DATABASE=;"+;
"SERVER=192.168.1.5;"+;
"UID=sa;"+;
"PWD=123456"
:lConnected := .T.
:create()
comando := memoread( ".SQLCrearBase.sql" )
:execute( Comando )
comando := memoread( ".SQLCrearTablas.sql" )
:execute( Comando )
end
oSource:destroy()
return nil

Miguel,
Prueba con oSource:End().
Saludos,
"Miguel A. Torrrellas" <miguel@torsat.net> escribió en el mensaje
news:440b4f64$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola.
>
> Algo me falta para cerrar la conexión en esta función, no lo consigo, todo
> me funciona pero hasta que no salgo del programa no desconecta de SQL
> Server.
>
> FUNCTION CreaBaseSQL()
> LOCAL oSource
> LOCAL Comando
> with object oSource := TOdbcDatasource():new()
> :cConnect := "DRIVER=SQL Server;"+;
> "DATABASE=;"+;
> "SERVER=192.168.1.5;"+;
> "UID=sa;"+;
> "PWD=123456"
> :lConnected := .T.
> :create()
>
>
> comando := memoread( ".SQLCrearBase.sql" )
> :execute( Comando )
>
> comando := memoread( ".SQLCrearTablas.sql" )
> :execute( Comando )
> end
>
> oSource:destroy()
>
>
> return nil