Actualizado: Ejemplo DataBrowser, DataCombo, etc.

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.

  1. manuel dijo:

    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
    ######################

  2. manuel dijo:

    ‘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

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s