YuHi 02-03-2022, 07:57
Buen día, a todos. Tengo dos Formularios y un módulo, El módulo abre una conexión a una base en mysql, el formulario FMain tiene un botón que abre el segundo formulario (ventana) la cual abre una tabla y llena un Gridview. Esto sí me funciona bien. Lo que quiero hacer ahora es que el formulario Ventana se incruste en el formulario FMain. Traté de utilizar el comando
Ventana.Load(Panel1)
donde Panel1 está en el formulario FMain, pero al ponerlo obtengo un error "Null object". Sí se incrusta El formulario Ventana dentro de Panel1, pero no puedo llenar el objeto Gridview con los datos de la Base Mysql.
Traté de ponerlo justo antes del comando
Ventana.show
Supongo que este error es porque al tratar de incrustarlo ya no estoy realmente en el formulario Ventana, pero no sé como resolverlo. ¿pueden por favor ayudarme? Les pongo el código con el que estoy haciendo las pruebas.
Ventana.Load(Panel1)
donde Panel1 está en el formulario FMain, pero al ponerlo obtengo un error "Null object". Sí se incrusta El formulario Ventana dentro de Panel1, pero no puedo llenar el objeto Gridview con los datos de la Base Mysql.
Traté de ponerlo justo antes del comando
Ventana.show
Supongo que este error es porque al tratar de incrustarlo ya no estoy realmente en el formulario Ventana, pero no sé como resolverlo. ¿pueden por favor ayudarme? Les pongo el código con el que estoy haciendo las pruebas.
Código:
'''''''módulo que hace la conexión
Private hConn As Connection
Public Function ConexionBase() As Connection
hConn = New Connection
hConn.Type = "mysql"
hConn.Host = "localhost"
hConn.Login = "usuario"
hConn.Password = "clave"
hConn.Name = "NombreBase"
Try hConn.Open
If Error Then
Message.Error(Error.Text)
Else
Return hConn
Endif
Return Null
End Código:
''''''''''Formulario FMain
Public Sub Form_Open()
End
Public Sub btnAbrir_Click()
Ventana.Show
EndCódigo:
''''''''Formulario #2
Private hConn As Connection
Private rData3 As Result
Public Sub GridData3_Data(Row As Integer, Column As Integer)
rData3.MoveTo(Row)
GridData3.Data.Text = Str(rData3[Column])
End
Public Sub btnIniciar_Click()
txtRequest3.Text = "SELECT * FROM `NombreTabla`"
rData3 = hConn.Exec(txtRequest3.Text)
Inc Application.Busy
GridData3.Rows.Count = 0
GridData3.Columns.Count = rData3.Fields.Count
GridData3.Rows.Count = rData3.Count
Finally
Dec Application.Busy
Catch
Message.Error("Cannot exec request." & "\n\n" & Error.Text)
End
Public Sub Form_Open()
hConn = mConexBase.ConexionBase()
End
Public Sub Form_Close()
hConn.Close
End
alessandri 01-03-2022, 02:56
Hola amigos.
¿alguien me puede explicar por qué da ese resultado?
dim a as byte =14
dim b as byte = 19
print (a-b)
251
¿qué regla sigue para conseguir ese resultado?
¿alguien me puede explicar por qué da ese resultado?
dim a as byte =14
dim b as byte = 19
print (a-b)
251
¿qué regla sigue para conseguir ese resultado?
gambafeliz 25-02-2022, 22:35
Hola
Yo tenia instalado qt4 en mi programa y los gridview se comportaban normalmente, ahora se ha sustituido por qt5 y los gridview estan como recortados y no entiendo porque. Alguna sugerencia o como vuelvo a qt4 en gambas. Lo intento poner pero nada funciona bien ya.
Tengo caotico todo iconos vistas con gridview.
== Solucionado ==========
Estupenda propuesta de jguardon
Yo tenia instalado qt4 en mi programa y los gridview se comportaban normalmente, ahora se ha sustituido por qt5 y los gridview estan como recortados y no entiendo porque. Alguna sugerencia o como vuelvo a qt4 en gambas. Lo intento poner pero nada funciona bien ya.
Tengo caotico todo iconos vistas con gridview.
== Solucionado ==========
Estupenda propuesta de jguardon
Bienvenido, Invitado
Últimos temas
Un sistema de ayudas cont...
Foro: VideotutorialesÚltimo mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 245
Publicidad
Foro: Sobre gambas-es.orgÚltimo mensaje por: Shordi, 18-06-2025, 07:35
Respuestas: 5 - Vistas: 249
Web con gambas, a ver si ...
Foro: WebApp/WebFormsÚltimo mensaje por: jackrobot, 16-06-2025, 17:11
Respuestas: 40 - Vistas: 32,305
Crear una aplicación para...
Foro: Bases de DatosÚltimo mensaje por: Shell, 29-05-2025, 20:11
Respuestas: 11 - Vistas: 1,383