Buenas tardes a todos, estoy migrando mis aplicaciones de VB6 a Gambas, al final he visto que es la mejor alternativa que tenía, ya que .NET no me convencía...
Iré dejando trozos de código que vaya solucionando o alguno sin solucionar para que me echéis una mano
Os dejo un código para rellenar un Combo con las Bases de Datos de una Conexión y poder seleccionar una posteriormente.
Código:
Private Sub CargarCombo()
Dim cn As Connection
Me.Mouse = Mouse.Wait
cmbBaseDeDatos.Clear
cn = New Connection
cn.Host = txtServidor.Text
cn.User = txtUsuario.Text
cn.Password = txtContrasenia.Text
cn.Type = "MySql"
Try cn.Open()
Me.Mouse = Mouse.Default
If Not Error Then
Dim db As Object
For Each db In cn.Databases
cmbBaseDeDatos.Add(db.Name)
Next
Message.Info("Conexión establecida correctamente. Seleccione una Base de Datos")
Else
Message.Error(Error.Text)
End If
End Sub