Guidance
指路人
g.yi.org
software / rapidq / Examples / Database / SQL Server tutorial and example / create Taxes.bas

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
'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


掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Tue 2019-4-23  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:43:42