mostrar resultados de consulta en textbox

mostrar resultados de consulta en textbox - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Bases de Datos (https://gambas-es.org/forum-6.html)
+--- Tema: mostrar resultados de consulta en textbox (/thread-1830.html)

mostrar resultados de consulta en textbox - alberto-moyano - 28-12-2024

Hola gente, espero hayan tenido buenas fiestas.

Siguiendo la sugerencia de Tincho estoy haciendo una actualización en mi aplicación, pasando las consultas al evento data, este es el código

Código:
Public Sub VListaBIB_Data(Row As Integer, Column As Integer)

  If ContenidoBibTotal = Null Then Return

  If Row < 0 Or Row >= ContenidoBibTotal.Count Then Return

  ContenidoBibTotal.MoveTo(Row)

  Select Case Column

    Case 0

      VListaBIB.Data.Text = ContenidoBibTotal["id"]

    Case 1

      VListaBIB.Data.Text = ContenidoBibTotal["author"]

    Case 2

      VListaBIB.Data.Text = ContenidoBibTotal["editor"]

    Case 3

      VListaBIB.Data.Text = ContenidoBibTotal["title"]

    Case 4

      VListaBIB.Data.Text = ContenidoBibTotal["journalTitle"]

    Case 5

      VListaBIB.Data.Text = ContenidoBibTotal["yearY"]

    Case 6

      VListaBIB.Data.Text = ContenidoBibTotal["dateD"]

    Case 7

      VListaBIB.Data.Text = ContenidoBibTotal["publisher"]

  End Select

End

el evento funciona sin problemas, ahora bien cuando hago click en cualquiera de las filas pretendo que se muestren en los textbox correspondientes los datos de la fila seleccionada, este es el código que escribi

Código:
Public Sub VListaBIB_RowClick(Row As Integer)

  ' configurar como se muestran los botones

  btnGuardarCambios.Visible = True

  BtnEliminarBib.Visible = True

  btnAgregarCitationKey.Visible = True

  btnGuardar.Visible = False

  btnAgregarKeyBIB.Visible = True

  BtnRefrescarBib.Visible = True

  ' Asegura de que hay una fila seleccionada

  If Row < 0 Or Row >= VListaBIB.Count Then Return

  ' Rellenar los campos de texto con los valores de la fila seleccionada

  txtIDbibtex.Text = VListaBIB[Row, 0].Text

  ComboBox1.Text = VListaBIB[Row, 1].Text

  txtCLAVEbib.Text = VListaBIB[Row, 2].Text

  txtKEYWORDS.Text = VListaBIB[Row, 3].Text

  txtAUTHOR.Text = VListaBIB[Row, 4].Text

... siguen campos

End

Ahora no obtengo error alguno, quiero decir, puedo seleccionar cualquier fila del grid, la aplicación no se cuelga pero no se reflejan en los textbox los datos de la fila seleccionada.

Y este es el código que diseña el grid en el evento open del formulario

Código:
  ' Ejecutar las consultas SQL

  ContenidoBibTotal = meConn.Exec("SELECT * FROM bibtex ORDER BY id DESC")

  VListaBIB.Rows.Count = ContenidoBibTotal.Count

  ' Configurar diseño del GridView

  With VListaBIB

    .Header = True

    .Grid = True

    .Columns.Count = 8 ' Ajusta según las columnas necesarias

    .Columns[0].Title = "Id"

    .Columns[0].Width = 0

    .Columns[1].Title = "Autor"

    .Columns[1].Width = 250

    .Columns[2].Title = "Editor"

    .Columns[2].Width = 250

    .Columns[3].Title = "Título"

    .Columns[3].Width = 600

    .Columns[4].Title = "Revista"

    .Columns[4].Width = 250

    .Columns[5].Title = "Año"

    .Columns[5].Width = 70

    .Columns[6].Title = "Fecha"

    .Columns[6].Width = 120

    .Columns[7].Title = "Editorial"

    .Columns[7].Width = 250

  End With

Estoy medio perdido, porque lei en algun lugar a Shordi decir que el evento data no trabaja con filas, alguno tiene idea de por donde vienen los tiros.

Saludos

RE: mostrar resultados de consulta en textbox - guizans - 29-12-2024

Creo que el problema es el evento VListaBIB_RowClick. Supongo que estas usando un GridView por el evento _Data. Yo lo que hago sería algo así:

Código:
VListaBIB_Click()

Con esto se dispara el evento al hacer click en el GridView. A continuación muevo el puntero del resultado de la base datos a la fila que ha sido seleccionada con:

Código:
ContenidoBibTotal.Moveto(VListaBIB.Row)

y a partir de ahi rellenar todos los textbox.

Creo que es algo así.

Otra cosa. Yo el evento Data lo relleno de esta forma, me parece más limpia:

Código:
Public Sub VListaBIB_Data(Row As Integer, Column As Integer)

    Dim a as String[]=["id","author","editor","title","journalTitle","yearY","dateD","publisher"]

    ContenidoBibTotal.MoveTo(Row)

    VListaBIB.Data.Text = ContenidoBibTotal[a[Column]]

End

Cuando hago una consulta a la base de datos a continuación redimensiono el GridView con la cantidad de datos que he obtenido:

Código:
VListaBIB.Rows.Count = ContenidoBibTotal.Count

Y después refresco el GridView, y así me evito las dos líneas del principio que tienes en tu evento Data.

Un saludo.

RE: mostrar resultados de consulta en textbox - Harpo - 09-01-2025

Saludos,

Seguramente el problema, al cargar los TextBox, esté en el código que se ejecuta entre la carga del GridView, al abrir el formulario, y el evento RowClick. Revisando el código no veo porqué no debería mostrar los datos siempre que el Result ContenidoBibTotal tenga datos, en algún momento debe pasar a ser nulo.

Por otro lado, y en mi humilde opinión, yo en el evento RowClick haría la carga de los TextBox directamente desde el Result ContenidoBibTotal, no desde la propiedad Text de la celda, por cómo funciona el control GridView.

GridView tiene una clase interna para manejar los datos de las celdas (_GridView_Data) y una clase para las celdas (_GridView_Cell). Y los valores de cada celda los almacena en un objeto Collection ($cCells), donde la clave es Fila-Columna y el valor un _GridView_Data. Cuando se usa el evento Data cargamos la propiedad Data del GridView, que es un _GridView_Data que el control después desecha, no almacena nada en $cCells.

Por tanto, en el evento Data el control no almacena los datos para futuros usos, y cuando se le pide el valor de la propiedad Text de una celda vuelve a llamar a ese evento para recuperarlos.

Por ejemplo, en el código que propone Guizans, donde crea e inicializa un String[] con los nombres de los campos, está creando e inicializando esa variable para cada celda. Y cuando recupera información de una celda, nueva llamada al evento. Personalmente utilizaría una variable de ámbito superior accesible desde el evento para evitar crear e inicializar una variable tantas veces.

Un saludo, Harpo.

RE: mostrar resultados de consulta en textbox - alberto-moyano - 10-01-2025

Gracias guizans y Harpo, ya solucioné el tema revisando el comentario de guizans, algo que encontré en la red del compañero Julio y otro tanto reviendo algunos videos de Shordi, llegue a esto que funciona bien (y muy rápido)

el evento open contiene esto

Código:
Mod_Funciones.ConfigurarGridView(VListaBIB)

el evento data, quedo así

Código:
Public Sub VListaBIB_Data(Row As Integer, Column As Integer)

  If (ContenidoBibTotal <> Null) Then

    If Row >= 0 Then

      ContenidoBibTotal.moveTo(Row)

      Try VListaBIB.Data.Text = Str(ContenidoBibTotal[Column])

    Endif

  Endif

  If row Mod 2 = 0 Then

    VListaBIB.Data.Background = Color.RGB(230, 230, 230)

  Endif

End

el evento click, quedo así

Código:
Public Sub VListaBIB_Click()' grid en el formulario principal

  ' configurar como se muestran los botones

  btnGuardarCambios.Visible = True

  BtnEliminarBib.Visible = True

  btnAgregarCitationKey.Visible = True

  btnGuardar.Visible = False

  btnAgregarKeyBIB.Visible = True

  TabPanel2.Index = 0

  Mod_Funciones.VerBibTeXenVListaBIB()

End

y la función que diseña el grid así

Código:
' en el módulo de funciones

Public Sub ConfigurarGridView(grid As GridView)

  With grid

    .Header = True

    .Grid = True

    .Columns.Count = 112

    ' Configuración de columnas

    For i As Integer = 0 To 111

      Select Case i

        Case 0

          .Columns[i].Title = "Id"

          .Columns[i].Width = 0

        Case 4

          .Columns[i].Title = "Autor/a/es"

          .Columns[i].Width = 250

        Case 6

          .Columns[i].Title = "Editor/a/es"

          .Columns[i].Width = 250

        Case 24

          .Columns[i].Title = "Título principal"

          .Columns[i].Width = 600

        Case 29

          .Columns[i].Title = "Revista"

          .Columns[i].Width = 200

        Case 43

          .Columns[i].Title = "Año"

          .Columns[i].Width = 70

        Case 44

          .Columns[i].Title = "Fecha"

          .Columns[i].Width = 120

        Case 53

          .Columns[i].Title = "Editorial"

          .Columns[i].Width = 200

        Case Else

          .Columns[i].Title = ""

          .Columns[i].Width = 0

      End Select

    Next

  End With

End

se muestran los datos en los campos con este código que está en un módulo

Código:
Public Sub VerBibTeXenVListaBIB()

  ' Rellenar los campos de texto con los valores de la fila seleccionada

  FMain.txtIDbibtex.Text = FMain.VListaBIB[FMain.VListaBIB.row, 0].Text

  FMain.ComboBox1.Text = FMain.VListaBIB[FMain.VListaBIB.row, 1].Text

  FMain.txtCLAVEbib.Text = FMain.VListaBIB[FMain.VListaBIB.row, 2].Text

  FMain.txtKEYWORDS.Text = FMain.VListaBIB[FMain.VListaBIB.row, 3].Text

  FMain.txtAUTHOR.Text = FMain.VListaBIB[FMain.VListaBIB.row, 4].Text

  FMain.txtBOOKAUTHOR.Text = FMain.VListaBIB[FMain.VListaBIB.row, 5].Text

  FMain.txtEDITOR.Text = FMain.VListaBIB[FMain.VListaBIB.row, 6].Text

... siguen campós

End

Harpo, voy a intentar entender lo que dices, es demasiado para mí, pero no le escapo al bulto.

Gracias y saludos