2013-06-19 07:43

'Program for create a new database named Taxes
     $TYPECHECK ON
     $INCLUDE "rapidq.inc"
     $INCLUDE "mysql.inc"
     DIM MySQL AS QMYSQL
     DIM Host$ AS STRING
     DIM User$ AS STRING
     DIM Password$ AS STRING
     MySQL.Connect(Host$,User$,Password$)
     IF MySQL.Connected THEN
      SHOWMESSAGE "Conection OK"
     ELSE
      SHOWMESSAGE "Failed Connection"
     END IF

     MySQL.CreateDB("Taxes")
     MySQL.SelectDB("Taxes")
     MySQL.Query("CREATE TABLE Datos(id_Tax INT NOT NULL Auto_increment,_
             Tax char(40),_
             Quota CHAR(10) NOT NULL,_
             Expiration_Date CHAR(10) NOT NULL,_
             Amount CHAR(10) NOT NULL,_
             Payment_Date CHAR(10),_
             Payment_Place CHAR(40),_
             PRIMARY KEY (id_Tax));")

     IF Mysql.connected THEN MySQL.CLOSE
     END

2013-06-19 07:43