Module MySQL Overview

[Support]

Original MySQL Documentation

[Script_test]

 

Code: [Select]

mysql::RealConnect(host,user,password,database [,port])

Does it work on non-local connections?
I am trying on different external mysql servers and only receive error.

Code: [Select]

(0): error 0x00080002:Extension specific error: %s
Ty

[Support]

Many MySQL servers don't allow external connections due to abuse and resource utilization trying to access it by brute force.

I would try accessing the server with Excel / ODBC just to make sure you have access rights, If all is good there, we can dig a little deeper why the SB extension module is returning an extension error.

[Script_test]

I can connect without problems with the command > mysql -u
To test, I have created a database in a free hosting.

Code: [Select]

include mysql.bas
dbh =  mysql::RealConnect("sql8.freemysqlhosting.net","sql8183953","N9yUkvribn","sql8183953","3306")
PRINT "Host info is: ",mysql::GetHostInfo(dbh),"\n"


Code: [Select]

mysql -u sql8183953 -h sql8.freemysqlhosting.net -p


[Support]

I'm not sure but sending the port number as a string may be causing a problem.

My guess is at this point you're getting a CR_CONN_HOST_ERROR  response error message.

Update

My guess was correct and not passing the port number as a string allowed me to connect to your remote MySQL server with the Script BASIC extension module.

include mysql.bas
dbh =  mysql::RealConnect("sql8.freemysqlhosting.net","sql8183953","N9yUkvribn","sql8183953",3306)
PRINT "Host info is: ",mysql::GetHostInfo(dbh),"\n"
 

jrs@jrs-laptop:~/sb/examples/test$ scriba mysql_remote.sb
Host info is: sql8.freemysqlhosting.net via TCP/IP
jrs@jrs-laptop:~/sb/examples/test$


Here is an example of querying the MySQL information_schema tables.

IMPORT mysql.bas
dbh =  mysql::RealConnect("sql8.freemysqlhosting.net","sql8183953","N9yUkvribn","sql8183953",3306)
mysql::query(dbh,"SELECT * FROM INFORMATION_SCHEMA.TABLES")
WHILE mysql::FetchHash(dbh,tbls)
  FOR x = 0 TO UBOUND(tbls) STEP 2
    PRINT tbls[x]," - ",tbls[x+1],"\n"
  NEXT
  PRINTNL
WEND
mysql::Close(dbh)
 

[Script_test]

Thanks, you've been a great help.