root/DB/TestQuery.lua

package.path = package.path .. ";/Users/rszwarc/Developer/Lua/LU/?.lua"
package.cpath = package.cpath .. ";/Users/rszwarc/Developer/Lua/LU/Library/Modules/?.so"

local LUFile = require( "LUFile" )
local LUList = require( "LUList" )
local LUMap = require( "LUMap" )
local LUObjectReader = require( "LUObjectReader" )
local LUObjectWriter = require( "LUObjectWriter" )
local DB = require( "DB" )
local DBSQLSelect = require( "DBSQLSelect" )
local DBSQLOrdering = require( "DBSQLOrdering" )
local DBSQLOrder = require( "DBSQLOrder" )
local DBSQLStatement = require( "DBSQLStatement" )

local aName = "Vlad'imir"
local aCity = "Mosk'va"

--[[
local aStatement = function()
        Select( hr.v_employee ) 
        Where( Eq( name, aName ), Eq( city, aCity ), Lt( id, 10 ), Not( Ne( state, nil ) ) ) 
        Order( By( name ) )
end
]]--

--[[
local aStatement = function() 
        Select( information_schema.TABLES, TABLE_CATALOG, TABLE_SCHEMA, TABLE_NAME, TABLE_TYPE ) 
        -- Where( Eq( table_name, "country" ) )
        Order( By( table_schema ), By( table_name ) ) 
end
]]--

--[[
local aStatement = function()
        Select( information_schema.COLUMNS, TABLE_CATALOG, TABLE_SCHEMA, TABLE_NAME, COLUMN_NAME, DATA_TYPE )
        Order( By( TABLE_SCHEMA ), By( TABLE_NAME ), By( COLUMN_NAME ) ) 
end
]]--

--[[
local aStatement = function()
        Select( information_schema.TABLE_CONSTRAINTS, TABLE_SCHEMA, TABLE_NAME, CONSTRAINT_NAME, CONSTRAINT_TYPE )
        Order( By( TABLE_SCHEMA ), By( TABLE_NAME ), By( CONSTRAINT_TYPE ) ) 
end
]]--

local aStatement = function()
        Select( information_schema.KEY_COLUMN_USAGE, TABLE_SCHEMA, TABLE_NAME, CONSTRAINT_NAME, COLUMN_NAME )
        Where( Eq( TABLE_NAME, CountryLanguage ) )
        Order( By( TABLE_SCHEMA ), By( TABLE_NAME ), By( COLUMN_NAME ) ) 
end

--[[
local aStatement = function()
        Select( information_schema.schemata )
        Where( In( name, function() Select( information_schema.KEY_COLUMN_USAGE ) Where(  Eq( TABLE_NAME, CountryLanguage ) ) end ) )
end
]]--

--[[
local aStatement = function() 
        Select( country ) 
        Order( By( code ) )
end
]]--

-- local aStatement = "select * from information_schema.columns order by table_name, column_name"
-- local aStatement = DBSQLSelect( "information_schema.columns" ):setOrdering( DBSQLOrdering( LUList( { DBSQLOrder( "table_name" ), DBSQLOrder( "column_name" ) } ) ) )

--[[
local aDB = DB( "mysql://localhost/test" )

for anIndex, aValue in aDB:run( aStatement ) do
        print( anIndex, aValue )
end

aDB:close()
]]--


print( DBSQLStatement( aStatement ):evaluate() )

local aStatement = function() 
        Select( people, name, email ) 
end

print( DBSQLStatement( aStatement ):evaluate() )

local aPerson = LUMap( { name = "Jose das Couves", email = "jose@couves.com", id = 1 } )
local anotherPerson = LUMap( { name = "Manoel Joaquim", email = "manoel.joaquim@cafundo.com", id = 2, active = true } )

local aStatement = function() 
        Insert( people, name, email, id, active, date ) 
        Values( aPerson, anotherPerson )
end

print( DBSQLStatement( aStatement ):evaluate() )

local aStatement = function() 
        Update( people, name, email, id, active ) 
        Values( aPerson )
        Where( Eq( name, aName ) ) 
end

print( DBSQLStatement( aStatement ):evaluate() )

local aStatement = function() 
        Delete( people )
        Where( Eq( name, aName ) ) 
end

print( DBSQLStatement( aStatement ):evaluate() )