Spanish experiencias actualizaciones a la bd sqllite

Hola me gustaría saber como han enfrentado las actualizaciones de las bases de datos en sus app a lo largo del tiempo.

según lo que me ha pasado(no se si aplica cuando esta publicada) cuando cargo nuevamente la aplicación con cambios en la bd , no los aplica y la aplicación falla.

¿se podrá hacer que al instalar borre la bd(antigua) y ponga la nueva con los cambios?


gracias.

Saludos.
lo que yo hago es crear una funcion que contiene los cambios en la base de datos y la llamo al comenzar la aplicacion.

espero que te sirva

lo que yo hago es crear una funcion que contiene loscambios en la base de datos y la llamo al comenzar la aplicacion.

Click to expand...

Hola Samperizal,
Entonces... ¿aplicas cambios, si procede, directamente en las tablas (indices, tipo de dato, longitud de campo etc...)?
Gracias

Saludos prueba con esto

'verifica si existe una tabla
Sub Existe_Tabla(Nombre_Tabla As String) As Boolean
Dim str_sql As String
Dim c As Cursor
Dim n_cantidad As Int
Main.sql_conexion.Initialize(Main.DBFilePath, Main.DBFileName, True)
str_sql = "Select name FROM sqlite_master WHERE Type='table' AND name='" & Nombre_Tabla & "'"
c = Main.sql_conexion.ExecQuery(str_sql)
n_cantidad = c.RowCount
c.Close
Main.sql_conexion.Close
If n_cantidad = 0 Then
Return False
Else
Return True
End If
End Sub


'verifica la existencia de un campo en una tabla
Sub Existe_Campo(Nombre_Tabla As String, Nombre_Campo As String) As String
Private str_sql As String
Dim c As Cursor
Private n_cadena() As String
Private n_campos() As String
Private x As Int
Private Resultado As String
Main.sql_conexion.Initialize(Main.DBFilePath, Main.DBFileName, True)
str_sql = "Select sql FROM sqlite_master WHERE Type='table' AND name='" & Nombre_Tabla & "'"
c = Main.sql_conexion.ExecQuery(str_sql)
If c.RowCount = 0 Then
Return "No Tabla"
Else
c.Position = 0
Resultado = c.GetString("sql")
Resultado = reemplazar(Resultado,"(","|")
Resultado = reemplazar(Resultado,")"," ")
n_cadena = Regex.Split("\|",Resultado)
'obtener los campos
n_campos = Regex.Split(",",n_cadena(1))
For x = 0 To n_campos.Length - 1
If n_campos(x).Contains(Nombre_Campo) Then
c.Close
Main.sql_conexion.Close
Return "SI"
End If
Next
End If
c.Close
Main.sql_conexion.Close
Return "NO"
End Sub



'llamada a la funcion

If Existe_Campo("ConfigMail","Server") = "No Tabla" Then
sql_conexion.Initialize(DBFilePath, DBFileName, True)
sql_conexion.ExecNonQuery("CREATE TABLE ConfigMail (Server TEXT, Puerto TEXT,Cuenta TEXT,Clave TEXT,Protocolo TEXT, SSL TEXT)")
sql_conexion.close
End If

Muchas gracias Samperizal.
Tengo que ver esto despacio, estoy un poco oxidado con las bases de datos
Hay algun apunte o libro, que me puedas recomendar, donde pueda refrecar todo esto.
Gracias por la ayuda

ok. muchas gracias a todos