database.mod/sqlite.mod/tests/tableinfo.bmx

SuperStrict

Framework Database.SQLite
Import BRL.filesystem
Import brl.standardio

Local db:TDBConnection = LoadDatabase("SQLITE", "maxtest.db")

If Not db Then
	Print("Didn't work...")
	End
End If

If db.hasError() Then
	errorAndClose(db)
End If


If db.isOpen() Then

	' get a list of tables in the database
	Local table:TDBTable = db.getTableInfo("person", True)
	
	Print table.ddl
	
'	DebugStop
	'If list Then
	'	For Local i:Int = 0 Until list.length
	'		DebugLog("   " + (i + 1) + ".   " + list[i])
	'	Next
	'End If

	db.close()
	
End If

Function errorAndClose(db:TDBConnection)
	Print(db.error().toString())
	db.close()
	End
End Function