Hola buenos dias compañeros programadores espero que bien y solucionando problemas asi como muchos de nosotros ayudando tambien.

El tema que les quiero plantear es sobre las consultas en Sqlite, bueno quiero comentarles que quiero hacer una consulta pero por Texboxt, Por ejemplo que al colocar el Codigo (1) En una Textbox se visualize en las demas Textbox los datos completos de un usuario, lo he hecho por tableview, pero por este medio no he podido muchas espero prontas respuestas gracias.

===================
CONTROL SYSTEMS-((CELIS))

Agenda de direcciones
estudia este código, te puede ser util.

Hola compañero gracias por tu ayuda mira lo que pasa es lo siguiente tengo una consulta con el siguiente codigo en modo texboxt:

PRIVATE asiscon AS Connection
PRIVATE asisresul AS Result
PUBLIC SUB Form_Open()
IF coneccion.conectarbase() THEN RETURN
ValueBox4.Value = Format(Now(), "dd/mm/yy")
ValueBox4.Value = Now()
ValueBox1.Value = Format(Now(), "hh:mm:ss")
ValueBox1.Value = Now()
ValueBox3.Value = Format(Now(), "hh:mm:ss")
ValueBox3.Value = Now()
Message.Info("BIENVENIDO Ó BIENVENIDA AL REGISTRO DE ASESORES")
Message.Info("POR FAVOR RECUERDE ACTUALIZAR CONSTATEMENTE SEA NECESARIO EL FORMULARIO DE ASESORES PARA ACTUALIZAR FECHAS Y HORAS")
Message.Info("POR FAVOR AGREGUE UN NÚMERO SECUENCIAL COMO IDENTIFICADOR PARA PODER GUARDAR LA ASISTENCIA CON ÉXITO")
Message.Info("TODOS LOS CAMPOS ESTAN DESHABILITADOS")
TextBox1.Enabled = FALSE
TextBox2.Enabled = FALSE
TextBox3.Enabled = FALSE
TextBox4.Enabled = FALSE
TextBox5.Enabled = FALSE
ComboBox1.Enabled = FALSE
ComboBox2.Enabled = FALSE
ValueBox2.Enabled = FALSE
TextBox6.Enabled = FALSE
asiscon = NEW Connection
asiscon.Type = "sqlite"
asiscon.Host = "/home/jousseph/DESARROLLO-JOU/GAMBAS/control_asistencia"
asiscon.Name = "asistencia_asesores"
TRY asiscon.Open()
IF ERROR THEN
Message.Error("ERROR AL CONECTAR BASE DE DATOS DEBE SER EL CODIGO MAL COMPILADO.")
asiscon = NULL
ELSE
asisresul = asiscon.Exec("Select * from asesores")
IF asisresul.Available THEN MostrarCampos

END IF
END

PUBLIC SUB MostrarCampos()
TextBox6.Text = asisresul["codigo"]
TextBox1.text = asisresul["cedula"]
TextBox2.text = asisresul["nombres"]
TextBox3.text = asisresul["apellidos"]
TextBox4.text = asisresul["direccion"]
TextBox5.text = asisresul["telefono"]
ComboBox1.text = asisresul["sexo"]
ComboBox2.Text = asisresul["programa"]
ValueBox2.Value = asisresul["fecha_ingreso"]

Me muestra todo lo que tengo guardado en mi base de datos a las texboxt, pero dentro del mismo formulario quiero crear una miniconsulta osea que por ejemplo introduzca un codigo especifico me busque a ese usuario y me muestre solo a el en esas texboxt tambien no a todos como al principio nose si me explique bien. pienso que en el button_click de consulta es asi:

PUBLIC SUB Button3_Click()
asisresul = coneccion.asiscon.Exec("SELECT * FROM asesores")
IF asisresul.Available THEN MostrarCampos()
IF TextBox8.Text = ""
Message.Info("DEBE LLENAR EL CAMPO REQUERIDO ")
   ELSE
       IF TextBox8.Text = asisresul!codigo THEN
MostrarCampos()
TextBox6.Text = asisresul["codigo"]
TextBox1.text = asisresul["cedula"]
TextBox2.text = asisresul["nombres"]
TextBox3.text = asisresul["apellidos"]
TextBox4.text = asisresul["direccion"]
TextBox5.text = asisresul["telefono"]
ComboBox1.text = asisresul["sexo"]
ComboBox2.Text = asisresul["programa"]
ValueBox2.Value = asisresul["fecha_ingreso"]
ENDIF
ENDIF

END

Pero no funciona y nisiquiera me lanza un error es como si el boton no hiciera ninguna operacion? porque sera?

===================
CONTROL SYSTEMS-((CELIS))

Veo tu código muy confuso y con errores de concepto graves. Permíteme una puñado de consejos, que no dan la solución exacta a lo que quieres, pero que si los sigues te ayudarán a encontrar dicha solución de forma sencilla.
Por ejemplo:



Otra cosa: ¿De verdad le sacas al usuario cuatro mensajes de texto de los de pulsar enter cada vez que abre el formulario?¿Nadie te ha intentado asesinar aún?      (es broma)
Deberías plantearte primero la lógica del programa, antes de ponerte a codificar.
Otra cosa, deberías indentar tu código, es muchísimo más sencillo de seguir y leer que tal como lo has puesto aquí.

Queda mucho más claro.
Por otra parte deberías cambiar el nombre de los controles para que signifiquen algo. Las líneas:

No tienen sentido por sí mismas. En cambio si textBox8 es llamado algo así como TBcodigo_asesor, las líneas:

Dicen claramente qué estás comparando....
Hay otros errores de concepto que son más graves por cuanto en ellos te juegas la integridad de tu base de datos: Dejas al usuario la responsabilidad de teclear un número secuencial para identificar el registro... cosa que debería hacer la propia base de datos (campo INTEGER PRIMARY KEY AUTOINCREMENT, revisa las ayudas de SQLite).
Dejas al usuario el horrible trabajazo de actualizar constantemente el formulario para que se actualizen las fechas y horas... (¿Cuales?), cuando eso lo puede hacer tu programa (control Timer) de forma automática... etc.
Creo que todos tus fallos vienen de las prisas por ponerse uno a dibujar controles en la pantalla y a teclear código sin un planteamiento serio de lo que quieres que el programa haga. Es mejor perder un poco de tiempo al principio que toooodo el tiempo al final.

Saludos.

Enhorabuena por la respuesta Shordi.
Larga pero clara, concisa en la medida de lo posible y si empieza por ahí, seguro que el problema que tenía o ya no es un problema o está mucho más claro.

Joussep
Si lo que necesitas es encontrar un registro especifico, hay un metodo find propio de la conexion que te busca el registro que necesitas. Esto mismo lo puedes hacer con una consulta SQL cuyo WHERE sea la condición que pones en el método.
Si el valor está en textbox8 ..... la consulta en el _click del button de busqueda sería algo asi:

asisresul = coneccion.asiscon.Exec("SELECT * FROM asesores WHERE codigo = &1", textbox8.text)

Yo incluso lo simplificaría, ya que trabajas con SQLITE y solo tendrás una conexión:

asisresul = db.Current.Exec("SELECT * FROM asesores WHERE codigo = &1", textbox8.text)

y con el método find ...

asisresul = db.Current.Find(asesores, "codigo = &1", textbox8.text)

Lo he sacado de mi propia programación pero no lo he probado, por tanto si no funciona la sustitución de textbox.text, quizás tengas que convertirlo a un valor integer (con Val o CInt).

Si la base de datos estuviese normalizada y empleases INTEGER PRIMARY KEY AUTOINCREMENT, sería mucho más fácil que hicieras algo como:

asisresul.MoveTo(CInt(textbox8.text))

Un saludo amigo.

Huy excelente hermanos muchas gracias si la verdad me ha tocado duro y rápido por lo que no he tenido tiempo de analizar las cosas, puesto que hice un sistema para una universidad es tiempo de presentar una tesis y como aquí en Venezuela son pocos los que usan este lenguaje no hay nadie por desgracia que me ayude, pero cuento con ustedes y sin embargo hay cosas que mas allá de gambas nose gracias voy a intentar esta disciplina.

===================
CONTROL SYSTEMS-((CELIS))

Hola buenas tardes muchas gracias por esa disciplina compañeros shordi y antonio.

Compañero antonio tu sabes la parte que me dijistes de mi codigo que me enseñastes me funciono quedo asi:

PUBLIC SUB Button3_Click()
IF TextBox8.Text = ""
 Message.Info("DEBE LLENAR EL CAMPO REQUERIDO")
 ELSE
asisresul = coneccion.asiscon.Exec("SELECT * FROM asesores WHERE codigo = &1", textbox8.text)
 
TextBox6.Text = asisresul["codigo"]
TextBox1.text = asisresul["cedula"]
TextBox2.text = asisresul["nombres"]
TextBox3.text = asisresul["apellidos"]
TextBox4.text = asisresul["direccion"]
TextBox5.text = asisresul["telefono"]
ComboBox1.text = asisresul["sexo"]
ComboBox2.Text = asisresul["programa"]
ValueBox2.Value = asisresul["fecha_ingreso"]
ENDIF
END

Y funcionó pero tengo otra duda resulta que cuando introduzco un código que no existe en la base de datos me da un error como not null que podría yo hacer para que cuando no exista código diga no existe ese código.


Ah compañeros disculpen por molestar tanto fíjese que es verdad lo que ustedes dicen acerca de la hora y la fecha eso es una estupidez colocar un format now como haria yo para que la fecha y la hora se sincronizaran nose como hacerlo si me explicaran un poco muchas gracias que pena.

Compañero antonio fijate que ese secuenciador lo puse porque sucede esto y se que esta mal: Yo quiero tomar la asistencia de asesores sea hora de entrada y hora de salida, entonces yo quisiera que el asesor se repitiera tantas veces  con su  codigo para saber valga la redundancia  tantas veces haya asistido, lo que sucede es que para que eso se repita tengo que colocar un campo llamado ID secuenciador esta en llave primaria para que me permita repetir el codigo esas veces que quiero, pero igual tengo que estar colocando números diferentes y por ejemplo le digo a la celda de ID lo coloco Autonumerico y no coloca nada ni suma ni nada osea no agrega ningun valor en Sqlite.

Disculpen tanto tema compañeros de verdad pues me falta aprender mas y disciplina.

===================
CONTROL SYSTEMS-((CELIS))

Citar:

Y funcionó pero tengo otra duda resulta que cuando introduzco un código que no existe en la base de datos me da un error como not null que podría yo hacer para que cuando no exista código diga no existe ese código.

Es fácil, símplemente comprueba si asisresul está disponible (available) después de hacer la consulta:



Respecto a los campos AUTONUMERICOS que son PRIMARY KEY en la SQLITE, no tienes que hacer nada. Repito: No tienes que hacer nada, cada vez que se cree un registro, se genera automáticamente la clave única y secuencial.
Si lo que quieres es dejar constancia de las entradas y salidas, tendrás que obligar al asesor a que se valide al entrar y al salir. La manera más sencilla es utilizar un lector de código de barras y facilitar a cada asesor una tarjeta con su código... Hace unos años desarrollé una aplicación así para la administración pública...
...y ahora permíteme un consejo: Has mordido más de lo que en este momento puedes tragar. Si no paralizas todo ahora y te dedicas un tiempo a estudiar, investigar y aprender (bases de datos, controles de gambas, maneras de hacer las cosas, etc. etc.), mucho me temo que tu proyecto está destinado al fracaso. Uno debe ser capaz de conocer su límites y aspirar siempre a un poquito , sólo un poquito, por encima de ellos. Si aspiras a menos nunca creces. Si aspiras a más, fracasas.
Sólo es un consejo de alguien que lleva más de 30 años como programador.

Suerte

Hola muy buenas tardes compañeros saludos gracias humildemente por sus ayudas.

Hola compañero shordi un saludo quiero comentarle que el codigo asignado al asesor funciona, veras no creas que yo estoy hasta ahora haciendo todo este proceso a loco si supieras que a pesar de la poca enseñanza que he llevado en mi uni mas bien considero que he avanzado mucho y no me arrepiento, yo practicamente se los conceptos de la disciplina de la ingenieria y toda la cosa no hay mejor programador que el que exprimenta y no estas pendiente de teorias, esto a mi ha dado buenos resultados conosco la logica de las cosas.

Yo entiendo perfectamente tu consejo se que si te apresuras llegas temprano y terminas mal, como también si llegas tarde pero bien.

Se que debo estudiar mas pero el problema no sucede con mis formularios completos solo es con el de tomar solo y solo asistencia mi sistema esta listo para instalarse imprime, borra, agrega, elimina guarda en pdf y html ya le hice pruebas en otras distros esta perfectamente diseñado, pero por una simple duda mia y simplemente una respuesta no creo que tus mejores años se vayan a destruir por un favor, ustedes que saben la mata de la programación se merecen respeto y rango eso siempre lo he admirado, pero de que pare todo? no! yo nunca he hecho cursos en mi vida y he aprendido por ensayo y error y asi es como solo el ultimo formulario donde tengo mi duda estoy terminando.

Un saludo.

===================
CONTROL SYSTEMS-((CELIS))

Gracias por recordarme, la falta de uso, se me había olvidado la notación húngara. La estudie alguna vez y la deje en el olvido por falta de practica