Table creation: Difference between revisions

=={{header|Arturo}}==

createTable: function [][

print ["getting user with name: JohnDoe =>" findUser "JohnDoe"]

{{out}}

AWK is just a glue language. Simply pipe the creation command into SQLite and capture the output.

awk '

BEGIN {

exit;

}

=={{header|C}}==

{{libheader|SQLite}}

#include <sqlite3.h>

#include <stdlib.h>

return 0;

}

=={{header|FunL}}==

import util.*

statement.execute( "SELECT * FROM Persons ORDER BY LastName" )

print( TextTable.apply(statement.getResultSet()) )

{{out}}

<br>

This uses a key/value store rather than a relational database to create the table.

import (

return nil

})

{{out}}

If we define a <code>table</code> as a named collection of columns, and we define a <code>type</code> as a mechanism for the representation of some kind of data, then:

insertStock=: 3 :'0#stocks=: stocks,.y'

insertStock@".;._2]0 :0

'2006-04-05'; 'BUY'; 'MSOFT'; 1000; 72.00

'2006-04-06'; 'SELL'; 'IBM'; 500; 53.00

declares a table and some data within that table.

And, here's an example of sorting:

sortBy=: [ /:"1 2 (<__)|:@,. [ }.@{~ cols

from=: cols~ {"0 _ ]

├──────────┼─────┼──────┼────┼─────┤

│2006-04-05│BUY │MSOFT │1000│72 │

Note that this particular example is both overly general in some senses (for example, named column handling has features not demonstrated here) and overly specific in others (for example, I did not implement sort in descending order).

{{works with|Julia|0.6}}

conn = SQLite.DB() # in-memory

df = SQLite.query(conn, "select * from stocks order by price")

{{out}}

=={{header|Lua}}==

Columns.ID = {};

Columns.FName = {};

--[[ ]]--

{{out}}

We can use text from UTF16LE set. Here we have Greek letters in Memo.

MODULE SIMPLEBASE {

BASE "ALFA" ' ERASED IF FOUND THE NAME OF "ALFA.MDB"

}

SIMPLEBASE

=={{header|Mathematica}}/{{header|Wolfram Language}}==

"databases:1234/conn_test"], "Username" -> "test"]

=={{header|Nim}}==

Nim standard library provides two modules to work with SQL databases. We use here the high level one for SQLite.

let dbc = open(":memory:", "", "", "")

# Data retrieval.

for row in dbc.fastRows(sql"select * from stocks order by price"):

{{out}}

=={{header|Oracle}}==

Great SCOTT! from utlsampl.sql

CREATE TABLE EMP

(EMPNO NUMBER(4) CONSTRAINT PK_EMP PRIMARY KEY,

COMM NUMBER(7,2),

DEPTNO NUMBER(2) CONSTRAINT FK_DEPTNO REFERENCES DEPT);

=={{header|Oz}}==

{{libheader|Ozsqlite}}

[Sqlite] = {Module.link ['x-ozlib:/sqlite/Sqlite.ozf']}

{Sqlite.close DB}

end

=={{header|PARI/GP}}==

The most natural way to store tabular data in GP is in a matrix:

m[1,] = ["Barack", "Obama", 20500];

=={{header|Perl}}==

{{trans|Julia}}

use strict;

print '=' x 75 , "\n";

{{out}}

<pre>

=={{header|Phix}}==

{{libheader|SQLite}}

<span style="color: #008080;">include</span> <span style="color: #000000;">pSQLite</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">sqlcode</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"sqlite3_exec error: %d [%s]\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">res</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sqlite_last_exec_err</span><span style="color: #0000FF;">})</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

=={{header|PicoLisp}}==

(class +Account +Entity)

(if (: active) "Yes" "No")

(: username)

Output:

<pre>account_id created active username balance

=={{header|PL/I}}==

2 name character (20) varying,

2 address,

2 transaction_date date,

2 sex character (1),

=={{header|PostgreSQL}}==

Postgres developers, please feel free to add additional data-types you commonly use to this example.

CREATE SEQUENCE account_seq start 100;

-- char(#): space padded text field with length of #

-- varchar(#): variable length text field up to #

=={{header|Python}}==

{{libheader|SQLite}}

The sqlite3 database is a part of the Python standard library. It does not associate type with table columns, any cell can be of any type.

>>> conn = sqlite3.connect(':memory:')

>>> c = conn.cursor()

(u'2006-04-06', u'SELL', u'IBM', 500.0, 53.0)

(u'2006-04-05', u'BUY', u'MSOFT', 1000.0, 72.0)

=={{header|Racket}}==

This is the relevant part of [[Table creation/Postal addresses#Racket]] that creates the DB table:

#lang racket

(require db)

(define postal (sqlite3-connect #:database "/tmp/postal.db" #:mode 'create))

=={{header|Raku}}==

However, tables (or structures) can be constructed by using stemmed arrays; &nbsp; the index would (should) be

<br>a unique identifier, &nbsp; something akin to a SSN &nbsp;(Social Security Number)&nbsp; or something similar.

table.id.!firstname = 'Robert'

table.id.!town = 'Gotham City'

table.id.!state = 'NY'

=={{header|Ring}}==

# Project : Table creation

next

sqlite_close(oSQLite)

Output:

<pre>

This code is enough to create a PStore (or open an existing PStore).

The example at [[Table creation/Postal addresses#Ruby]] puts Ruby objects into the PStore.

Run Basic supports all features of SQLite.

This is a sample of a item master

#sql execute("

CREATE TABLE item (

CREATE UNIQUE INDEX item_descr ON item( descr, itemNum);

CREATE UNIQUE INDEX item_itemNum ON item(itemNum);"

=={{header|Scala}}==

===using SLICK FRM===

import slick.jdbc.H2Profile.api._

// Create the tables, including primary and foreign keys

(suppliers.schema ++ coffees.schema).create

=={{header|SQL PL}}==

{{works with|Db2 LUW}}

CREATE TABLE dept (

deptno NUMERIC(2)

INSERT INTO emp VALUES (7902, 'FORD', 'ANALYST', 7566, '1981-12-03', 3000, NULL, 20);

INSERT INTO emp VALUES (7934, 'MILLER', 'CLERK', 7782, '1982-01-23', 1300, NULL, 10);

Output:

<pre>

=={{header|Tcl}}==

Tables, as used in relational databases, seem far away conceptually from Tcl. However, the following code demonstrates how a table (implemented as a list of lists, the first being the header line) can be type-checked and rendered:

upvar $_tbl tbl

set heads [lindex $tbl 0]

balance 0.0 \

created 2009-05-14

Output:

<pre>

In practice, a binary search would be needed to find records quickly by key given that the records are being maintained in sorted order. However, for now we use a sequential search instead.

import "/fmt" for Fmt

import "/sort" for Cmp, Sort

table.removeRecord(3)

System.print("\nThe record with an id of 3 will be deleted, leaving:\n")

{{out}}