Table creation/Postal addresses: Difference between revisions

<!-- {{does not work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release 1.8.8d.fc9.i386 - needed formatted transput}} -->

INT page,

FLEX[50]CHAR street,

# set(address table, page OF john brown,1,1); - standard set page not available in a68g #

put bin(address table, john brown);

Output:

<pre>

=={{header|Apache Derby}}==

addrID integer primary key generated by default as identity,

addrStreet varchar(50) not null,

addrZip char(10) not null

);

'''Interactive session:

<pre style="height: 30em; overflow: scroll">

=={{header|Arturo}}==

query db {!sql

}

=={{header|AWK}}==

This version uses the AWK pipe, 'getline' function, and the sqlite3 command line program.

awk '

BEGIN {

}

=={{header|C}}==

{{libheader|SQLite}}

#include <stdlib.h>

#include <sqlite3.h>

}

return EXIT_SUCCESS;

=={{header|Clojure}}==

; Using h2database for this simple example.

(def db {:classname "org.h2.Driver"

[:state "varchar"]

[:zip "varchar"]))

=={{header|EchoLisp}}==

(lib 'struct)

(lib 'sql)

[0] 15 Gallubert 29 rue de l'Ermitage Paris Seine 75020

[1] 16 Brougnard 666 rue des Cascades Paris Seine 75042

=={{header|Erlang}}==

Erlang has built in databases. This is the the one with most features: Mnesia. There are database connectors to other databases, too.

-module( table_creation ).

mnesia:start(),

mnesia:create_table( address, [{attributes, record_info(fields, address)}] ).

{{out}}

<pre>

=={{header|FunL}}==

FunL has built-in support for H2 and comes bundled with the H2 database engine.

import util.*

print( TextTable.apply(result) )

{{out}}

=={{header|Go}}==

import (

fmt.Println(field, storage)

}

{{out}}

<pre>

{{libheader|sqlite-simple}}

import Database.SQLite.Simple

\addrZIP TEXT NOT NULL \

\)"

=={{header|J}}==

J is a programming language, not a database, but it ships with a database built in the programming language called [[j:JDB|JDB]]. Using that, assuming <tt>hd</tt> is your database, then:

addrID autoid;

addrStreet varchar

addrState char

addrZip char

Of course J can connect external databases too, using e.g. [[j:Studio/ODBC%20Basics|ODBC]]. See the [[j:DB|list of J database topics]].

{{works with|Julia|0.6}}

db = SQLite.DB()

addrState TEXT NOT NULL,

addrZIP TEXT NOT NULL)

=={{header|Kotlin}}==

Rather than use an external database, we use the built-in RandomAccessFile class for his task. The data used is the same as for the REXX entry.

import java.io.File

println(Address.readRecord(file, i.toLong()))

}

{{output}}

Lasso has excellent support for connecting to and handling databases.

inline(-database = 'rosettatest', -sql = "CREATE TABLE `address` (

`id` int(11) NOT NULL auto_increment,

") => {^

error_msg

Output:

<pre>No error</pre>

=={{header|Lua}}==

Using LJSQLite3 - compatible with LuaJIT and supplied in the ULua distribution.

local sql = require("ljsqlite3")

-- Explicitly close connection

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

addrID INTEGER PRIMARY KEY AUTOINCREMENT,

addrStreet TEXT NOT NULL, addrCity TEXT NOT NULL,

Needs["DatabaseLink`"]

conn=OpenSQLConnection[ JDBC[ "mysql","databases:1234/conn_test"], "Username" -> "test"]

=={{header|MySQL}}==

`addrID` int(11) NOT NULL auto_increment,

`addrStreet` varchar(50) NOT NULL default '',

`addrZIP` char(10) NOT NULL default '',

PRIMARY KEY (`addrID`)

=={{header|NetRexx}}==

{{libheader|Apache Derby}}

This sample creates a table in an embedded Apache Derby database.

options replace format comments java crossref symbols binary

createTable()

return

=={{header|Nim}}==

#import db_mysql as db

#import db_postgres as db

addrState TEXT NOT NULL,

addrZIP TEXT NOT NULL)"""

=={{header|ooRexx}}==

* 17.05.2013 Walter Pachl translated from REXX version 2

* nice try? improvements are welcome as I am rather unexperienced

Say ' state -->' self~state

Say ' zip -->' self~zip

Output is as for REXX version 2

=={{header|Oracle}}==

/

CREATE TABLE address (

CONSTRAINT address_pk1 PRIMARY KEY ( addrID )

)

=={{header|Oz}}==

The SQLite version that comes with Ozsqlite does not understand "AUTOINCREMENT".

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

finally

{Sqlite.close DB}

=={{header|Perl}}==

my $db = DBI->connect('DBI:mysql:database:server','login','password');

my $exec = $db->prepare($statment);

This example uses mysql, but DBI supports a extensive list of database drivers. See [http://dbi.perl.org/ dbi.perl.org] for more info.

=={{header|Phix}}==

{{libheader|SQLite}}

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (file i/o)</span>

<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: #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|PHP}}+SQLite==

{{trans|Python}}

not tested

$db = new SQLite3(':memory:');

$db->exec("

)

");

=={{header|PicoLisp}}==

Define an "address" entity, and create the database:

(rel nm (+Sn +Idx +String)) # Name [Soundex index]

(rel str (+String)) # Street

(rel jpg (+Blob)) # Photo

Create a first entry, and show it:

(new! '(+Adr) # Create a record

'nm "FSF Inc."

'str "51 Franklin St"

'st "Boston, MA"

Output:

<pre>{2} (+Adr)

nm "FSF Inc."</pre>

Interactive "select":

Output:

<pre>"FSF Inc." "02110-1301" {2}</pre>

=={{header|PostgreSQL}}==

CREATE TABLE address (

addrID int4 PRIMARY KEY DEFAULT nextval('address_seq'),

state varchar(2) not null,

zip varchar(20) not null

=={{header|PowerShell}}+SQLite==

{{libheader|SQLite}}

Import-Module -Name PSSQLite

## View the data

Invoke-SqliteQuery -DataSource $DataSource -Query "SELECT * FROM SSADDRESS" | FormatTable -AutoSize

{{Out}}

<pre>

=={{header|PureBasic}}+SQLite==

Easiest approach with sqlite. Further possible: PostgresQL or each other over ODBC.

UseSQLiteDatabase()

Procedure CheckDatabaseUpdate(Database, Query$)

EndIf

closeconsole()

=={{header|Python}}+SQLite==

{{libheader|SQLite}}

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

>>> conn.execute('''CREATE TABLE address (

)''')

<sqlite3.Cursor object at 0x013265C0>

=={{header|Racket}}==

Racket supports a bunch of DBs, this is using sqlite, which is almost always available. Also included some further demonstrations beyond just the table creation:

#lang at-exp racket

(disconnect postal)

Output:

Like Perl DBI, Raku DBIish supports many different databases. An example using SQLite is shown here.

my $dbh = DBIish.connect('SQLite', :database<addresses.sqlite3>);

addrZIP TEXT NOT NULL

)

=={{header|REXX}}==

╚════════════════════════════════════════════════════════════════════════════════════════╝

</pre>

@usa.=; @usa.0=0; $='@USA.' /*initialize array and first value.*/

@usa.0=@usa.0 + 1 /*bump the unique number for usage.*/

call value $ || @usa.0'.upHist' , userid() date() time()

end

{{out|output|text=&nbsp; (data used is within the REXX program):}}

<pre>

===version 2===

* 17.05.2013 Walter Pachl

* should work with every REXX.

Say copies('-',40)

End

<pre> name --> FSF Inc.

addr --> 51 Franklin Street

=={{header|Ring}}==

# Project : Table creation/Postal addresses

sqlite_execute(oSQLite,sql)

=={{header|Ruby}}==

PStore implements a persistent key store with transactions. This is a NoSQL database. Each transaction reads the entire database into memory, and then writes it again, so PStore is not good for large databases.

require 'set'

db[:next] ||= 0 # Next available Address#id

db[:ids] ||= Set[] # Set of all ids in db

To put an Address inside this PStore:

id = (db[:next] += 1)

db[id] = Address.new(id,

"Washington", "DC", 20500)

db[:ids].add id

===With SQLite===

{{libheader|sqlite3-ruby}}

db = SQLite3::Database.new(':memory:')

addrZIP TEXT NOT NULL

)

=={{header|Run BASIC}}==

AQLite

mem$ = "

CREATE TABLE address (

addrZIP TEXT NOT NULL

)"

=={{header|SAS}}==

PROC SQL;

)

;QUIT;

=={{header|Scheme}}==

This example works with Chicken Scheme, using its sql-de-lite library:

(use sql-de-lite)

(close-database *db*) ; finally, close database

=={{header|Sidef}}==

{{trans|Perl}}

var db = %s'DBI'.connect('DBI:mysql:database:server','login','password');

var exec = db.prepare(statment);

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

{{works with|Db2 LUW}}

CREATE TABLE Address (

addrID Integer generated by default as identity,

addrZIP Char(10) not null

);

Output:

<pre>

=={{header|SQLite}}==

Purely in Sqlite3.

CREATE TABLE address_USA (

address_ID INTEGER PRIMARY KEY,

address_Zip INTEGER

);

=={{header|Stata}}==

Other possibilities include using the '''[https://www.stata.com/help.cgi?odbc odbc]''' command or a C or Java plugin to connect to a database. See the FAQ for more details: '''[https://www.stata.com/support/faqs/data-management/using-plugin-to-connect-to-database/ How do I connect to a database by using a Stata plugin?]'''.

gen str8 addrid=""

gen str50 street=""

gen str2 state=""

gen str20 zip=""

=={{header|Tcl}}+SQLite==

{{libheader|SQLite}}

sqlite3 db address.db

addrZIP TEXT NOT NULL

)

=={{header|Transact-SQL}} (MSSQL)==

addrID int NOT NULL Identity(1,1) PRIMARY KEY,

addrStreet varchar(50) NOT NULL ,

addrZIP char(10) NOT NULL

)

=={{header|VBScript}}==

Option Explicit

.Close

End With

=={{header|Visual FoxPro}}==

CLOSE DATABASES ALL

CREATE DATABASE usdata.dbc

OPEN DATABASE usdata.dbc

USE address.dbf SHARED

=={{header|Wren}}==

{{libheader|Wren-sort}}

We use the same simple database format for this task as we did for the [[Table_creation#Wren]] task.

import "/fmt" for Fmt

import "/sort" for Cmp, Sort

table.removeRecord(1)

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

{{out}}

{{trans|AWK}}

Interact with SQLite via the command line.

fcn dbMakeQuery(db,qry){

qry=dbEscapeQuery(qry) + ";";

throw(Exception.IOError(listOfStrings.concat().strip()));

True