https://foro.gambas-es.org/viewtopic.php?f=3&t=3557&p=20070#p20070
-----------------------------------
shordi
Martes, 07 Enero 2014, 20:42

Re: Esquema O Resumen De Aplicación Con Una Base De Datos De Una Tabla
-----------------------------------
No, que yo recuerde, pero como uso funciones independientes del tipo de conexión que usan el re-open, pues no sé si lo daría si no se usase...

Esto del re-open es una chorrada. Consiste en preguntar antes de hacer la consulta. Por ejemplo, esta es la función estándar para crear un registro a partir de un formulario:

[code linenumbers=false syntax=gambas]Public Function creaRegistro(tabla As String, oContenedor As Object, Optional conec As Connection) As Boolean

  Dim rsDatos As Result
  Dim lret As Variant 

  lret = True
  If Not conec Then conec = mComun.hDatos      'conexión que se abrió al iniciar el programa
  If Not conec.Opened Then                               'ESTE ES EL RE-OPEN FAMOSO
      Try conec.Open
  Endif
  rsDatos = conec.create(tabla)
  rsDatos = pasacampos(oContenedor, rsDatos) 'Función estandar que pasa el contenido de los controles de un form -u otro control contenedor- a un result (el truco es que los controles se llamen igual que los campos)
  rsDatos.Update
  conec.Commit

Finally
 
  Return lret

 Catch
    Message("Error: " & Error.Text & "\nEn: " & Error.where)
    lret = False
    
End[/code]


