hi martin, petr, hi john :)
I have found this material for odbc ;)
perhaps martin, you can use it, but it's just a source content for your work or idea... it doesn't run at all.. I have no deeper infos or knowledge about odbc, but some day I will need it too for my liongfx manual or syntax help.
'-- testscript for martin :) by lionheart
'-- not using, as it's not running, it's just a source for your work !!!
uses "console", "liongfx"
CONST MySQLHost = <MySQLServer>
CONST MySQLUser = <Username>
CONST MySQLPW = <Password>
CONST MySQLDB = <Datafile>
dim ServerInfo, u as string = MySQLInfo()
dim sel, result, a as integer
do
liongfx_CLS
liongfx_print: liongfx_print " MYSQL-example for thinbasic": liongfx_print
liongfx_print " Serverinfo: "+ ServerInfo
liongfx_print
liongfx_print " (1) show matrix"
liongfx_print " (2) insert data"
liongfx_print " (0) close, end"
liongfx_print
DO: LOOP WHILE liongfx_INKEY <> ""
liongfx_INPUT " select: ", sel
Select Case sel
Case 0 : liongfx_error,2
Case 1
If showMatrix() < 0 Then
liongfx_print " error."
liongfx_Sleep
End If
Case 2
liongfx_print
liongfx_INPUT " Username: " + u
liongfx_INPUT " Age: " + a
liongfx_print
result = MySQLInsert(u,a)
If result < 1 Then
liongfx_print " error " & result
ELSE
liongfx_print " new data: " & result
END IF
liongfx_SLEEP
Case Else
Beep
End Select
LOOP
FUNCTION MySQLInfo () As String
dim db as MYSQL ptr ' ?
Dim ServerInfo as String
db = mysql_init( NULL )
if( mysql_real_connect( db, MySQLHost, MySQLUser, MySQLPW, NULL, MYSQL_PORT, NULL, 0 ) = 0 ) then
liongfx_print "error: no connection to MySQL-Server "
mysql_close( db )
liongfx_SLEEP
end
end if
ServerInfo = *mysql_get_server_info( db )
Mysql_close(db)
Return ServerInfo
END FUNCTION
FUNCTION MySQLInsert (ByVal A As String, ByVal B As Integer) As Integer
dim db as MYSQL ptr
Dim Query As String
Dim ID As Integer
Dim result As Integer
Dim Fehler as ZString Ptr
db = mysql_init( NULL )
if mysql_real_connect( db, MySQLHost, MySQLUser, MySQLPW, NULL, MYSQL_PORT, NULL, 0 ) = 0 then Return -1
if mysql_select_db( db, MySQLDB ) then Return -2
query = "INSERT INTO testtab (`username`,`age`,`time`) VALUES (" & chr(34) & A & chr(34) & "," & chr(34) & B & chr(34) & ",CURRENT_TIMESTAMP())"
result = mysql_real_query (db,STRPTR(query),LEN(query))
If result = 0 THEN
ID = mysql_insert_id(db)
mysql_close(db)
Return ID
ELSE
Error = mysql_error(db)
If (*Error)[0] <> 0 Then
liongfx_print " "+ *mysql_error(db)
END IF
mysql_close(db)
Return -3
END IF
END FUNCTION
FUNCTION showMatrix () AS INTEGER
dim db as MYSQL ptr '?
dim row as MYSQL_ROW '?
dim res as MYSQL_RES ptr '?
Dim Query as String
Dim i as integer
db = mysql_init( NULL )
if (mysql_real_connect( db, MySQLHost, MySQLUser, MySQLPW, NULL, MYSQL_PORT, NULL, 0 ) = 0) then Return -1
if (mysql_select_db( db, MySQLDB )) then Return -2
query = "SELECT * FROM testtab ORDER BY id ASC"
If mysql_real_query (db,STRPTR(query),LEN(query)) <> 0 THEN
mysql_close(db)
Return -3
END IF
res = mysql_use_result(db)
CLS
liongfx_print: liongfx_print " useful data:": liongfx_print
liongfx_print " ID | Username | Age | Input-Time"
liongfx_print " --------------------------------------------------"
Do
row = mysql_fetch_row( res )
if( row = NULL ) then
Exit Do
ELSE
liongfx_print format$ " #### | \ \ | ### | &"+ Val(*row[0]), *row[1], Val(*row[2]), *row[3]
END IF
LOOP
mysql_close(db)
liongfx_SLEEP
RETURN 0
END FUNCTION
I adept it in some way from an old freebasic example for thinbasic-a-like-using and perhaps you can choose your things you needed for your work... but there is missing a lot of declarations about mysql stuff and much more...
I have translate it into 'lion english', but you are able to understand the content !!! :D
I am thinking this may help... 8)
best regards, Lionheart