db_blob_get (public)

 db_blob_get [ -dbn dbn ] [ -subst subst ] statement_name sql \
    [ args... ]

Defined in packages/acs-tcl/tcl/01-database-procs.tcl

PostgreSQL only.

Switches:
-dbn
(optional)
The database name to use. If empty_string, uses the default database.
-subst
(defaults to "all") (optional)
Perform Tcl substitution in xql-files. Possible values: all, none, vars, commands
Parameters:
statement_name
sql

Partial Call Graph (max 5 caller/called nodes):
%3 cr_write_content-lob cr_write_content-lob (private) db_blob_get db_blob_get cr_write_content-lob->db_blob_get search::content_get search::content_get (private) search::content_get->db_blob_get ad_arg_parser ad_arg_parser (public) db_blob_get->ad_arg_parser db_driverkey db_driverkey (public) db_blob_get->db_driverkey db_exec_lob db_exec_lob (private) db_blob_get->db_exec_lob db_qd_get_fullname db_qd_get_fullname (public) db_blob_get->db_qd_get_fullname db_qd_replace_sql db_qd_replace_sql (public) db_blob_get->db_qd_replace_sql

Testcases:
No testcase defined.
Source code:
    ad_arg_parser { bind } $args
    set proc_name {db_blob_get}
    set driverkey [db_driverkey $dbn]

    switch -- $driverkey {

        postgresql {
            set full_statement_name [db_qd_get_fullname $statement_name]
            db_with_handle -dbn $dbn db {
                set data [db_exec_lob blob_get $db $full_statement_name $sql]
            }
            return $data
        }

        oracle {
            set pre_sql $sql
            set full_statement_name [db_qd_get_fullname $statement_name]
            set sql [db_qd_replace_sql -ulevel 3 -subst $subst $full_statement_name $pre_sql]
            set data [db_string dummy_statement_name $sql]
            return $data
        }

        nsodbc -
        default {
            error "$proc_name is not supported for this database."
        }
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: