' -------------------------------------------------------------------
'
'	update/sqlite3_update.vb
'
'					Aug/25/2015
'
'
'
' -------------------------------------------------------------------
imports	System
imports	System.Text
imports Mono.Data.Sqlite

' -------------------------------------------------------------------
Module sqlite3_update

' -------------------------------------------------------------------
Sub Main ()
	Dim clArgs() As String = Environment.GetCommandLineArgs()
	Console.WriteLine ("*** 開始 ***")

	Dim file_sqlite3 as String = clArgs(1)
	Dim	id_in as String = clArgs(2)
	Dim	population_in as String = clArgs(3)

	Dim str_connect as String = "Data Source = " + file_sqlite3 _
			+ ";UTF8Encoding=True;Version=3"

	Dim conn as SqliteConnection = new SqliteConnection (str_connect)

	conn.Open()

	Dim dateNow as DateTime = DateTime.Now
	Dim str_date as String = dateNow.ToString ("yyyy-MM-dd HH:mm:ss")

	Console.WriteLine (str_date)

	Dim sb_sql as StringBuilder = new StringBuilder _
			("UPDATE cities SET population = " _
			+ population_in + " , date_mod = '" + str_date + _
			"' WHERE id = '" + id_in + "'")

	Dim str_sql as string = sb_sql.ToString ()
	
	Console.WriteLine (str_sql)

	Dim command as SqliteCommand = new SqliteCommand (str_sql,conn)
'	command.ExecuteNonQuery ()

	Dim rowsAffected as integer = command.ExecuteNonQuery ()
	
'	Console.WriteLine ("rowsAffected = " + rowsAffected);
'	Console.WriteLine (rowsAffected);

	conn.Close()
	console.writeLine("*** 終了 ***")
End Sub
' ----------------------------------------------------------------
End Module

' -------------------------------------------------------------------