IM HAVE PUT THIS LINE IN TO (*a) OR ELSE IM GET THIS ERROR -> * Com 'MySQL.Database' already open
But Im get the same error like / nycdiesel / -> * Invalid parameters: $com (line 19, sql.mrc)
The line 19 -> (*b)
Hope som one can help!
// NN from Denmark out.
sorry my english!
alias MySQL.GetNickData {
(*a) .comclose RecordsetObject
(*a) .comclose MySQL.Database
.comopen MySQL.Database ADODB.Connection
var %Connection.String = $+( $&
DRIVER={MySQL ODBC 3.51 Driver};, $&
SERVER=SERVERIP;, $&
PORT=3306;, $&
DATABASE=mydatabasename;, $&
USER=USERNAME;, $&
PASSWORD=PASSWORD;, $&
OPTION=3;, $&
)
.echo -q $com(MySQL.Database, Open, 1, *bstr, %Connection.String)
.comopen RecordsetObject ADODB.Recordset
var %SQL = SELECT FirstName, LastName, Gender FROM Nicks WHERE Nickname = ' $+ $1 $+ ';
(*b) .echo -q $com(RecordsetObject, Open, 1, *bstr, %SQL, dispatch, MySQL.Database, int, 1, int, 3, int 1)
.echo -q $com(RecordsetObject, Collect, 2, i4, 0)
var %Name = $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 1)
var %Name = %Name $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 2)
var %Gender = ( $+ $com(RecordsetObject).result $+ )
if ($isid) return %Name %Gender
else echo -gaitc info * $1 is %Name %Gender
.comclose RecordsetObject
.comclose MySQL.Database
}
