Crear la conexión a base de datos
Dim Cn as new Connection
Cn.type="mysql"
Cn.host="localhost"
Cn.login="usuario"
Cn.clave="1234"
Cn.name="base"
try Cn.open
Cn.type="mysql"
Cn.host="localhost"
Cn.login="usuario"
Cn.clave="1234"
Cn.name="base"
try Cn.open
Una vez tenemos una conexión activa el siguiente paso es situar en el formulario un objeto datasource que es un objeto contenedor que requiere una conexión activa.
El datasource requiere la librería GB.DB.FORM.
Las propiedades mínimas para obtener la funcionalidad del datasource son:
Datasource.table="tabla o vista" ----> la tabla debe tener un índice primario
Datasource.filter = "condicion" ---> la condición que iría en una claúsula where de una sentencia select
Datasource.readonly=true/false
Datasource.filter = "condicion" ---> la condición que iría en una claúsula where de una sentencia select
Datasource.readonly=true/false
Ahora insertamos el control enlazado dentro del contenedor datasource. En este caso se trata de un dataview.
Definimos cabeceras del dataview
with dataview.gridview
.Columns[0].text="Codigo"
.Columns[0].width=50
.Columns[1].text="Cliente"
.Columns[1].width=100
...
end with
.Columns[0].text="Codigo"
.Columns[0].width=50
.Columns[1].text="Cliente"
.Columns[1].width=100
...
end with
Algunas propiedades interesantes
Dataview.grid=true/false ---> si habrá o no rejilla
Dataview.mode=none/single ---> si se seleccionará la fila entera o no.
Dataview.mode=none/single ---> si se seleccionará la fila entera o no.
Posicionarse en celda
Dataview.GridView[0,0] ----> primera celda
Dataview.GridView[1,0] ----> primera celda segunda fila
Dataview.GridView[,0] ----> primera celda segunda fila
Dataview.GridView(DataView.GridView.row,DataView.GridView.col] ---> celda actual
Dataview.GridView[1,0] ----> primera celda segunda fila
Dataview.GridView[,0] ----> primera celda segunda fila
Dataview.GridView(DataView.GridView.row,DataView.GridView.col] ---> celda actual