dariodr 28-12-2020, 07:03
Hola comunidad, tengo este pequeno programa de ejemplo con base de datos (SQLite3), el problema es a la hora de hacer el Update no se actualiza la DB, tengo que cerrar la aplicacion y volverla a abrir para que se actualicen. Me podiran decir que le falta. El codigo de actualzar esta en el boton Menu3_click.
Les dejo el codigo.
Saludos.
Les dejo el codigo.
Saludos.
Código:
' Gambas class file
Private conexion As Connection
Private TablaContactos As Result
Public Sub Form_Open()
conexion = New Connection
conexion.Type = "sqlite3"
conexion.Host = "/home/dario/gambas/PruebaBaseDatos/"
conexion.Name = "base"
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
Endif
End
Public Sub MostrarCampos()
txtID.Text = TablaContactos["id"]
txtNombre.Text = TablaContactos["Nombre"]
txtApellido.Text = TablaContactos["Apellido"]
txtTelefono.Text = TablaContactos["Telefono"]
txtMail.Text = TablaContactos["Mail"]
txtNacimiento.Text = TablaContactos["FechaNacimiento"]
End
Public Sub btnPrimero_Click()
TablaContactos.MoveFirst()
MostrarCampos
End
Public Sub btnAnterior_Click()
TablaContactos.MovePrevious()
If Not TablaContactos.Available Then TablaContactos.MoveFirst()
MostrarCampos
End
Public Sub btnSiguiente_Click()
TablaContactos.MoveNext()
If Not TablaContactos.Available Then TablaContactos.MoveLast()
MostrarCampos
End
Public Sub btnUltimo_Click()
TablaContactos.MoveLast()
MostrarCampos
End
Public Sub Menu2_Click()
btnGuardar.Visible = True
btnCancelar.Visible = True
btnPrimero.Visible = False
btnAnterior.Visible = False
btnSiguiente.Visible = False
btnUltimo.Visible = False
txtID.Text = ""
txtNombre.Text = ""
txtApellido.Text = ""
txtTelefono.Text = ""
txtMail.Text = ""
txtNacimiento.Text = ""
End
Public Sub btnGuardar_Click()
Dim VarResult As Result
VarResult = conexion.Create("Contactos")
conexion.Exec("insert into contactos values(&1,&2,&3,&4,&5,&6)",
txtID.Text, txtNombre.text, txtApellido.Text, txtTelefono.Text, txtMail.text, txtNacimiento.text)
'VarResult = Conexion.Create("Contactos")
'VarResult["id"] = txtID.Text
'VarResult["Nombre"] = txtNombre.Text
'VarResult["Apellido"] = txtapellido.Text
'VarResult["FechaNacimiento"] = txtNacimiento.Text
'VarResult["Telefono"] = txtTelefono.Text
'VarResult["Mail"] = txtMail.Text
VarResult.Update
TablaContactos = Conexion.Exec("Select * from Contactos")
btnGuardar.Visible = False
btnCancelar.Visible = False
btnPrimero.Visible = True
btnAnterior.Visible = True
btnSiguiente.Visible = True
btnUltimo.Visible = True
End
Public Sub btnCancelar_Click()
btnGuardar.Visible = False
btnCancelar.Visible = False
btnPrimero.Visible = True
btnAnterior.Visible = True
btnSiguiente.Visible = True
btnUltimo.Visible = True
MostrarCampos
End
Public Sub Menu3_Click()
Dim VarResult As Result
'VarResult = Conexion.Edit("Contactos", "id=" & TablaContactos["id"])
'VarResult["id"] = txtID.text
'VarResult["Nombre"] = txtNombre.text
'VarResult["Apellido"] = txtapellido.text
'VarResult["FechaNacimiento"] = txtNacimiento.text
'VarResult["Telefono"] = txtTelefono.text
'VarResult["Mail"] = txtMail.text
'VarResult.Update
'TablaContactos = Conexion.Exec("Select * from Contactos")
conexion.Exec("update contactos set nombre ='" & txtNombre.Text & "' where id ='" & txtID.Text & "';")
End
Public Sub Menu5_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
garvied 23-12-2020, 17:14
Buenas a todos.
Quisiera saber si existe alguna forma de poner una etiqueta o similar en la que el texto si no entra completo en el tamaño de la etiqueta se vaya desplazando de izquierda a derecha de forma automática.
Yo por ahora lo estoy controlando mediante un timer y cambiando el text del label para que parezca que se desplaza pero me gustaría poder usar un control que lo haga automáticamente.
Muchas gracias.
Quisiera saber si existe alguna forma de poner una etiqueta o similar en la que el texto si no entra completo en el tamaño de la etiqueta se vaya desplazando de izquierda a derecha de forma automática.
Yo por ahora lo estoy controlando mediante un timer y cambiando el text del label para que parezca que se desplaza pero me gustaría poder usar un control que lo haga automáticamente.
Muchas gracias.
AlfredoSC 23-12-2020, 00:17
Hola: Hace casi un año que estuve realizando algunos programas en Gambas3 sobre Ubuntu 18.xx para controlar algunos de mis diseños con Microcontroladores PIC a traves del Puerto Paralelo. (Esto le vengo haciendo en Windows, sin problemas desde hace años). En Ubuntu y Gambas se me ha complicado demasiado. Dejé de usar las instrucciones convencionales de hPort = Open "/dev/parport0"...bla bla bla y en su lugar busqué otro método. Encontré lo siguiente:
Buscando en la WEB, encontré que ioport es requerido para ganar control del o los puertos paralelo de la PC, por lo que lo instalé con:
sudo apt-get install ioport
Una vez instalado, se prueba con el siguiente comando:
sudo outb --hex 0x378 0x32
Por supuesto, hay que tener un cable conectado al puerto paralelo de la PC y un proto-board donde se hayan conectado 8 leds a los pines D0-D7, y GND, con lo que se podrá ver el resultado en los leds encendidos y los apagados.
En Gambas3 se debe hacer uso de la instrucción Exec de la siguiente manera:
Dim Proc as Procces
-
Proc = Exec ["outb", "--hex", "0x378", "0x32"] For Output
Si se requiere enviar una variable al Puerto Paralelo, hacer los siguiente:
Dim Proc as Procces
-
variable = &h32
Proc = Exec ["outb", "--hex", "0x378", variable] For Output
donde variable se escribe sin comillas.
Como se requieren permisos para ejecutar la instrucción outb, Gambas3 debe ejecutarse con permisos de root.
Espero que esto les sea de utilidad a quienes siguen usando el Puerto Paralelo.....Saludos.
Buscando en la WEB, encontré que ioport es requerido para ganar control del o los puertos paralelo de la PC, por lo que lo instalé con:
sudo apt-get install ioport
Una vez instalado, se prueba con el siguiente comando:
sudo outb --hex 0x378 0x32
Por supuesto, hay que tener un cable conectado al puerto paralelo de la PC y un proto-board donde se hayan conectado 8 leds a los pines D0-D7, y GND, con lo que se podrá ver el resultado en los leds encendidos y los apagados.
En Gambas3 se debe hacer uso de la instrucción Exec de la siguiente manera:
Dim Proc as Procces
-
Proc = Exec ["outb", "--hex", "0x378", "0x32"] For Output
Si se requiere enviar una variable al Puerto Paralelo, hacer los siguiente:
Dim Proc as Procces
-
variable = &h32
Proc = Exec ["outb", "--hex", "0x378", variable] For Output
donde variable se escribe sin comillas.
Como se requieren permisos para ejecutar la instrucción outb, Gambas3 debe ejecutarse con permisos de root.
Espero que esto les sea de utilidad a quienes siguen usando el Puerto Paralelo.....Saludos.
Bienvenido, Invitado
Últimos temas
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, Hace 1 hora
Respuestas: 9 - Vistas: 1,484
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, Ayer, 19:35
Respuestas: 0 - Vistas: 28
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,315
FACTURA POR REPORT GAMBAS...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 15:03
Respuestas: 0 - Vistas: 75
Ordenando las carpetas
Foro: Programación en otros lenguajesÚltimo mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 101