La verdad es que no entiendo lo del secuenciador que no agrega ningun ID.
Si tienes la tabla principal con los datos de los Asesores, que tienen un ID que AUTONUMERICO, cada vez que des de alta un Asesor se creara un ID nuevo que será secuencial incrementado en 1 al último registro.
Debes (o deberías) tener "otra tabla" en la base de datos que registre que Asesor (su ID, el que hablamos antes), la fecha y la hora de Asistencia. En esta tabla tantos registros como asistencias por parte del Asesor. Esta tabla tendrá su ID Autonumerico para cada registro que será independiente de todo.

                           Asistencias
Asesores             -------------
-------------           ID (de Asistencias)
ID --------------------> IDase (ID del asesor)
nombre                     fecha (Campo de fecha con formato: AAAA-MM-DD hh:mm:ss)
apellidos                                       Mira en la Ayuda de Sqlite - strFtime -
...                              ... mas campos
...mas campos            ...

y en base a esas dos tablas tendrás 1 registro por asesor en Asesores y múltiples registros por Asesor en Asistencias de forma que puedas consultar los registro relacionados en la Tabla Asistencias por el Id del Asesor. Revisa JOIN en las sentencias SQL.  (No pongo la consulta que hay que hacer para que busques la información)

Esto es básico y creo que muy sencillo de gestionar, pero ya sabes las dudas están para exponerlas y aunque te digamos algo que no te guste, tu pregunta que quizás obtengas la respuesta. Si no preguntas, no hay respuesta.

Si esta perfecto asi compañero antonio claro alli esta la logica porque eso que estoy haciendo es un gran problema de normalización muchas gracias.

===================
Mi variable se llama logica

Vaya esto si que hay que experimentar por ensayo y error bastante gracias a todos.

===================
Mi variable se llama logica

Miren compañeros aquí esta el código para una mini consulta dentro de un formulario usando solo textbox ejemplo:

colocar en una textbox un codigo y darle al button_click ponerla a buscar y que aparezcan los registros de personas en textbox y que luego no haya ningún registro en la base de datos diga no existe registro:

PUBLIC SUB Button3_Click()
DIM I AS Integer
DIM rs AS Result
DIM found AS Boolean

found = FALSE

rs = coneccion.asiscon.Exec("select *from asesores")
I = 0

IF TextBox8.Text = "" THEN
    Message.Info("DEBE LLENAR EL CAMPO REQUERIDO")
ELSE
 rs.MoveFirst
 WHILE I < rs.Count
'   rs = coneccion.asiscon.Exec("SELECT * FROM asesores WHERE codigo = &1", textbox8.text)
  IF rs.Available THEN
      IF rs!codigo LIKE "*" & TextBox8.Text & "*" THEN
        found = TRUE
        EXIT  
      ELSE
        rs.MoveNext
      ENDIF  
   ELSE
    EXIT  
   ENDIF
  
    WEND
    
ENDIF  
'   IF asisresul.Available THEN
IF found THEN
    TextBox6.Text = rs["codigo"]
TextBox1.text = rs["cedula"]
TextBox2.text = rs["nombres"]
TextBox3.text = rs["apellidos"]
TextBox4.text = rs["direccion"]
TextBox5.text = rs["telefono"]
ComboBox1.text = rs["sexo"]
ComboBox2.Text = rs["programa"]
ValueBox2.Value = rs["fecha_ingreso"]
Button2.SetFocus
 ELSE
  Message.Error("Registro no encontrado", "OK")
ENDIF
 
END

PUBLIC SUB TextBox8_Change()


CInt(TextBox8.Text) 'Convierte el numero en entero
  
CATCH
TextBox8.Text = Mid$(TextBox8.Text, 1, -1) 'Si no es un numero borra el caracter--esto es para cuando solo acepte números como el codigo a buscar y no letras!

STOP EVENT
  

END


PUBLIC SUB TextBox8_GotFocus()----Esto es para cuando intentes dar click en esa textbox para colocar el código borre lo que este en ese momento registros traídos al iniciar el formulario.

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""  

END


Bueno eso es lo que tengo por ahora muchas gracias compañeros anthonio y shordi y demás Programadores.

===================
Mi variable se llama logica

Hola buenas  compañeros programadores como estan espero que bien y gracias por sus ayudas quiero comentarles que tengo un problema con la consulta por textbox anteriormente expuesta, esta al parecer funciona bien y todo pero noto que esta no se mueve en los indices en la tabla al modificar o eliminar por ejemplo al hacer la consulta parecen los datos de la persona y todo pero cuando la modifico o elimino solo lo hace en el indice 1 de la tabla correspondiente las unicas sentencias que funcionan son la MOVEFIRST,MOVENEXT Y MOVELAST por ejemplo.

Yo solo quiero hacer una consulta por codigo o cedula y que esta persona aparezca pero en las textbox y que cuando quiera eliminarla o modificarla solo a esa persona lo haga, lo cual ,me sucede es que consulto a la persona de codigo 05 que esta campo 3 de la tabla cuando la intento modificar me reemplaza todo al campo 1 osea es como sila sentencia de consulta no se moviera en la tabla y si le digo movefirst o movenext ymovelast esta si lo hace y no sucede el error.

Entonces si por favor disculpen hay algun ejemplo de una consulta por textbox o que error poseo en la codificaciòn pienso que la sentencia movefirst es la unica que se mueve en las tablas aqui les muestro el ejemplo grafico de mi consulta:

Este formumario que ven sirve para hacer consultas, modificar y borrar pero en la parte derecha observaran un pequeño recuadro de la opcion BUSCAR y debaj los botones SIGUIENTE ANTERIOR Y ULTIMO "estos son los de movefirst, movenext y movelast", pero comentando al boton BUSCAR es el que muestra la persona consultado por CODIGO pero que cuando la modifico o la borro todo lo hace es EN EL CAMPO 1 DE LA TABLA y no se mueve este es el codigo del btono BUSCAR:

PUBLIC SUB Button9_Click()

DIM I AS Integer
DIM rs AS Result
DIM found AS Boolean

found = FALSE

rs = asiscon.Exec("select *from asesores")
I = 0

IF TextBox8.Text = "" THEN
    Message.Info("DEBE LLENAR EL CAMPO REQUERIDO")
ELSE
 rs.MoveFirst
 WHILE I < rs.Count
  IF rs.Available THEN
IF TextBox8.Text = rsl!codigo
        found = TRUE
        EXIT  
      ELSE
        rs.MoveNext
      ENDIF  
   ELSE
    EXIT  
   ENDIF
  
    WEND
    
ENDIF  
'   IF asisresul.Available THEN
IF found THEN
ValueBox1.Value = rs["codigo"]
TextBox1.text = rs["cedula"]
TextBox2.text = rs["nombres"]
TextBox3.text = rs["apellidos"]
TextBox4.text = rs["direccion"]
ComboBox2.Text = rs["codigo_cel"]
TextBox5.text = rs["telefono"]
ComboBox1.text = rs["sexo"]
ComboBox2.Text = rs["programa"]
ValueBox2.Value = rs["fecha_ingreso"]
Button9.SetFocus
 ELSE
  Message.Error("CODIGO O REGISTRO NO ENCONTRADO")
ENDIF
END

Osea no entiendo porque no se mueve en la tabla si quiero consultar al codigo 3 de esa persona me aparece todo pero cuando la modifico o la borro lo hace es al registro del campo1 de la tabla que podra ser?  esperare alguna respuesta y gracias de antemano.

===================
Mi variable se llama logica

Creo que tu problema es de ámbito de las variables. Declaras el objeto result como local dentro del procedimiento Button9_Click, y luego buscas en él el asesor. Cuando finaliza la búsqueda el result posicionado es destruido, por lo que esa posición desaparece. No pones el código de los otros botones, pero está claro que actúan sobre un Result distinto de aquél sobre el que buscaste.

Solución: Declara rs como PRIVATE al principio del código del form, fuera de toda procedure o función y no declares ninguno más, trabajando siempre sobre el mismo.

Como efecto secundario tu formulario funcionará más rápido pues ese "select * from asesores" sólo será necesario ejecutarlo una vez en todo el form.


Suerte

===================
El código es poesía

Hayyyyyy siiiiii señor SHORDI era como ud decia, resulta que ya tenia mi variable declarada en PRIVATE asisresul ASISRESULT y no la usaba para botones y otras sentencias, puesto que cambie las variables del codigo fuente de la consulta con la misma asisresul y funciono todo perfecto me modifica y elimina perfecto a la persona consultada muchas gracias señor SHORDI voy a darles todo el codigo de mi formulario para que vean ejemplos de como trabaja y para algunos compañeros que estan haciendo sus sistemitas en gambas  en no es mucho y se que me falta demasiado pero guarda imprime elimina y borra tambiense instala en este caso solo hace esta funcion para este formulario despues les voy a mostrar como muestro en tabla y guardo reportes.



NO ESTA PERFECTO NI ORDENADO, PERO FUNCIONA Y TIENE LO QUE NECESITAN PARA VALIDAR CAJAS DE TEXTO QUE NO SEAN NUMERO SINO LETRAS  O LO CONTRARIO IMPLEMENTENLO

MUCHAS GRACIAS

===================
Mi variable se llama logica

Aqui esta el codigo para mostrar en una tableview datos con  sus botones CONSULTAR DE MANERA GENERAL TODO EL REGISTRO O MOSTRAR EN UN COMBOBOX por codigo,nombre,cedula,fecha.....y REFRESCAR que se usaria el tabla.clear pero me parece mejor un ME.CLOSE y debajo, un VERREGISTROS.SHOW porque cuando lo hice con tabla clear me guardaba el registro con en html con tablas de mas entonces es mejor con lo anterior expuesto y el boton HTML que es para guardar el registro e imprimirlo por supuesto en el navegador le dan la opcion   archivo y dice imprimir  . Actualmente poseo el CODIGO DE PDF Y IMPRIMIR ORIGINAL funciona pero no me ha salido bien con respecto a mis registros entonces los tengo como version en desarrollo como PDF.ENABLED=FALSE Y IMPRIMIR.ENABLED=FALSE tambien mientras le busco la solucion ya que cuando muestro los registros en pdf me los muestra todo pero encojido no puedo hacer que se muestre la hoja de manera horizontal para que el registro se muestre completo, y el de imprimir tambien pero de todas formas cuando los termine los publico

Y MUCHAS GRACIAS A TODOS LOS PROGRAMADORES QUE ME HAN AYUDADO




CODIGO FUENTE DE ESTE FORMULARIO PARA CONSULTAS Y GUARDAR UN REGISTRO VISUALIZADO DE LA TABLEVIEW:

PUBLIC SUB Form_Open()
IF coneccion.conectarbase() THEN RETURN
tabla.Clear()
tabla.Columns.Count = 9
tabla.Columns[0].Text = "codigo"
tabla.Columns[1].Text = "cedula"
tabla.Columns[2].Text = "nombres"
tabla.Columns[3].Text = "apellidos"
tabla.Columns[4].Text = "direccion"
tabla.Columns[5].Text = "codigo_cel"
tabla.Columns[6].Text = "telefono"
tabla.Columns[7].Text = "sexo"
tabla.Columns[8].Text = "fecha_ingreso"
Label1.Text = ComboBox1.Text
END
PUBLIC SUB Button3_Click()
DIM fila AS Integer
Button3.Enabled = FALSE
Button7.Enabled = FALSE
IF TextBox1.Text = "" OR ComboBox1.Text = ""
     Message.Info("DEBE LLENAR LOS CAMPOS REQUERIDOS ")
ELSE
IF Label1.Text = "CODIGO" THEN
   coneccion.asisresul = coneccion.asiscon.Exec("Select *from administrador where codigo='" & TextBox1.Text & "'")
   fila = 0
   DO WHILE coneccion.asisresul.Available
  tabla.Rows.Insert(fila)
  tabla[fila, 0].Text = coneccion.asisresul["codigo"]
  tabla[fila, 1].Text = coneccion.asisresul["cedula"]
  tabla[fila, 2].Text = coneccion.asisresul["nombres"]
  tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
  tabla[fila, 4].Text = coneccion.asisresul["direccion"]
  tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
  tabla[fila, 6].Text = coneccion.asisresul["telefono"]
  tabla[fila, 7].Text = coneccion.asisresul["sexo"]
  tabla[fila, 8].Text = coneccion.asisresul["fecha_ingreso"]
  coneccion.asisresul.MoveNext()
  fila = fila + 1
  LOOP
  tabla.Refresh
  ENDIF
  IF Label1.Text = "CEDULA" THEN
   coneccion.asisresul = coneccion.asiscon.Exec("Select *from administrador where cedula='" & TextBox1.Text & "'")
  
   fila = 0
    DO WHILE coneccion.asisresul.Available
    tabla.Rows.Insert(fila)
  tabla[fila, 0].Text = coneccion.asisresul["codigo"]
  tabla[fila, 1].Text = coneccion.asisresul["cedula"]
  tabla[fila, 2].Text = coneccion.asisresul["nombres"]
  tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
  tabla[fila, 4].Text = coneccion.asisresul["direccion"]
  tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
  tabla[fila, 6].Text = coneccion.asisresul["telefono"]
  tabla[fila, 7].Text = coneccion.asisresul["sexo"]
  tabla[fila, 8].Text = coneccion.asisresul["fecha_ingreso"]
  coneccion.asisresul.MoveNext()
  fila = fila + 1
  LOOP
  tabla.Refresh
  ENDIF
   fila = fila + 1
  
   IF Label1.Text = "NOMBRES" THEN
    coneccion.asisresul = coneccion.asiscon.Exec("Select *from administrador where nombres='" & TextBox1.Text & "'")
  
   fila = 0
    DO WHILE coneccion.asisresul.Available
    tabla.Rows.Insert(fila)
  tabla[fila, 0].Text = coneccion.asisresul["codigo"]
  tabla[fila, 1].Text = coneccion.asisresul["cedula"]
  tabla[fila, 2].Text = coneccion.asisresul["nombres"]
  tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
  tabla[fila, 4].Text = coneccion.asisresul["direccion"]
  tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
  tabla[fila, 6].Text = coneccion.asisresul["telefono"]
  tabla[fila, 7].Text = coneccion.asisresul["sexo"]
  tabla[fila, 8].Text = coneccion.asisresul["fecha_ingreso"]
  coneccion.asisresul.MoveNext()
   fila = fila + 1
  
  LOOP
 
  ENDIF
IF Label1.Text = "SEXO" THEN
   coneccion.asisresul = coneccion.asiscon.Exec("Select *from administrador where sexo='" & TextBox1.Text & "'")
  
   fila = 0
    DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
  tabla[fila, 0].Text = coneccion.asisresul["codigo"]
  tabla[fila, 1].Text = coneccion.asisresul["cedula"]
  tabla[fila, 2].Text = coneccion.asisresul["nombres"]
  tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
  tabla[fila, 4].Text = coneccion.asisresul["direccion"]
  tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
  tabla[fila, 6].Text = coneccion.asisresul["telefono"]
  tabla[fila, 7].Text = coneccion.asisresul["sexo"]
  tabla[fila, 8].Text = coneccion.asisresul["fecha_ingreso"]
  coneccion.asisresul.MoveNext()
   fila = fila + 1
  
LOOP
ENDIF
IF Label1.Text = "FECHA DE INGRESO" THEN
   coneccion.asisresul = coneccion.asiscon.Exec("Select *from administrador where fecha='" & TextBox1.Text & "'")
  
   fila = 0
    DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
  tabla[fila, 0].Text = coneccion.asisresul["codigo"]
  tabla[fila, 1].Text = coneccion.asisresul["cedula"]
  tabla[fila, 2].Text = coneccion.asisresul["nombres"]
  tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
  tabla[fila, 4].Text = coneccion.asisresul["direccion"]
  tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
  tabla[fila, 6].Text = coneccion.asisresul["telefono"]
  tabla[fila, 7].Text = coneccion.asisresul["sexo"]
  tabla[fila, 8].Text = coneccion.asisresul["fecha_ingreso"]
  coneccion.asisresul.MoveNext()
   fila = fila + 1
  
LOOP
ENDIF
ENDIF
END
PUBLIC SUB ComboBox1_Click()
Label1.Text = ComboBox1.Text
END
PUBLIC SUB Button2_Click()

Message.Info("UD VA ACCEDER A CONSULTAR ASESORES BIENVENIDO Ó BIENVENIDA")
consultaAD3.Show
END
PUBLIC SUB Button4_Click()

tabla.Clear()
ME.Close
consultaAD1.Show
Button3.Enabled = TRUE
Button7.Enabled = TRUE
END
PUBLIC SUB Button5_Click()
ME.Close
END
PUBLIC SUB Button1_Click()
Message.Info("UD VA ACCEDER A CONSULTAR COORDINADORES BIENVENIDO Ó BIENVENIDA")
consultaAD2.Show

  


END

PUBLIC SUB Button7_Click()
DIM fila AS Integer
coneccion.asisresul = coneccion.asiscon.Exec("Select *from administrador ")
fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["fecha_ingreso"]
coneccion.asisresul.MoveNext()
fila = fila + 1
LOOP
tabla.Refresh
Button7.Enabled = FALSE
Button3.Enabled = FALSE

END
  



PUBLIC SUB Button6_Click()

  DIM ruta AS String
  DIM archivo AS File
  DIM i, j AS Integer
  ruta = User.Home &/ "Reporte de Administradores.html"
   Message.Warning("RECUERDE GUARDAR CADA REPORTE APARTE, DEBIDO A QUE SOBRECRIBE EL ANTERIOR!")
  IF Message.Question(" ¿DESEA GUARDAR UN REPORTE DE ADMINISTRADORES?", "SI", "NO") = 1 THEN
  OPEN ruta FOR WRITE CREATE AS #archivo
  PRINT #archivo, "<html>"
  PRINT #archivo, "<head><title>Reporte en HTML de Administradores</title></head>"
  PRINT #archivo, "<body topmargin='0' leftmargin='0'"
  PRINT #archivo, ">"
  PRINT #archivo, "<table border='1' width='500' cellpadding='4' cellspacing='2'>"
  PRINT #archivo, "  <tr>"
  PRINT #archivo, "    <td colspan='20' align='center'>"
  PRINT #archivo, "      <h3>Listado de Administradores</h3>"  
  PRINT #archivo, "  <tr>"
  PRINT #archivo, "    <td width='15%' align='center'>Codigo</td>"
  PRINT #archivo, "    <td align='center'>Cedula</td>"
  PRINT #archivo, "    <td align='center'>Nombres</td>"
  PRINT #archivo, "    <td align='center'>Apellidos</td>"
  PRINT #archivo, "    <td align='center'>Direccion</td>"
  PRINT #archivo, "    <td align='center'>Codigo telefono</td>"
  PRINT #archivo, "    <td align='center'>Telefono</td>"
  PRINT #archivo, "    <td align='center'>Sexo</td>"
  PRINT #archivo, "    <td align='center'>Fecha de Ingreso</td>"
  PRINT #archivo, "  </tr>"
  FOR i = 0 TO tabla.rows.Count - 1
      PRINT #archivo, "  <tr>"
       FOR j = 0 TO tabla.Columns.Count - 1
       PRINT #archivo, "    <td>" & tabla[i, j].Text & "</td>"
      NEXT
     PRINT #archivo, "  </tr>"
    NEXT
  PRINT #archivo, "</table>"
  PRINT #archivo, "</body>"
  PRINT #archivo, "</html>"
  CLOSE #archivo
  Message.Info("SE HA CREADO UN REPORTE EN MODO HTML CON ÉXITO (GUARDADO EN EL DIRECTORIO PRINCIPAL)")
ENDIF
END
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ESTO LES PUEDEN SERVIR A MUCHOS ESPERO LO IMPLEMENTEN SALUDOS Y ADELANTE CON gambas LINUX  

===================
Mi variable se llama logica

Hola buenas como estan compañeros programadores espero que bien y siempre estoy en aporte de soluciones de codigos y formularios sacando de dudas muchas gracias.

Quiero comentarles que tengo una inquietud con respecto a las conultas yo estoy haciendo un control de asistencia para asesores y gracias a sus ayudas funciona muy bien, pero tengo un detalle por ejemplo cuando registro una asistencia de asesor y la consulto para modificarle la hora de salida, la tabla me muestra es el primer dia que vino no el dia exacto de hoy

por ejemplo:

Quisiera saber como haria para que cuando lo consulte solo me muestre el dia de hoy exacto con sus datos para que modifique su hora de salida

yo tengo esta sentencia de consula sql:

asisresul = asiscon.Exec("select * from asistencia_asesores where cedula=" & textbox8.txt & "")--Esta es la que  hago una consulta por cedula pero tambien quiero hacerla junto con la de fecha.

Lo que quiero saber en si es como puedo hacer una consulta sql donde yo pueda tanto validar el campo cedula con el campo fecha_asistencia para que cuando la consulte muestre al asesor y dia exacto para poder llevar la asistencia gracias.

Se los agradeceria de antemano y gracias por sus ayudas hermanos

===================
Mi variable se llama logica

Osea, ¿lo que quieres es obtener la consulta que cumpla dos condiciones (que la célusa sea tal que "X" y que la fecha sea tal "Y") ?

Mirate este enlace sobre operadores lógicos en MySQL Enlace a Operadores Lógicos en MySQL

===================
Web: SoloGambas
Visita el Curso de Gambas3
Invitacion a Beruby de Jsbsan