Table creation/Postal addresses: Difference between revisions
→{{header|Wren}}: Added a second version using Wren-table.
(→{{header|Wren}}: Added a second version using Wren-table.) |
|||
(16 intermediate revisions by 9 users not shown) | |||
Line 15:
<!-- {{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,
Line 60:
# set(address table, page OF john brown,1,1); - standard set page not available in a68g #
put bin(address table, john brown);
close(address table)</
Output:
<pre>
Line 71:
=={{header|Apache Derby}}==
<
addrID integer primary key generated by default as identity,
addrStreet varchar(50) not null,
Line 78:
addrZip char(10) not null
);
</syntaxhighlight>
'''Interactive session:
<pre style="height: 30em; overflow: scroll">
Line 126:
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="rebol">db: open.sqlite "addresses.db"
query db {!sql
CREATE TABLE address (
addrID INTEGER PRIMARY KEY AUTOINCREMENT,
addrStreet TEXT NOT NULL,
addrCity TEXT NOT NULL,
addrState TEXT NOT NULL,
addrZIP TEXT NOT NULL
)
}
close db</syntaxhighlight>
=={{header|AWK}}==
Line 133 ⟶ 149:
This version uses the AWK pipe, 'getline' function, and the sqlite3 command line program.
<
awk '
BEGIN {
Line 165 ⟶ 181:
}
'</
=={{header|BASIC256}}==
<syntaxhighlight lang="vbnet"># create a new database file or open it
dbopen "addresses.sqlite3"
# delete the existing table - If it is a new database, the error is captured
onerror errortrap
dbexecute "drop table addresses;"
offerror
# create the table
dbexecute "CREATE TABLE addresses (addrID integer, addrStreet string, addrCity string, addrState string, addrZIP string);"
# close all
dbclose
end
errortrap:
# accept the error - show nothing - return to the next statement
return</syntaxhighlight>
=={{header|C}}==
{{libheader|SQLite}}
<
#include <stdlib.h>
#include <sqlite3.h>
Line 200 ⟶ 236:
}
return EXIT_SUCCESS;
}</
=={{header|C++}}==
This example completes the task with a random access file, instead of using an external library.
<syntaxhighlight lang="c++">
#include <cstdint>
#include <fstream>
#include <iostream>
#include <string>
#include <vector>
class Address {
public:
Address(const std::string& aName, const std::string& aStreet, const std::string& aCity,
const std::string& aState, const std::string& aZipCode)
: name(aName), street(aStreet), city(aCity), state(aState), zipCode(aZipCode) {}
std::string address_record() {
std::string record;
record += fixed_length(name, 30);
record += fixed_length(street, 30);
record += fixed_length(city, 15);
record += fixed_length(state, 5);
record += fixed_length(zipCode, 10);
return record;
}
static constexpr uint32_t RECORD_LENGTH = 90;
private:
std::string fixed_length(const std::string& text, const uint64_t& size) {
return ( text.length() > size ) ? text.substr(0, size) : text + std::string(size - text.length(), ' ');
}
std::string name, street, city, state, zipCode;
};
int main() {
std::vector<Address> addresses = {
Address("FSF Inc.", "51 Franklin Street", "Boston", "MA", "02110-1301"),
Address("The White House", "1600 Pennsylvania Avenue NW", "Washington", "DC", "20500"),
Address("National Security Council", "1700 Pennsylvania Avenue NW", "Washington", "DC", "20500")
};
std::fstream file("addresses.dat", std::ios::app | std::ios::in | std::ios::out);
if ( ! file ) {
std::cerr << "Error. Cannot open file." << std::endl;
exit(EXIT_FAILURE);
}
for ( uint64_t i = 0; i < addresses.size(); ++i ) {
file.seekp(i * Address::RECORD_LENGTH, std::ios::beg);
file << addresses[i].address_record();
}
for ( uint64_t i = 0; i < addresses.size(); ++i ) {
file.seekg(i * Address::RECORD_LENGTH, std::ios::beg);
char ch;
std::string address;
while ( address.length() < Address::RECORD_LENGTH ) {
file.get(ch);
address += ch;
}
std::cout << address << std::endl;
}
file.close();
}
</syntaxhighlight>
{{ out }}
<pre>
FSF Inc. 51 Franklin Street Boston MA 02110-1301
The White House 1600 Pennsylvania Avenue NW Washington DC 20500
National Security Council 1700 Pennsylvania Avenue NW Washington DC 20500
</pre>
=={{header|Clojure}}==
<
; Using h2database for this simple example.
(def db {:classname "org.h2.Driver"
Line 216 ⟶ 326:
[:state "varchar"]
[:zip "varchar"]))
</syntaxhighlight>
=={{header|EchoLisp}}==
<
(lib 'struct)
(lib 'sql)
Line 236 ⟶ 346:
[0] 15 Gallubert 29 rue de l'Ermitage Paris Seine 75020
[1] 16 Brougnard 666 rue des Cascades Paris Seine 75042
</syntaxhighlight>
=={{header|Erlang}}==
Erlang has built in databases. This is the the one with most features: Mnesia. There are database connectors to other databases, too.
<syntaxhighlight lang="erlang">
-module( table_creation ).
Line 251 ⟶ 360:
mnesia:start(),
mnesia:create_table( address, [{attributes, record_info(fields, address)}] ).
</syntaxhighlight>
{{out}}
<pre>
Line 260 ⟶ 369:
=={{header|FunL}}==
FunL has built-in support for H2 and comes bundled with the H2 database engine.
<
import util.*
Line 296 ⟶ 405:
print( TextTable.apply(result) )
conn.close()</
{{out}}
Line 308 ⟶ 417:
+----+-----------------+---------------------------+----------+--------+---------+------------+----------------+
</pre>
=={{header|FreeBASIC}}==
{{libheader|SQLite}}
<syntaxhighlight lang="vbnet">#include once "sqlite3.bi"
Const NULL As Any Ptr = 0
Dim As sqlite3 Ptr db
Dim As zstring Ptr errMsg
If sqlite3_open(":memory:", @db) <> SQLITE_OK Then
Print "Could not open database: "; sqlite3_errmsg(db)
sqlite3_close(db)
Sleep
End 1
End If
Dim As String sql = "CREATE TABLE address(" _
& "addrID INTEGER PRIMARY KEY AUTOINCREMENT," _
& "addrStreet TEXT NOT NULL," _
& "addrCity TEXT NOT NULL," _
& "addrState TEXT NOT NULL," _
& "addrZIP TEXT NOT NULL);"
If sqlite3_exec(db, sql, NULL, NULL, @errMsg) <> SQLITE_OK Then
Print "Error creating table: "; *errMsg
sqlite3_free(errMsg)
Else
Print "Table created successfully"
End If
sqlite3_close(db)
Sleep</syntaxhighlight>
=={{header|Go}}==
<
import (
Line 356 ⟶ 499:
fmt.Println(field, storage)
}
}</
{{out}}
<pre>
Line 371 ⟶ 514:
{{libheader|sqlite-simple}}
<
import Database.SQLite.Simple
Line 385 ⟶ 528:
\addrZIP TEXT NOT NULL \
\)"
close db</
=={{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
Line 396 ⟶ 539:
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|Java}}==
Java can connect with many databases.
This example completes the task with a random access file, instead of using an external library.
<syntaxhighlight lang="java">
import java.io.IOException;
import java.nio.ByteBuffer;
import java.nio.channels.FileChannel;
import java.nio.file.Path;
import java.nio.file.StandardOpenOption;
public final class TableCreationPostalAddresses {
public static void main(String[] args) throws IOException {
Address[] addresses = new Address[] {
new Address("FSF Inc.", "51 Franklin Street", "Boston", "MA", "02110-1301"),
new Address("The White House", "1600 Pennsylvania Avenue NW", "Washington", "DC", "20500"),
new Address("National Security Council", "1700 Pennsylvania Avenue NW", "Washington", "DC", "20500")
};
Path path = Path.of("addresses.dat");
FileChannel fileChannel = FileChannel.open(path, StandardOpenOption.CREATE,
StandardOpenOption.READ,
StandardOpenOption.WRITE);
for ( int i = 0; i < addresses.length; i++ ) {
byte[] data = addresses[i].addressRecord().getBytes();
ByteBuffer writeBuffer = ByteBuffer.wrap(data);
fileChannel.position(i * Address.RECORD_LENGTH);
while ( writeBuffer.hasRemaining() ) {
fileChannel.write(writeBuffer);
}
}
for ( int i = 0; i < addresses.length; i++ ) {
fileChannel.position(i * Address.RECORD_LENGTH);
ByteBuffer readBuffer = ByteBuffer.allocate(Address.RECORD_LENGTH);
fileChannel.read(readBuffer);
System.out.println( new String(readBuffer.array()) );
}
fileChannel.close();
}
}
final class Address {
public Address(String aName, String aStreet, String aCity, String aState, String aZipCode) {
name = aName; street = aStreet; city = aCity; state = aState; zipCode = aZipCode;
}
public String addressRecord() {
String record = "";
record += String.format("%-30s", name);
record += String.format("%-30s", street);
record += String.format("%-15s", city);
record += String.format("%-5s", state);
record += String.format("%-10s", zipCode);
return record;
}
public static final int RECORD_LENGTH = 30 + 30 + 15 + 5 + 10;
private String name, street, city, state, zipCode;
}
</syntaxhighlight>
{{ out }}
<pre>
FSF Inc. 51 Franklin Street Boston MA 02110-1301
The White House 1600 Pennsylvania Avenue NW Washington DC 20500
National Security Council 1700 Pennsylvania Avenue NW Washington DC 20500
</pre>
=={{header|Julia}}==
{{works with|Julia|0.6}}
<
db = SQLite.DB()
Line 413 ⟶ 629:
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
Line 505 ⟶ 721:
println(Address.readRecord(file, i.toLong()))
}
}</
{{output}}
Line 527 ⟶ 743:
Lasso has excellent support for connecting to and handling databases.
<
inline(-database = 'rosettatest', -sql = "CREATE TABLE `address` (
`id` int(11) NOT NULL auto_increment,
Line 538 ⟶ 754:
") => {^
error_msg
^}</
Output:
<pre>No error</pre>
Line 544 ⟶ 760:
=={{header|Lua}}==
Using LJSQLite3 - compatible with LuaJIT and supplied in the ULua distribution.
<
local sql = require("ljsqlite3")
Line 561 ⟶ 777:
-- Explicitly close connection
conn:close()</
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<
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"]
SQLExecute[ conn, TableCreation]</
=={{header|MySQL}}==
<
`addrID` int(11) NOT NULL auto_increment,
`addrStreet` varchar(50) NOT NULL default '',
Line 581 ⟶ 796:
`addrZIP` char(10) NOT NULL default '',
PRIMARY KEY (`addrID`)
);</
=={{header|NetRexx}}==
Line 588 ⟶ 803:
{{libheader|Apache Derby}}
This sample creates a table in an embedded Apache Derby database.
<
options replace format comments java crossref symbols binary
Line 648 ⟶ 863:
createTable()
return
</syntaxhighlight>
=={{header|Nim}}==
<
#import db_mysql as db
#import db_postgres as db
Line 668 ⟶ 883:
addrState TEXT NOT NULL,
addrZIP TEXT NOT NULL)"""
c.close()</
=={{header|ooRexx}}==
<
* 17.05.2013 Walter Pachl translated from REXX version 2
* nice try? improvements are welcome as I am rather unexperienced
Line 711 ⟶ 926:
Say ' state -->' self~state
Say ' zip -->' self~zip
Say copies('-',40)</
Output is as for REXX version 2
=={{header|Oracle}}==
<
/
CREATE TABLE address (
Line 725 ⟶ 940:
CONSTRAINT address_pk1 PRIMARY KEY ( addrID )
)
/</
=={{header|Oz}}==
Line 734 ⟶ 949:
The SQLite version that comes with Ozsqlite does not understand "AUTOINCREMENT".
<
[Sqlite] = {Module.link ['x-ozlib:/sqlite/Sqlite.ozf']}
Line 755 ⟶ 970:
finally
{Sqlite.close DB}
end</
=={{header|Perl}}==
<
my $db = DBI->connect('DBI:mysql:database:server','login','password');
Line 774 ⟶ 989:
my $exec = $db->prepare($statment);
$exec->execute;</
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}}
<!--<syntaxhighlight lang="phix">(notonline)-->
<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: #008080;">constant</span> <span style="color: #000000;">sqlcode</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
CREATE TABLE address (
addrID INTEGER PRIMARY KEY AUTOINCREMENT,
addrState TEXT NOT NULL,
addrZIP TEXT NOT NULL)"""</span>
<span style="color: #000000;">sqlite3</span> <span style="color: #000000;">db</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">sqlite3_open</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"address.sqlite"</span><span style="color: #0000FF;">)</span>
<span style="color: #004080;">integer</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">sqlite3_exec</span><span style="color: #0000FF;">(</span><span style="color: #000000;">db</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sqlcode</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">res</span><span style="color: #0000FF;">=</span><span style="color: #000000;">SQLITE_OK</span> <span style="color: #008080;">then</span>
<span style="color: #000000;">sqlite3_close</span><span style="color: #0000FF;">(</span><span style="color: #000000;">db</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">else</span>
<span style="color: #000080;font-style:italic;">-- can show eg "sqlite3_exec error: 1 [table address already exists]"</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>
<!--</syntaxhighlight>-->
=={{header|PHP}}+SQLite==
{{trans|Python}}
not tested
<
$db = new SQLite3(':memory:');
$db->exec("
Line 832 ⟶ 1,030:
)
");
?></
=={{header|PicoLisp}}==
Line 840 ⟶ 1,038:
Define an "address" entity, and create the database:
<
(rel nm (+Sn +Idx +String)) # Name [Soundex index]
(rel str (+String)) # Street
Line 851 ⟶ 1,049:
(rel jpg (+Blob)) # Photo
(pool "address.db") # Create database</
Create a first entry, and show it:
<
(new! '(+Adr) # Create a record
'nm "FSF Inc."
'str "51 Franklin St"
'st "Boston, MA"
'zip "02110-1301" ) )</
Output:
<pre>{2} (+Adr)
Line 866 ⟶ 1,064:
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'),
Line 878 ⟶ 1,076:
state varchar(2) not null,
zip varchar(20) not null
);</
=={{header|PowerShell}}+SQLite==
{{libheader|SQLite}}
<syntaxhighlight lang="powershell">
Import-Module -Name PSSQLite
Line 945 ⟶ 1,114:
## View the data
Invoke-SqliteQuery -DataSource $DataSource -Query "SELECT * FROM SSADDRESS" | FormatTable -AutoSize
</syntaxhighlight>
{{Out}}
<pre>
Line 952 ⟶ 1,121:
1 Monster Cookie 666 Sesame St Holywood CA 90013
</pre>
=={{header|PureBasic}}+SQLite==
Easiest approach with sqlite. Further possible: PostgresQL or each other over ODBC.
<syntaxhighlight lang="purebasic">
UseSQLiteDatabase()
Procedure CheckDatabaseUpdate(Database, Query$)
Result = DatabaseUpdate(Database, Query$)
If Result = 0
Print(DatabaseError())
EndIf
ProcedureReturn Result
EndProcedure
openconsole()
DatabaseFile$ = GetCurrentDirectory()+"/rosettadb.sdb"
If CreateFile(0, DatabaseFile$)
CloseFile(0)
If OpenDatabase(0, DatabaseFile$, "", "")
CheckDatabaseUpdate(0,"CREATE TABLE address ( addrID INTEGER PRIMARY KEY AUTOINCREMENT, addrStreet TEXT Not NULL, addrCity TEXT Not NULL, addrState TEXT Not NULL, addrZIP TEXT Not NULL)")
CloseDatabase(0)
Else
print("Can't open database !")
EndIf
Else
print("Can't create the database file !")
EndIf
closeconsole()
</syntaxhighlight>
=={{header|Python}}+SQLite==
{{libheader|SQLite}}
<
>>> conn = sqlite3.connect(':memory:')
>>> conn.execute('''CREATE TABLE address (
Line 965 ⟶ 1,161:
)''')
<sqlite3.Cursor object at 0x013265C0>
>>> </
=={{header|Racket}}==
Line 971 ⟶ 1,167:
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:
<syntaxhighlight lang="racket">
#lang at-exp racket
Line 1,022 ⟶ 1,218:
(disconnect postal)
</syntaxhighlight>
Output:
Line 1,038 ⟶ 1,234:
National Security Council, 1700 Pennsylvania Avenue NW, Washington.
</pre>
=={{header|Raku}}==
(formerly Perl 6)
{{works with|Rakudo|2017.09}}
Like Perl DBI, Raku DBIish supports many different databases. An example using SQLite is shown here.
<syntaxhighlight lang="raku" line>use DBIish;
my $dbh = DBIish.connect('SQLite', :database<addresses.sqlite3>);
my $sth = $dbh.do(q:to/STATEMENT/);
DROP TABLE IF EXISTS Address;
CREATE TABLE Address (
addrID INTEGER PRIMARY KEY AUTOINCREMENT,
addrStreet TEXT NOT NULL,
addrCity TEXT NOT NULL,
addrState TEXT NOT NULL,
addrZIP TEXT NOT NULL
)
STATEMENT</syntaxhighlight>
=={{header|REXX}}==
Line 1,087 ⟶ 1,304:
╚════════════════════════════════════════════════════════════════════════════════════════╝
</pre>
<
@usa.=; @usa.0=0; $='@USA.' /*initialize array and first value.*/
@usa.0=@usa.0 + 1 /*bump the unique number for usage.*/
Line 1,120 ⟶ 1,337:
call value $ || @usa.0'.upHist' , userid() date() time()
end
return</
{{out|output|text= (data used is within the REXX program):}}
<pre>
Line 1,139 ⟶ 1,356:
===version 2===
<
* 17.05.2013 Walter Pachl
* should work with every REXX.
Line 1,173 ⟶ 1,390:
Say copies('-',40)
End
Return</
<pre> name --> FSF Inc.
addr --> 51 Franklin Street
Line 1,189 ⟶ 1,406:
=={{header|Ring}}==
<
# Project : Table creation/Postal addresses
load "stdlib.ring"
Line 1,208 ⟶ 1,422:
sqlite_execute(oSQLite,sql)
</syntaxhighlight>
=={{header|Ruby}}==
Line 1,214 ⟶ 1,428:
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'
Line 1,223 ⟶ 1,437:
db[:next] ||= 0 # Next available Address#id
db[:ids] ||= Set[] # Set of all ids in db
end</
To put an Address inside this PStore:
<
id = (db[:next] += 1)
db[id] = Address.new(id,
Line 1,233 ⟶ 1,447:
"Washington", "DC", 20500)
db[:ids].add id
end</
===With SQLite===
Line 1,239 ⟶ 1,453:
{{libheader|sqlite3-ruby}}
<
db = SQLite3::Database.new(':memory:')
Line 1,250 ⟶ 1,464:
addrZIP TEXT NOT NULL
)
")</
=={{header|Run BASIC}}==
AQLite
<
mem$ = "
CREATE TABLE address (
Line 1,263 ⟶ 1,477:
addrZIP TEXT NOT NULL
)"
#mem execute(mem$)</
=={{header|SAS}}==
<
PROC SQL;
Line 1,278 ⟶ 1,492:
)
;QUIT;
</syntaxhighlight>
=={{header|Scheme}}==
Line 1,286 ⟶ 1,500:
This example works with Chicken Scheme, using its sql-de-lite library:
<
(use sql-de-lite)
Line 1,303 ⟶ 1,517:
(close-database *db*) ; finally, close database
</syntaxhighlight>
=={{header|Sidef}}==
{{trans|Perl}}
<
var db = %s'DBI'.connect('DBI:mysql:database:server','login','password');
Line 1,323 ⟶ 1,537:
var exec = db.prepare(statment);
exec.execute;</
=={{header|SQL PL}}==
{{works with|Db2 LUW}}
<
CREATE TABLE Address (
addrID Integer generated by default as identity,
Line 1,335 ⟶ 1,549:
addrZIP Char(10) not null
);
</syntaxhighlight>
Output:
<pre>
Line 1,347 ⟶ 1,561:
db2 (cont.) =>);
DB20000I The SQL command completed successfully.
db2 => DESCRIBE TABLE Address;
Data type Column
Column name schema Data type name Length Scale Nulls
------------------------------- --------- ------------------- ---------- ----- ------
ADDRID SYSIBM INTEGER 4 0 No
ADDRSTREET SYSIBM VARCHAR 50 0 No
ADDRCITY SYSIBM VARCHAR 25 0 No
ADDRSTATE SYSIBM CHARACTER 2 0 No
ADDRZIP SYSIBM CHARACTER 10 0 No
5 record(s) selected.
</pre>
=={{header|SQLite}}==
Purely in Sqlite3.
<
CREATE TABLE address_USA (
address_ID INTEGER PRIMARY KEY,
Line 1,359 ⟶ 1,585:
address_Zip INTEGER
);
</syntaxhighlight>
=={{header|Stata}}==
Line 1,367 ⟶ 1,593:
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=""
Line 1,373 ⟶ 1,599:
gen str2 state=""
gen str20 zip=""
save address</
=={{header|Tcl}}+SQLite==
{{libheader|SQLite}}
<
sqlite3 db address.db
Line 1,388 ⟶ 1,614:
addrZIP TEXT NOT NULL
)
}</
=={{header|Transact-SQL}} (MSSQL)==
<
addrID int NOT NULL Identity(1,1) PRIMARY KEY,
addrStreet varchar(50) NOT NULL ,
Line 1,398 ⟶ 1,624:
addrZIP char(10) NOT NULL
)
drop table #Address</
=={{header|VBScript}}==
<syntaxhighlight lang="vb">
Option Explicit
Line 1,416 ⟶ 1,642:
.Close
End With
</syntaxhighlight>
=={{header|Visual FoxPro}}==
<
CLOSE DATABASES ALL
CREATE DATABASE usdata.dbc
Line 1,431 ⟶ 1,657:
OPEN DATABASE usdata.dbc
USE address.dbf SHARED
</syntaxhighlight>
=={{header|Wren}}==
===Version 1===
{{libheader|Wren-dynamic}}
{{libheader|Wren-fmt}}
{{libheader|Wren-sort}}
We use the same simple database format for this task as we did for the [[Table_creation#Wren]] task.
<syntaxhighlight lang="wren">import "./dynamic" for Enum, Tuple
import "./fmt" for Fmt
import "./sort" for Cmp, Sort
var FieldType = Enum.create("FieldType", ["text", "num", "int", "bool"])
var Field = Tuple.create("Field", ["name", "fieldType", "maxLen"])
class Table {
construct new(name, fields, keyIndex) {
_name = name
_fields = fields
_keyIndex = keyIndex // the zero based index of the field to sort on
_records = []
_fmt = ""
for (f in _fields) {
var c = f.name.count
var l = f.maxLen.max(c)
if (f.fieldType == FieldType.text ||f.fieldType == FieldType.bool) {
l = -l
}
_fmt = _fmt + "$%(l)s "
}
_fmt = _fmt.trimEnd()
}
name { _name }
showFields() {
System.print("Fields for %(_name) table:\n")
Fmt.print("$-20s $4s $s", "name", "type", "maxlen")
System.print("-" * 33)
for (f in _fields) {
Fmt.print("$-20s $-4s $d", f.name, FieldType.members[f.fieldType], f.maxLen)
}
}
cmp_ { Fn.new { |r1, r2|
return (Num.fromString(r1[_keyIndex]) - Num.fromString(r2[_keyIndex])).sign
}}
addRecord(record) {
var items = record.split(", ")
_records.add(items)
Sort.insertion(_records, cmp_) // move new record into sorted order
}
showRecords() {
System.print("Records for %(_name) table:\n")
var h = Fmt.slwrite(_fmt, _fields.map { |f| f.name }.toList)
System.print(h)
System.print("-" * h.count)
for (r in _records) {
Fmt.lprint(_fmt, r)
}
}
removeRecord(key) {
for (i in 0..._records.count) {
if (_records[i][_keyIndex] == key.toString) {
_records.removeAt(i)
return
}
}
}
findRecord(key) {
for (i in 0..._records.count) {
if (_records[i][_keyIndex] == key.toString) {
return _records[i].join(", ")
}
}
return null
}
}
var fields = []
fields.add(Field.new("id", FieldType.int, 2))
fields.add(Field.new("name", FieldType.text, 25))
fields.add(Field.new("street", FieldType.text, 50))
fields.add(Field.new("city", FieldType.text, 15))
fields.add(Field.new("state", FieldType.text, 2))
fields.add(Field.new("zipCode", FieldType.text, 10))
// create table
var table = Table.new("Addresses", fields, 0)
// add records in unsorted order
table.addRecord("2, FSF Inc., 51 Franklin Street, Boston, MA, 02110-1301")
table.addRecord("1, The White House, The Oval Office 1600 Pennsylvania Avenue NW, Washington, DC, 20500")
table.addRecord("3, National Security Council, 1700 Pennsylvania Avenue NW, Washington, DC, 20500")
// show the table's fields
table.showFields()
System.print()
// show the table's records in sorted order
table.showRecords()
// find a record by key
System.print("\nThe record with an id of 2 is:")
System.print(table.findRecord(2))
// delete a record by key
table.removeRecord(1)
System.print("\nThe record with an id of 1 will be deleted, leaving:\n")
table.showRecords()</syntaxhighlight>
{{out}}
<pre>
Fields for Addresses table:
name type maxlen
---------------------------------
id int 2
name text 25
street text 50
city text 15
state text 2
zipCode text 10
Records for Addresses table:
id name street city state zipCode
---------------------------------------------------------------------------------------------------------------------
1 The White House The Oval Office 1600 Pennsylvania Avenue NW Washington DC 20500
2 FSF Inc. 51 Franklin Street Boston MA 02110-1301
3 National Security Council 1700 Pennsylvania Avenue NW Washington DC 20500
The record with an id of 2 is:
2, FSF Inc., 51 Franklin Street, Boston, MA, 02110-1301
The record with an id of 1 will be deleted, leaving:
Records for Addresses table:
id name street city state zipCode
---------------------------------------------------------------------------------------------------------------------
2 FSF Inc. 51 Franklin Street Boston MA 02110-1301
3 National Security Council 1700 Pennsylvania Avenue NW Washington DC 20500
</pre>
===Version 2===
{{libheader|Wren-table}}
The above module provides a more generic way to create simple databases and was not available when the first version was written.
<syntaxhighlight lang="wren">import "./table" for Table, FieldInfo, Records
var fields = [
FieldInfo.new("id", Num),
FieldInfo.new("name", String),
FieldInfo.new("street", String),
FieldInfo.new("city", String),
FieldInfo.new("state", String),
FieldInfo.new("zipCode", String)
]
// create table
var table = Table.new("Addresses", fields)
// add records in unsorted order
table.addAll([
[2, "FSF Inc.", "51 Franklin Street", "Boston", "MA", "02110-1301"],
[1, "The White House", "The Oval Office 1600 Pennsylvania Avenue NW", "Washington", "DC", "20500"],
[3, "National Security Council", "1700 Pennsylvania Avenue NW", "Washington", "DC", "20500"]
])
var colWidths = [2, 25, 43, 10, 2, 10] // for listings
// show the table's fields
table.listFields()
System.print()
// sort the records by 'id' and show them
var sortFn = Fn.new { |s, t| s[0] < t[0] }
var records = table.sortedRecords(sortFn)
Records.list(table.fields, records, "Records for %(table.name) table:\n", colWidths)
// find a record by key
System.print("\nThe record with an id of 2 is:")
System.print(table.find(2))
// delete a record by key
table.remove(1)
System.print("\nThe record with an id of 1 will be deleted, leaving:\n")
records = table.sortedRecords(sortFn)
Records.list(table.fields, records, "Records for %(table.name) table:\n", colWidths)</syntaxhighlight>
{{out}}
<pre>
Fields for Addresses table:
name kind
------- ------
id Num
name String
street String
city String
state String
zipCode String
Records for Addresses table:
id name street city st zipCode
-- ------------------------- ------------------------------------------- ---------- -- ----------
1 The White House The Oval Office 1600 Pennsylvania Avenue NW Washington DC 20500
2 FSF Inc. 51 Franklin Street Boston MA 02110-1301
3 National Security Council 1700 Pennsylvania Avenue NW Washington DC 20500
The record with an id of 2 is:
[2, FSF Inc., 51 Franklin Street, Boston, MA, 02110-1301]
The record with an id of 1 will be deleted, leaving:
Records for Addresses table:
id name street city st zipCode
-- ------------------------- ------------------------------------------- ---------- -- ----------
2 FSF Inc. 51 Franklin Street Boston MA 02110-1301
3 National Security Council 1700 Pennsylvania Avenue NW Washington DC 20500
</pre>
=={{header|zkl}}==
{{trans|AWK}}
Interact with SQLite via the command line.
<
dbExec(NM,"create table address (street, city, state, zip);");</
<
fcn dbMakeQuery(db,qry){
qry=dbEscapeQuery(qry) + ";";
Line 1,453 ⟶ 1,905:
throw(Exception.IOError(listOfStrings.concat().strip()));
True
}</
|