Table creation/Postal addresses: Difference between revisions

{{task|Database operations}}

 

For non-database languages, show how you would open a connection to a database (your choice of which) and create an address table in it. You should follow the existing models here for how you would structure the table.

 

=={{header|ALGOL 68}}==

 

<!-- {{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">

 

</pre>

 

=={{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}}

+----+-----------------+---------------------------+----------+--------+---------+------------+----------------+

</pre>

 

=={{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]].

 

=={{header|Lasso}}==

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>

 

addrID INTEGER PRIMARY KEY AUTOINCREMENT,

addrStreet TEXT NOT NULL, addrCity TEXT NOT NULL,

addrState TEXT NOT NULL, addrZIP 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|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

<pre>

 

 

=={{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:

National Security Council, 1700 Pennsylvania Avenue NW, Washington.

</pre>

 

=={{header|REXX}}==

===version 1===

A REXX program can call SQL or any other database system, but the version shown here is a RYO (roll your own).

<pre>

</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

zip --> 20500

----------------------------------------</pre>

 

=={{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|SQLite}}==

Purely in Sqlite3.

CREATE TABLE address_USA (

address_ID INTEGER PRIMARY KEY,

address_Zip INTEGER

);

 

=={{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