Actualizado: Ejemplo DataBrowser, DataCombo, etc.

Publicado el por jose caraballo

Pues, esta era una vieja deuda. Para todos aquellos que estan buscando como se utilizan los controles data (datacombo, databrowser, etc) en Gambas, les participo que el ejemplo ha sido colocado de nuevo pero esta vez en mediafire. El que desee descargarlo, puede hacerlo aqui, o dirigirse a la entrada original.

5 comentarios en “Actualizado: Ejemplo DataBrowser, DataCombo, etc.”

  3. ejemplo de databrowser
    ##############################
    PUBLIC cn AS NEW Connection
    PUBLIC rs AS Result
    PUBLIC SUB Form_Open()
    ‘este evento permite crear la conexion a la base de datos
    WITH cn
    .type = «mysql»
    .host = «localhost»
    .login = «root»
    .password = «»
    .name = «BD»

    TRY .OPEN
    IF ERROR THEN
    Message.Error(«Error abriendo la base de datos!!!\n» & Error.Text)
    ME.Close
    ELSE
    ‘se selecciona los campos de la tabla que contiene la BD
    rs = cn.Exec(«SELECT * FROM tabla»)
    rs.MoveFirst
    END IF
    END WITH

    WITH DataBrowser1.GridView
    .Columns.Count = 3
    .Rows.Count = rs.Count

    .Columns[0].Text = «nombreColumna1»
    .Columns[0].Width = 100
    .Columns[1].Text = «nombreColumna2»
    .Columns[1].Width = 100
    .Columns[2].Text = «nombreColumna3»
    .Columns[2].Width = 100
    DataControl1.Value = rs!nombreColumna1
    DataControl2.Value = rs!nombreColumna2
    DataControl3.Value = rs!nombreColumna3

    END WITH

    END
    ######################

    Responder

  4. ‘El Anterior tenia Codigo de mas
    ‘###############################
    PUBLIC cn AS NEW Connection
    PUBLIC rs AS Result
    PUBLIC SUB Form_Open()
    ‘este evento permite crear la conexion a la base de datos
    WITH cn
    .type = «mysql»
    .host = «localhost»
    .login = «root»
    .password = «password»
    .name = «BD»

    TRY .OPEN
    IF ERROR THEN
    Message.Error(«Error abriendo la base de datos!!!\n» & Error.Text)
    ME.Close
    ELSE
    ‘se selecciona los campos de la tabla que contiene la BD
    rs = cn.Exec(«SELECT * FROM tabla»)

    END IF
    END WITH

    WITH DataBrowser1.GridView
    IF rs.Available = TRUE THEN
    DataControl1.Value = «»
    DataControl2.Value = «»
    DataControl3.Value = «»
    ELSE
    DataControl1.Value = rs!nombreCampo1
    DataControl2.Value = rs!nombreCampo2
    DataControl3.Value = rs!nombreCampo3
    END IF
    END WITH

    END

    Responder

Deja un comentario