egghelp/eggheads community

Returning Results

2011-10-19T01:08:41-04:00

Thanks nml375. I forgot to mention that.

Statistics: Posted by caesar — Wed Oct 19, 2011 1:08 am

Returning Results

2011-10-18T07:46:01-04:00

Thanks for letting me know guys

Statistics: Posted by danwa — Tue Oct 18, 2011 7:46 am

Returning Results

2011-10-18T03:23:15-04:00

The code posted by caesar is written for the mysqltcl tcl module, not BarkerJr's eggdrop module. Personally, I'd recommend the mysqltcl module as well, as it's a bit more flexible, and remains the same across other tcl-based applications.

That said, the problem with your script, is that you don't use the return-value of the mysql_query command:

Code:

...mysql_query "select * from Residential where Phone1 = 'a'"..

To store the result in a variable, use this:

Code:

set result [mysql_query "select * from Residential where Phone1 = 'a'"]

Now you can send the result to the channel, one record at a time:

Code:

foreach item $result {  puthelp "PRIVMSG $c :Record: $item"## Or perhaps a little neater:# puthelp "PRIVMSG $c :Record: [join $item ", "]"}

Statistics: Posted by nml375 — Tue Oct 18, 2011 3:23 am

Returning Results

2011-10-18T02:25:24-04:00

The script isn't working cos you forgot to fetch the results after you've queried the database. Don't know your database structure so I will fetch first 3 rows of the database and you should change this.

Code:

set db(host) "localhost"set db(user) "user"set db(pass) "secret"set db(dbase) "search"bind pub -|- !mysqlquery mysqlproc mysql {nick uhost hand chan txt} {global dbset db_handle [mysqlconnect -host $db(host) -user $db(user) -password $db(pass) -db $db(dbase)]set results [mysqlquery $db_handle "SELECT * from Residential WHERE Phone1 = 'a'"]if {![moreresult $results]} {puthelp "PRIVMSG $chan :Couldn't find any matches."} else {puthelp "PRIVMSG $chan :Matches:"while {[set row [mysqlfetch $results]] != ''} {set row1 [lindex $row 0]set row2 [lindex $row 1]set row3 [lindex $row 2]puthelp "PRIVMSG $chan :row1: $row1, row2: $row2, row3: $row3"}mysqlendquery $results}mysqlclose $db_handle}

Haven't tested this but in theory should work, if you change the database info and the rows. Let me know if it doesn't.

Statistics: Posted by caesar — Tue Oct 18, 2011 2:25 am

Returning Results

2011-10-17T23:56:40-04:00

Using this in conjunction with the mysql eggdrop module

http://www.barkerjr.net/eggdropmodules.html
http://wiki.barkerjr.net/wiki/MySQL_Module#Tcl_Commands

Code:

proc mysql {n u h c a} {mysql_connect dbname dbhost dbuser dbpassmysql_query "select * from Residential WHERE Phone1 = 'a'"puthelp "PRIVMSG $c: $a"mysql_errno}bind pub -|- !mysqlquery mysql

In the Table Residential there is a field named Phone1 that is populated in every row.

I can't get it to return anything, saying that, i'm not very confident with TCL.

Statistics: Posted by danwa — Mon Oct 17, 2011 11:56 pm