Get data from DSN.
3782 ier=idba_presentati(dbaconnection_init%dbhandle,quidsn)
3784 dbaconnection_init%dbhandle=optio_i(idbhandle)
3787 end function dbaconnection_init
3790 subroutine dbaconnection_delete(handle)
3791 #ifdef F2003_FULL_FEATURES
3792 type (dbaconnection),
intent(inout) :: handle
3794 class(dbaconnection),
intent(inout) :: handle