Forums Scripts & Popups Accessing mysql using mIRCs COM features

alias mysql.GetNickData {
  ; Open an ADODB Connection object.
  ;
  .comopen mysql.Database ADODB.Connection

  ; For the purposes of this example, I have shortened the Open method declaration by defining a variable
  ; to hold a proper mysql connection string. Again, if this step does not work for you, then you will need
  ; to install the OLEDB driver from here (picking the closest mirror).
  ;
  var %Connection.String = Provider=MySQLProv;Data Source=mIRC;User ID=root;Password=<edited>

  ; Open the connection to the mysql database you wish to work with, specified in the Data Source
  ; parameter above.
  ;
  .echo -q $com(mysql.Database, Open, 1, *bstr, %Connection.String)

  ; Open an ADODB Recordset object.
  ;
  .comopen RecordsetObject ADODB.Recordset

  ; Again, to shorten the Open method line, I have put the SQL I want to use to populate the recordset 
  ; inside a variable.
  ;
  var %SQL = SELECT * FROM mp3s;

  ; Open the recordset object using the previously setup SQL variable on the Connection object.
  ;
  .echo -q $com(RecordsetObject, Open, 1, *bstr, %SQL, dispatch, mysql.Database, int, 1, int, 3, int 1)

  ; The Collect property is an undocumented shortcut way to grab just the value held in the fields
  ; which are zero-based. As you can see from the SQL above, I have specified 3 fields I wish returned: 
  ;
  ; * FirstName (field 0)
  ; * LastName (field 1)
  ; * Gender (field 2)
  ;
  ; So, I grab the data from the FirstName field and store the result in the variable %Name.
  ; 
  .echo -q $com(RecordsetObject, Collect, 2, i4, 0)
  var %Name = $com(RecordsetObject).result

  ; Then I grab the data from the LastName field and add it to the %Name variable.
  ;
  .echo -q $com(RecordsetObject, Collect, 2, i4, 1)
  var %Name = %Name $com(RecordsetObject).result

  ; Then I grab the Gender data and put it in its own variable, surrounded by parentheses.
  ;
  .echo -q $com(RecordsetObject, Collect, 2, i4, 2)
  var %Gender = ( $+ $com(RecordsetObject).result $+ )

  ; Now I can return or display the results from the database query to the active window.
  ;
  if ($isid) return %Name %Gender
  else echo -gaitc info * $1 is %Name %Gender

  ; And finally, (being the neat little programmer that I am) I close the two objects I have used.
  ;
  .comclose RecordsetObject
  .comclose mysql.Database
}

.echo -q $com(RecordsetObject, Open, 1, *bstr, %SQL, dispatch, mysql.Database, int, 1, int, 3, int 1)

var %SQL = SELECT * FROM mp3s;

  
.echo -q $com(mysql.Database, Open, 1, *bstr, %Connection.String)
.comopen RecordsetObject ADODB.Recordset

var %SQL = SELECT * FROM news;

.echo -q $com(RecordsetObject, Open, 1, *bstr, %SQL, dispatch, mysql.Database, int, 2, int, 3, int, 1) 

.echo -q $com(RecordsetObject, Collect, 2, i4, 0)
.echo -q $com(RecordsetObject, Collect, 2, i4, 1)

var %date = %date $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 2)

var %by = %by $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 3)

var %news = %news $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 4)

else echo -gaitc info * 
/say 15•14•7•14  $1 Sidste nyt! 15•14•7•14
/say 15•14•7•14 Dato:-> %date 15•14•7•14
/say 15•14•7•14 Skrevet af:-> %by   15•14•7•14
/say 15•14•7•14 Nyheden:-> %news 15•14•7•14

.comclose RecordsetObject
.comclose mysql.Database
} 

  
var %SQL = SELECT * FROM news ORDER BY id DESC LIMIT 1 ; 

var %SQL = SELECT * FROM news ORDER BY id DESC LIMIT 1; 

on *:text:!news*:#: {

/MySQL.Getnewsdata
} 

alias mysql.getnewsData {

notice $nick   15• 14• 7• 14 loader script, vent venligst - $nick      15• 14• 7• 1

.comopen mysql.Database ADODB.Connection

var %Connection.String = $+( $&
DRIVER={mysql ODBC 3.51 Driver};, $& 
SERVER=SERVERIP;, $& 
PORT=3306;, $& 
DATABASE=mydatabasename;, $& 
USER=MYUSER;, $& 
PASSWORD=MYPASS;, $& 
OPTION=3;, $& 
)

.echo -q $com(mysql.Database, Open, 1, *bstr, %Connection.String)
.comopen RecordsetObject ADODB.Recordset

var %SQL = SELECT * FROM news;

.echo -q $com(RecordsetObject, Open, 1, *bstr, %SQL, dispatch, mysql.Database, int, 2, int, 3, int, 1) 
.echo -q $com(RecordsetObject, Collect, 2, i4, 0)
.echo -q $com(RecordsetObject, Collect, 2, i4, 1)

var %date = %date $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 2)

var %by = %by $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 3)

var %news = %news $com(RecordsetObject).result
.echo -q $com(RecordsetObject, Collect, 2, i4, 4)

else echo -gaitc info * 
notice $nick   15• 14• 7• 14    Her er sidste nyt:    15• 14• 7• 14
notice $nick   15• 14• 7• 14  Dato:->  %date    15• 14• 7• 14
notice $nick   15• 14• 7• 14  Skrevet af:->  %by      15• 14• 7• 14
notice $nick   15• 14• 7• 14  Nyheden:->  %news    15• 14• 7• 14
notice $nick   15• 14• 7• 14  Læs mere på:->  %Link     15• 14• 7• 14

.comclose RecordsetObject
.comclose mysql.Database
}