Get data from DSN.
3804 ier=idba_presentati(dbaconnection_init%dbhandle,quidsn,quiuser,quipassword)
3807 dbaconnection_init%dbhandle=optio_i(idbhandle)
3810 end function dbaconnection_init
3813 subroutine dbaconnection_delete(handle)
3814 class(dbaconnection),
intent(inout) :: handle
3817 if (
c_e(handle%dbhandle))
then 3818 ier = idba_arrivederci(handle%dbhandle)
3819 ier = idba_error_remove_callback(handle%handle_err)