Veréis, estoy liado con bases de datos y he fusionado el ejemplo del manual de gambas con el ejemplo de base de datos que se encuentra en la granja.
De esta forma puedo crear las consultas, escribiéndolas manualmente en un TextArea. Actualmente estoy haciendo algún que otro ejemplo del libro
SQL fácil de Pere Chardi García con gambas. El directamente lo hace en su web mediante una consola.
Tengo que cambiar de navegador cuando hago las practicas online, ya que es difícil recordar...¿ estoy bajo un navegador ?.
Pulsas una tecla y todo al traste..si, ejemplo, la tecla Retroceso bajo FireFox.
Pues bien. Tomando el tema. Esta instrucción:
Applicantion.Busy nos dice la ayuda de Gambas:
Citar:
Sobre todo lo hace cuando lee cuantos registros pueden obtenerse en una consulta.
En el ejemplo de la granja usa el incremento y decremento.
Public Sub LeerDatos()
Dim hField As ResultField
Dim iIndice As Integer
Inc Application.Busy
grdConsulta.Rows.Count = 0
grdConsulta.Columns.Count = $rData.Fields.Count
For Each hField In $rData.Fields
With hField
grdConsulta.Columns[iIndice].Text = .Name
grdConsulta.Columns[iIndice].Width = 100
End With
Inc iIndice
Next
grdConsulta.Rows.Count = $rData.Count
Finally
Dec Application.Busy
Catch
Message.Error("No pudo ejecutarse: " & "\n\n" & DConv(Error.Text))
End
Dim hField As ResultField
Dim iIndice As Integer
Inc Application.Busy
grdConsulta.Rows.Count = 0
grdConsulta.Columns.Count = $rData.Fields.Count
For Each hField In $rData.Fields
With hField
grdConsulta.Columns[iIndice].Text = .Name
grdConsulta.Columns[iIndice].Width = 100
End With
Inc iIndice
Next
grdConsulta.Rows.Count = $rData.Count
Finally
Dec Application.Busy
Catch
Message.Error("No pudo ejecutarse: " & "\n\n" & DConv(Error.Text))
End
¿ Soléis usarlo vosotros ?.
¿ Podéis contar alguna experiencia ?
Es algo que jamas he usado.
Saludos