public Sub AddColumn(TableName As String ,FieldName As String, Definition As String ,SQL1 As SQLCipher)
Try
Dim MySQL As String=""
If IsFieldExists2(TableName,FieldName,SQL1)=True Then
Return
End If
MySQL="ALTER TABLE " & TableName & " Add " & FieldName & " " & Definition & ";"
SQL1.ExecNonQuery(MySQL)
Catch
Log("AddColumn " & LastException.Message)
modFun.ShowError("modDB_AddColumn " & LastException.Message)
End Try
End Sub
private Sub IsFieldExists2(TableName As String ,FieldName As String,SQL1 As SQLCipher) As Boolean
Try
Dim MySQL As String=""
Dim Cursor1 As Cursor
Dim Res As String
MySQL="SELECT sql FROM sqlite_master WHERE Type = 'table' And name='" & TableName & "'"
Cursor1=SQL1.ExecQuery(MySQL)
Cursor1.Position=0
Res=Cursor1.GetString("sql")
Cursor1.Close
If Res.Contains(FieldName) Then
Return True
Else
Return False
End If
Catch
Log("IsFieldExists2 " & LastException.Message)
modFun.ShowError("modDB_sFieldExists2 " & LastException.Message)
Return False
End Try
End Sub