Sub Class_Globals
Public ColumnID As Int
Public FieldName As String
Public FieldType As String
Public IsNotNull As Int
Public DefaultValue As Object
Public PrimaryKey As Int
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
ColumnID = 0
FieldName = ""
FieldType = ""
IsNotNull = 0
DefaultValue = Null
PrimaryKey = 0
End Sub
Public Sub FromPRAGMACursor( crs As Cursor )
ColumnID = crs.GetInt("cid")
FieldName = crs.GetString("name")
FieldType = crs.GetString("type")
IsNotNull = crs.GetInt("notnull")
DefaultValue = crs.GetString("dflt_value")
PrimaryKey = crs.GetInt("pk")
'Log("cid=" & ColumnID & ", name=" & FieldName & ", type=" & FieldType & ", notnull" & IsNotNull & ", dflt_value=" & DefaultValue & ", pk=" & PrimaryKey)
End Sub