alberto-moyano 19-05-2024, 19:49
Hola gente, tengo la siguiente situación y me supera en conocimientos.
En un formulario tengo 109 textbox en diferentes pestañas de un tabpanel, todos están vinculados, quiero decir son los diferentes datos de --en este caso-- referencias bibliográficas, no se usan todos sino que se llenan según el tipo de referencia.
El tema es que al crear una nueva entrada se hace necesario borrar la info contenida en los textbox (repito la info se corresponde con el tipo de entrada bibliográfica), los procesos de guardar, modificar y borrar (el registro) son muy rápidos, pero generar una nueva entrada es una tortura el tiempo que hay que esperar, entiendo que esto se debe a que la función recorre uno a uno los textbox para dejarlo vacio, ¿existe método de acelerar esto?
Coloco una parte del código que limpia los textbox, es de manual
Esta es la función que llamo para hacer una nueva entrada
Saludos y gracias de antemano
Alberto
Me respondo a mi mismo y para no cambiar el contenido de la pregunta original, hice otras pruebas y puedo confirmar que el problema está en la consulta a la base de datos, si bien el id tiene índice, sospecho que la base está mal diseñada.
Esto me pasa porque el programa se pensó con una idea y fue creciendo (y la base también) y ahora debo parar la pelota y hacer un rediseño completo.
Saludos
PD: como dice Shordi en uno de sus últimos videos «quiere a tu base de datos, mimala si es necesario».
En un formulario tengo 109 textbox en diferentes pestañas de un tabpanel, todos están vinculados, quiero decir son los diferentes datos de --en este caso-- referencias bibliográficas, no se usan todos sino que se llenan según el tipo de referencia.
El tema es que al crear una nueva entrada se hace necesario borrar la info contenida en los textbox (repito la info se corresponde con el tipo de entrada bibliográfica), los procesos de guardar, modificar y borrar (el registro) son muy rápidos, pero generar una nueva entrada es una tortura el tiempo que hay que esperar, entiendo que esto se debe a que la función recorre uno a uno los textbox para dejarlo vacio, ¿existe método de acelerar esto?
Coloco una parte del código que limpia los textbox, es de manual
Código:
Public Function LimpiarCamposBIB()
' Limpiamos los campos
txtID.Text = ""
txtETIQ.Text = ""
txtKEYWORDS.Text = ""
txtCROSSREF.Text = ""
txtCLAVEbib.Text = ""
txtTITLE.Text = ""
txtRELATED.Text = ""
' y sigue la listaEsta es la función que llamo para hacer una nueva entrada
Código:
Public Sub BtnNuevoBib_Click()
BtnNuevoBib.Visible = False
BtnEliminarBib.Visible = False
BtnRefrescarBib.Visible = False
btnGuardar.Visible = True
btnGuardarCambios.visible = False
btnAgregarCitationKey.Enabled = True
ToolPanel1.Index = 0
Dim Idn As Integer
LimpiarCamposBIB() ' Limpiamos los campos
txtTMPbiblio.Clear 'limpiamos en textarea temporal
txtTMPbiblio.SetFocus() 'hacemos foco en el textarea para pegar el texto de la referencia a construir
' Obtenemos el último ID y sumamos +1 para el nuevo registro
Contenido = Conn.Exec("SELECT MAX(id) FROM bibtex LIMIT 1")
' Si no hay ninguna entrada entonces arrancamos desde 0
If Contenido["MAX(id)"] = Null Then
Idn = 0
Else
Idn = CInt(Contenido["MAX(id)"]) + 1
Endif
txtID.Text = Idn
txtCLAVEbib.Text = "@" & Idn & "-" 'colocamos el prefijo de la clave bib
txtKEYWORDS.Text = "," & BaseName & "," 'colocamos el key con el nombre del archivo
Mostrar_ListaBIB()
EndSaludos y gracias de antemano
Alberto
Me respondo a mi mismo y para no cambiar el contenido de la pregunta original, hice otras pruebas y puedo confirmar que el problema está en la consulta a la base de datos, si bien el id tiene índice, sospecho que la base está mal diseñada.
Esto me pasa porque el programa se pensó con una idea y fue creciendo (y la base también) y ahora debo parar la pelota y hacer un rediseño completo.
Saludos
PD: como dice Shordi en uno de sus últimos videos «quiere a tu base de datos, mimala si es necesario».
Shordi 13-05-2024, 20:42
Acabo se subir la entrega número 7 y penúltima de la serie de "Creando una aplicación desde cero". En ella vemos el editor de menú y el proceso de ventas, con la impresión de los tickets y toda la parafernalia.
Como me he propuesto no editar nada, que tardo diez veces menos en repetir el video que en editarlo, pues esta es la tercera versión que grabo, que ha sido la buena... o no.
Pero es la que hay.
Espero que os sirva de algo... aunque sea para dormir la siesta mejor que con los vídeos de David Attenborough.
Saludos
Como me he propuesto no editar nada, que tardo diez veces menos en repetir el video que en editarlo, pues esta es la tercera versión que grabo, que ha sido la buena... o no.
Pero es la que hay.
Espero que os sirva de algo... aunque sea para dormir la siesta mejor que con los vídeos de David Attenborough.
Saludos
tincho 09-05-2024, 22:18
Hola.
Estoy haciendo un procedimiento que permite ver u ocultar un control de acuerdo al grupo al que pertenece, pero luego del operador punto no aparece listada la propiedad "Group".
Por favor ¿alguien podría decirme si esto es así desde siempre o hay un error?
Este es el procedimiento:
Estoy haciendo un procedimiento que permite ver u ocultar un control de acuerdo al grupo al que pertenece, pero luego del operador punto no aparece listada la propiedad "Group".
Por favor ¿alguien podría decirme si esto es así desde siempre o hay un error?
Este es el procedimiento:
Código:
Public Sub LoadScenario(sMode As String, c As Object[])
Dim o As ToolButton
Dim p As Panel
If c.Count > 0 Then
For Each p In c
If p.Children Then
For Each o In p.Children
If o.Group = sMode Then
o.Visible = True
Else
o.Visible = False
Endif
Next
Endif
Next
Endif
End
Bienvenido, Invitado
Últimos temas
Antiguo foro. ¿ Viable ?
Foro: Sobre gambas-es.orgÚltimo mensaje por: guizans, 24-01-2025, 20:30
Respuestas: 3 - Vistas: 53
Gambas 3.20
Foro: InstalaciónÚltimo mensaje por: Shell, 24-01-2025, 15:36
Respuestas: 14 - Vistas: 385
Ver los repositorios del ...
Foro: Mundo LinuxÚltimo mensaje por: guizans, 23-01-2025, 20:10
Respuestas: 4 - Vistas: 76
¿Cómo crear servidor FTP ...
Foro: GeneralÚltimo mensaje por: Shordi, 22-01-2025, 12:19
Respuestas: 2 - Vistas: 84
TextEditor. Formateado. E...
Foro: GeneralÚltimo mensaje por: Shell, 21-01-2025, 14:33
Respuestas: 2 - Vistas: 65