Table creation: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 244: | Line 244: | ||
----------------------------------------------------- |
----------------------------------------------------- |
||
</pre> |
</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}}== |
=={{header|Mathematica}}== |
||
<lang Mathematica>Needs["DatabaseLink`"];conn = OpenSQLConnection[JDBC["mysql", |
<lang Mathematica>Needs["DatabaseLink`"];conn = OpenSQLConnection[JDBC["mysql", |