https://foro.gambas-es.org/viewtopic.php?f=10&t=6380&p=38237#p38237
-----------------------------------
tincho
Miercoles, 17 May 2017, 13:35

Re: TableEdit: Ejemplo De Uso
-----------------------------------
+1 Shordi.

Este tipo de videos en general son muy útiles para comprender como se gestionan las bases de datos y en particular este vendra muy bien a los usuarios noveles que quieran usar bases de datos en sus programas.
He aprendido que el botón de compilar sirve para que aparezca el icono de la clase. :mryellow: 

Me parece útil dejar en el hilo es que es siempre conveniente usar como nombres de campos todo en minúsculas que sean caracteres ASCII y sin espacios ni puntos. para mantener una compatibilidad entre distintos motores de bases de datos y para no confundirse al escribir el código, ya que es una fuente de errores, como te paso a ti varias veces en el video  ;-) .
Si luego se quiere tener el nombre del campo en el grid con la primera letra en mayúscula, se puede hacer mediante 
[code linenumbers=false syntax=gambas]
'...
  For n = 0 To tbE1.Result.fields.Count - 1
    strTitle = String.UCaseFirst(tbE1.Result.Fields[n].name)
    tbE1.Columns[n].title = strTitle
  Next
'...
[/code]

Luego para no repetir, en este caso, las comunidades se puede hacer un IF en el bucle.
[code linenumbers=false syntax=gambas]
  Dim strText as String
 '.... 
  While r.Available
    strText=r!comunidad
    if ar.Find(strText) > -1 then ' Para evitar repeticiones en caso que la tabla no las tenga.
    ar.Add(strText)
    Endif
    r.MoveNext
  Wend 
'...
[/code]

Saludos.


