Recent changes to MySQL Client

MySQL Client modified by Kalle

Kalle — Wed, 01 May 2024 13:42:44 -0000

--- v7
+++ v8
@@ -1,6 +1,6 @@
 # Example: Connect to MySQL database

-Demonstrates to work with MySQL databases.
+Demonstrates how to work with MySQL databases.

 ~~~

MySQL Client modified by Kalle

Kalle — Wed, 01 May 2024 13:42:22 -0000

--- v6
+++ v7
@@ -4,6 +4,7 @@

 ~~~

MySQL Client modified by Kalle

Kalle — Wed, 01 May 2024 13:42:00 -0000

--- v5
+++ v6
@@ -1,120 +1,21 @@
 # Example: Connect to MySQL database

-Demonstrates [Native function calling](Native%20function%20calling/) to work with MySQL databases.
+Demonstrates to work with MySQL databases.

 ~~~
 
 ~~~

MySQL Client modified by Kalle

Kalle — Sat, 02 Dec 2023 15:17:26 -0000

--- v4
+++ v5
@@ -3,7 +3,6 @@
 Demonstrates [Native function calling](Native%20function%20calling/) to work with MySQL databases.

 ~~~
-:::script

MySQL Client modified by Kalle

Kalle — Sat, 19 Dec 2020 14:12:10 -0000

--- v3
+++ v4
@@ -59,7 +59,7 @@
         fieldCnt = call (hDLLMySQL, "mysql_field_count" , [['p'], 'i'], mysql);
         if (result && fieldCnt) {
             headers = array ();
-            for( i = 0; i<fieldcnt; pre="" (field,_align),7));="" for(="" 'p'],="" ();="" @@="" -78,7="" (i="0;i&lt;count" fieldcnt;="" [['p'],="" if="" (hdllmysql,="" for="" +="" -="" ,="" field="call" (is_array="" result[0])))="" "mysql_fetch_row",="" <="" (row="call" result);="" (result[1]);i++)="" pnt="binparse(memat(row,_ALIGN),7);" "mysql_fetch_field"="" headers[i]="memat" +78,7="" &&="" (pnt);="" data="array" 'i'],="" (result)="" (binparse="" i="0;" i++)="" count="" (pnt)="" data[result[1][i]]="memat" {="" }="" (memat="">
</fieldcnt;>

MySQL Client modified by Kalle

Kalle — Sat, 19 Dec 2020 14:11:14 -0000

--- v2
+++ v3
@@ -7,20 +7,20 @@

MySQL Client modified by Kalle

Kalle — Thu, 14 Mar 2019 11:21:08 -0000

--- v1
+++ v2
@@ -150,3 +150,5 @@

 ?>
 ~~~
+
+[back to Home](Welcome%20to%20V1%20Script/)

MySQL Client modified by Kalle

Kalle — Thu, 14 Mar 2019 11:19:43 -0000

Example: Connect to MySQL database

Demonstrates Native function calling to work with MySQL databases.

<?v1
error_reporting (0);

// Connection parameters
const MYSQL_HOST = "localhost";
const MYSQL_PORT = 3306;
const MYSQL_USER = "root";
const MYSQL_PASSWORD = "";
const MYSQL_DATABASE = "mysql";

// Replace with correct path of MySQL client library 
// libmysqlclient.so (32/64 Bit) on Linux or libmySQL.dll (32 Bit) on Windows 
mySQLLibName =  'libmySQL';

hDLLMySQL = dl (mySQLLibName, true);
if (!hDLLMySQL) {
    // Search for libraries
    libList = explode ("\n", system ('/usr/bin/find /usr -name "libmysql*"'));
    if (isset (libList[0])) {
        hDLLMySQL = dl (mySQLLibName = libList[0], true);
    }
}

if (!hDLLMySQL) {
    print ("No MySQL client library found.");
    exit (1);
}

// MySQL functions called with C-API
// https://github.com/google/mysql/blob/master/include/mysql.h

function mysql_init () {
    global hDLLMySQL;
    return call (hDLLMySQL, "mysql_init", [['i'], 'p'],  null);
}

function mysql_connect (mysql, host, user, password, database, port=3306) {
    global hDLLMySQL;
    if (call (hDLLMySQL, "mysql_real_connect", [['p','s','s','s','s','i','i','i'], 'i'], mysql, host, user, password, database, port, null, 0))
        return mysql;
    return false;
}

function mysql_close (mysql) {
    global hDLLMySQL;
    return call (hDLLMySQL, "mysql_close", [['p'], "i"],  mysql);
}

function mysql_query (mysql, sql) {
    global hDLLMySQL;
    if (!call (hDLLMySQL, "mysql_query", [['p','s'], 'i'],  mysql, sql)) {
        result = call (hDLLMySQL, "mysql_store_result" , [['p'], 'p'], mysql);
        fieldCnt = call (hDLLMySQL, "mysql_field_count" , [['p'], 'i'], mysql);
        if (result && fieldCnt) {
            headers = array ();
            for( i = 0; i<fieldCnt; i++) {
                field = call (hDLLMySQL, "mysql_fetch_field" , [['p'], 'p'], result);
                headers[i] = memat (binparse (memat (field,_ALIGN),7));
            }
            return array (result, headers);
        }
        else {
            return true;
        }
    }
    return false;
}

function mysql_fetch_row (&result, &data) {
    global hDLLMySQL;
    if (is_array (result) && (row = call (hDLLMySQL, "mysql_fetch_row",  [['p'], 'i'], result[0]))) {

        data = array ();
        for (i=0;i<count (result[1]);i++) {
            pnt = binparse(memat(row,_ALIGN),7);
            if (pnt) {
                data[result[1][i]]=memat (pnt);
            }
            row+=_ALIGN;
        };
        return true;
    }
    return false;
}

function mysql_free_result (result) {
    global hDLLMySQL;
    if (is_array (result))
        return call (hDLLMySQL, "mysql_free_result", [['p'], 'i'],  result[0]);
    return true;
}

function mysql_error (mysql) {
    global hDLLMySQL;
    return call (hDLLMySQL, "mysql_error", [['p'], 's'], mysql);
}

function mysql_get_client_info (mysql) {
    global hDLLMySQL;
    return call (hDLLMySQL, "mysql_get_client_info", [['p'], 's'], mysql);
}

function mysql_get_server_info (mysql) {
    global hDLLMySQL;
    return call (hDLLMySQL, "mysql_get_server_info", [['i'], "s"], mysql);
}

print ("Library: ", mySQLLibName);

// Connect to database and read table
mysql = mysql_init ();

if (mysql && mysql_connect (mysql, MYSQL_HOST, MYSQL_USER, MYSQL_PASSWORD, MYSQL_DATABASE, MYSQL_PORT))
{
    print (
        "Connected to MySQL Server ", 
        mysql_get_server_info (mysql), 
        " with Client ", 
        mysql_get_client_info (mysql)
      );

    mysql_query (mysql, "set names utf8");

    // Query a table
    if ( result=mysql_query (mysql, "select * from user")) {
        data = array ();

        while (mysql_fetch_row (result, data)) {
            print (data["Host"], ";", data["User"]);
        }

        mysql_free_result (result);
    }
    else {
        print (mysql_error (mysql));
    }
}
else {
    print (mysql_error (mysql));
}
mysql_close (mysql);

?>