SF.net SVN: frontierkernel: [1741] ODBs/trunk/frontierRoot/system/verbs/ builtins/sqlite

[<cre...@us...>]

Revision: 1741
          http://frontierkernel.svn.sourceforge.net/frontierkernel/?rev=1741&view=rev
Author:   creecode
Date:     2007-09-30 16:24:37 -0700 (Sun, 30 Sep 2007)

Log Message:
-----------
example scripts

Added Paths:
-----------
    ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/
    ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/createTable.fvc
    ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/populateTable.fvc

Added: ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/createTable.fvc
===================================================================
--- ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/createTable.fvc	                        (rev 0)
+++ ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/createTable.fvc	2007-09-30 23:24:37 UTC (rev 1741)
@@ -0,0 +1,35 @@
+FrontierVcsFile:3:scpt:system.verbs.builtins.sqlite.examples.createTable
+
+«Changes
+	«9/16/07; 7:45:51 PM by TAC
+		«added picture BLOB column
+		«formatting and coding tweaks
+	«9/5/06; 12:00:00 AM by DG
+		«created
+
+local ( databaseId, f, query, queryId, result );
+
+bundle { // f
+	local ( s );
+	
+	case sys.os ( ) {
+		"MacOS" {
+			s = "Temporary Items"};
+		"Win95" {
+			s = "Temp"}};
+	
+	f = file.getSpecialFolderPath ( "", s, false ) + "states.db3"};
+
+databaseId = sqlite.open ( f );
+
+query = "CREATE TABLE `States` ( `State` TEXT COLLATE NOCASE NOT NULL DEFAULT '', `Date_of_statehood` INTEGER NOT NULL DEFAULT '0', `Capital` TEXT COLLATE NOCASE NOT NULL DEFAULT '', `Capital_since` INTEGER NOT NULL DEFAULT '0', `Most_populous_city?` ENUM ( 1, 0 ) NOT NULL DEFAULT '0', `Population` INTEGER NOT NULL default '0', `Notes_on_current_capital` TEXT COLLATE NOCASE NOT NULL, `Picture` BLOB )";
+
+queryId = sqlite.compileQuery ( databaseId, query );
+
+result = sqlite.stepQuery ( queryId );
+
+result = sqlite.clearQuery ( queryId );
+
+sqlite.close ( databaseId )
+
+


Property changes on: ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/createTable.fvc
___________________________________________________________________
Name: svn:eol-style
   + native

Added: ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/populateTable.fvc
===================================================================
--- ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/populateTable.fvc	                        (rev 0)
+++ ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/populateTable.fvc	2007-09-30 23:24:37 UTC (rev 1741)
@@ -0,0 +1,56 @@
+FrontierVcsFile:3:scpt:system.verbs.builtins.sqlite.examples.populateTable
+
+«Changes
+	«9/16/07; 1:35:19 PM by TAC
+		«added call to sqlite.setColumnBlob
+		«added call to sqlite.getLastInsertRowId
+		«formatting and coding tweaks
+	«9/5/06; 12:00:00 AM by DG
+		«created
+
+local ( databaseId, f, i, query, queryId, record, result, state );
+
+on getField ( fieldNumber ) {
+	local ( s );
+	
+	s = string.nthField ( record, ',', fieldNumber );
+	s = string.delete ( s, 1, 1 );
+	s = string.delete ( s, string.length ( s ), 1 );
+	
+	return ( s )};
+
+bundle { // f
+	local ( s );
+	
+	case sys.os ( ) {
+		"MacOS" {
+			s = "Temporary Items"};
+		"Win95" {
+			s = "Temp"}};
+	
+	f = file.getSpecialFolderPath ( "", s, false ) + "states.db3"};
+
+databaseId = sqlite.open ( f );
+
+for i = 2 to string.countFields ( sqlite.data.states.csv, '\n' ) {
+	record = string.nthField ( sqlite.data.states.csv, '\n', i );
+	record = string.trimWhiteSpace ( record );
+	
+	state = getField ( 1 );
+	
+	query = "INSERT into States ( State, Date_of_statehood, Capital, Capital_since, `Most_populous_city?`, Population, Notes_on_current_capital, Picture ) VALUES ( '" + state + "', '" + getField ( 2 ) + "', '" + getField ( 3 ) +  "', '" + getField ( 4 ) + "', '" + getField ( 5 ) +  "', '" + getField ( 6 ) + "', '" + getField ( 7 ) + "', ? )";
+	
+	queryId = sqlite.compileQuery ( databaseId, query );
+	
+	if defined ( sqlite.data.states.pictures.[ state ] ) {
+		result = sqlite.setColumnBlob ( queryId, 1, @sqlite.data.states.pictures.[ state ] )};
+	
+	result = sqlite.stepQuery ( queryId );
+	
+	result = sqlite.getLastInsertRowId ( databaseId );
+	
+	result = sqlite.clearQuery ( queryId )};
+
+sqlite.close ( databaseId )
+
+


Property changes on: ODBs/trunk/frontierRoot/system/verbs/builtins/sqlite/examples/populateTable.fvc
___________________________________________________________________
Name: svn:eol-style
   + native


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.