

#include once "mysql\mysql.bi"

#define NULL 0

	dim db as MYSQL ptr
	dim dbname as string

	db = mysql_init( NULL )

	dbname = "test"

	if( mysql_real_connect( db, NULL, NULL, NULL, NULL, MYSQL_PORT, NULL, 0 ) = 0 ) then
		print "Can't connect to the mysql server on port"; MYSQL_PORT
		mysql_close( db )
		end 1
	end if

    if( mysql_select_db( db, dbname ) ) then
		print "Can't select the "; dbname; " database !"
		mysql_close( db )
		end 1
	end if

  	print "Client info: "; *mysql_get_client_info()

  	print "Host info: "; *mysql_get_host_info( db )

  	print "Server info: "; *mysql_get_server_info( db )

  	dim res as MYSQL_RES ptr
  	dim fd as MYSQL_FIELD ptr
  	dim row as MYSQL_ROW
	dim as integer l, x, j, k
	dim fields(24) as string
	dim rowstr as string

	res = mysql_list_tables( db, "%" )
	l = 1
	x = 0
  	do
  		fd = mysql_fetch_field( res )
		if( fd = NULL ) then
  			exit do
  		end if

    	fields(x) = *fd->name
		do
    		row = mysql_fetch_row( res )
    		if( row = NULL ) then
    			exit do
    		end if

			j = mysql_num_fields( res )
			print "Table #"; l; " :-"
    		l += 1
    		for k = 0 to j-1
      			print "  Fld #"; k+1; "("+ fields(k) + "): ";
	      		if( row[k] = NULL ) then
	      			print "NULL"
	      		else
	      			rowstr = *row[k]
	      			print rowstr
	      		end if
    			print "=============================="
			next
		loop

	    mysql_free_result( res )
	    x += 1
  	loop

	mysql_close( db )
	end 0
