Sub Process_Globals
Dim SQL1 As SQL
End Sub
Sub Activity_Create(FirstTime As Boolean)
SQL1.Initialize(File.DirRootExternal,"local.db", True)
'create
SQL1.ExecNonQuery("create table if not exists test ('line_column' int(3) not null,'text_column' varchar(20) not null, primary key ('line_column'))")
'truncate
SQL1.ExecNonQuery("delete from test")
'compact db
SQL1.ExecNonQuery("VACUUM")
'insert
SQL1.ExecNonQuery("insert into test values (1,'ΑΥΤΑ ΕΙΝΑΙ εΛΛηνικα')")
SQL1.ExecNonQuery("insert into test values (2,'αυτά είναι Ελληνικά')")
'
'select
Dim c As Cursor
Dim searchfor As String = "ελλ"
c = SQL1.ExecQuery("select line_column,text_column from test where " & SqlUpper("text_column") & " like '%" & searchfor.ToUpperCase & "%'")
For I = 0 To c.RowCount - 1
c.Position = I
Msgbox (c.GetString2(1),c.GetInt2(0))
Next
c.Close
'end
ExitApplication
End Sub
Sub SqlUpper (Column As String) As String
Return "replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(" & _
"replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(" & _
"replace(replace(replace(" & column & ",'α','Α'),'β','Β'),'γ','Γ'),'δ','Δ'),'ε','Ε'),'ζ','Ζ'),'η','Η'),'θ','Θ'),'ι','Ι')" & _
",'κ','Κ'),'λ','Λ'),'μ','Μ'),'ν','Ν'),'ξ','Ξ'),'ο','Ο'),'π','Π'),'ρ','Ρ'),'σ','Σ'),'τ','Τ'),'υ','Υ'),'φ','Φ'),'χ','Χ'),'ψ','Ψ')" & _
",'ω','Ω'),'ά','Ά'),'έ','Έ'),'ή','Ή'),'ί','Ί'),'ύ','Ύ'),'ώ','Ώ')"
End Sub