https://panoptic.com/mediawiki/aolserver/index.php?action=history&feed=atom&title=Ns_dbquery 2026-04-25T21:23:55Z Revision history for this page on the wiki MediaWiki 1.34.2 https://panoptic.com/mediawiki/aolserver/index.php?title=Ns_dbquery&diff=5069&oldid=prev 2007-06-12T14:56:19Z

<p></p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> #<br /> # ns_dbquery --<br /> #<br /> # Execute a SQL query against either a pool or an opened db handle,<br /> # and return the resultset as a list of lists. The first list<br /> # contains the column names.<br /> #<br /> # If the statement was a statement which does not return rows, the<br /> # result is an empty list. TODO: Perhaps return the number of rows<br /> # updated?<br /> #<br /> <br /> proc ns_dbquery {args} {<br /> if {([llength $args] - 1) % 2 != 0} {<br /> error &quot;wrong # args: should be \&quot;ns_dbquery ?-pool name\<br /> | -handle dbId? ?-timeout secs? sql\&quot;&quot;<br /> }<br /> foreach {key value} [lrange $args 0 end-1] {<br /> switch -exact -- $key {<br /> -pool { set pool $value }<br /> -handle { set handle $value }<br /> -timeout { set timeout $value }<br /> }<br /> }<br /> if {![info exists timeout]} {<br /> set timeout 0<br /> }<br /> if {[info exists pool]} {<br /> set db [ns_db gethandle -timeout $timeout $pool]<br /> } elseif {[info exists handle]} {<br /> set db $handle<br /> } else {<br /> # Use default pool, if configured.<br /> set db [ns_db gethandle -timeout $timeout]<br /> }<br /> if {![string length $db]} {<br /> error &quot;couldn't get db handle&quot;<br /> }<br /> set res [catch {<br /> set resultset [list]<br /> if {[ns_db exec $db [lindex $args end]] eq &quot;NS_ROWS&quot;} {<br /> set row [ns_db bindrow $db]<br /> set columns [list]<br /> foreach {key value} [ns_set array $row] {<br /> lappend columns $key<br /> }<br /> lappend resultset $columns<br /> while {[ns_db getrow $db $row]} {<br /> set data [list]<br /> foreach {key value} [ns_set array $row] {<br /> lappend data $value<br /> }<br /> lappend resultset $data<br /> }<br /> ns_set free $row<br /> }<br /> } err]<br /> if {![info exists handle]} {<br /> ns_db releasehandle $db<br /> }<br /> if {$res} {<br /> error $err<br /> }<br /> return $resultset<br /> }<br /> &lt;/pre&gt;</div>

Dossy