el cual utiliza el gestor de base de datos de gambas2 ,bueno hize todos los procedimientos y lo convierto en un archivo ejecutable pero cuando le doy a un boton , ya sea guardar, borrar , ect ,me sale un error casi son todos parecidos "this application has an unexpected error and must abort" -1 cannont crate : abort due to constraint violation FMain.?..0
no tengo idea que sea el problema , ya busque el codigo fuente y nada
aqui esta el codigo fuente:
PRIVATE Conexion AS Connection
PRIVATE Tablacontactos AS Result
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
Conexion = NEW Connection
Conexion.Type = "sqlite3"
Conexion.Host = "/home/luis/Escritorio/sdafsdfsd"
Conexion.Name = "agenda2"
TRY Conexion.Open()
IF ERROR THEN
Message.Error("Error al conectar a la base de datos.")
Conexion = NULL
ELSE
Tablacontactos = Conexion.Exec("Select * from contactos")
IF Tablacontactos.Available THEN MostrarCampos
END IF
END
PUBLIC SUB MostrarCampos()
nombre.text = Tablacontactos["nombre"]
apellido.text = Tablacontactos["apellido"]
cedula.text = Tablacontactos["cedula"]
END
PUBLIC SUB primero_Click()
Tablacontactos.Movefirst()
MostrarCampos
END
PUBLIC SUB anterior_Click()
Tablacontactos.MovePrevious()
IF NOT Tablacontactos.Available THEN Tablacontactos.Movefirst()
MostrarCampos
END
PUBLIC SUB siguiente_Click()
Tablacontactos.MoveNext()
IF NOT (Tablacontactos.Available) THEN Tablacontactos.MoveLast()
MostrarCampos
END
PUBLIC SUB ultimo_Click()
Tablacontactos.MoveLast()
MostrarCampos
END
PUBLIC SUB cancelar_Click()
guardar.Visible = FALSE
cancelar.Visible = FALSE
MostrarCampos
END
PUBLIC SUB guardar_Click()
DIM VarResult AS Result
VarResult = Conexion.Create("contactos")
VarResult["nombre"] = nombre.Text
VarResult["apellido"] = apellido.Text
VarResult["cedula"] = cedula.Text
VarResult.Update
Tablacontactos = Conexion.Exec("Select * from contactos")
guardar.Visible = FALSE
cancelar.Visible = FALSE
END
PUBLIC SUB nuevo_Click()
guardar.Visible = TRUE
cancelar.Visible = TRUE
nombre.text = ""
apellido.text = ""
cedula.text = ""
END
PUBLIC SUB modificar_Click()
DIM VarResult AS Result
VarResult = Conexion.Edit("contactos", "id=" & Tablacontactos["id"])
VarResult["nombre"] = nombre.text
VarResult["apellido"] = apellido.text
VarResult["cedula"] = cedula.text
VarResult.Update
Tablacontactos = Conexion.Exec("Select * from contactos")
END
PUBLIC SUB eliminar_Click()
DIM VarResult AS Result
IF Message.Question("¿Desea eliminar el registro?", "Si", "No") = 1 THEN
VarResult = Conexion.edit("contactos", "id=" & Tablacontactos["cedula"])
VarResult.Delete
Tablacontactos = Conexion.Exec("Select * from contactos")
END IF
END
PUBLIC SUB salir_Click()
ME.Close
END
PUBLIC SUB Form_Close()
IF Message.Question("¿Desea salir del programa?", "Si", "No") = 2 THEN
STOP EVENT
ELSE
Conexion.Close
END IF
END
les agrdesco que me digan que esta bien o mal en este codigo y que es lo que genera ese error
QUi esta el codigo que me presenta problema
formulario-0.0.4.tar.gz | ||
Descripción: | este es | Descargar |
Nombre del archivo: | formulario-0.0.4.tar.gz | |
Tamaño: | 10.44 KB | |
Descargado: | 43 veces |
formulario-0.0.4.tar.gz | ||
Descripción: | este es | Descargar |
Nombre del archivo: | formulario-0.0.4.tar.gz | |
Tamaño: | 10.44 KB | |
Descargado: | 43 veces |
formulario-0.0.4.tar.gz | ||
Descripción: | este es | Descargar |
Nombre del archivo: | formulario-0.0.4.tar.gz | |
Tamaño: | 10.44 KB | |
Descargado: | 43 veces |