Anonymous user
Table creation: Difference between revisions
no edit summary
No edit summary |
|||
Line 244:
-----------------------------------------------------
</pre>
=={{header|M2000 Interpreter}}==
M2000 Environment use ADO to connect to databases. Default type is Mdb (Acess 2007).
We can use text from UTF16LE set. Here we have Greek letters in Memo.
<lang M2000 Interpreter>
MODULE SIMPLEBASE {
BASE "ALFA" ' ERASED IF FOUND THE NAME OF "ALFA.MDB"
EXECUTE "ALFA", { CREATE TABLE Employees(ID autoincrement primary key, LastName VARCHAR(40) , FirstName VARCHAR(40) NOT NULL, MyMemo TEXT )}
APPEND "ALFA","Employees",,"George","Getbreak","Γεια χαρά από Ελλάδα"
RETRIEVE "ALFA", "Employees", 1,"",""
READ MANY, ID, LASTNAME$, FIRSTNAMES$, MEMO$
PRINT $(4, 6), "BASE:","ALFA"
Print "ID:",ID
PRINT "NAME:",LASTNAME$ + " " + FIRSTNAMES$
PRINT "MEMO:",
REPORT MEMO$
CLOSE BASE "ALFA"
PRINT
}
SIMPLEBASE
</lang>
=={{header|Mathematica}}==
<lang Mathematica>Needs["DatabaseLink`"];conn = OpenSQLConnection[JDBC["mysql",
| |||