Si es ese El servicio parece por ese nombre, ese el tercer servicio que parece aparte de que creaste tu y el starter.
Y como se debe resolver ? esta mal tener 3 servicios ?
Si es ese El servicio parece por ese nombre, ese el tercer servicio que parece aparte de que creaste tu y el starter.
Ya entendí porque te dió el error..
y porque a mi mil veces no me dió ese error.
tu solo cargaste la APP y le has dado boton para atrás..
No has hecho click en el botón CONNECT , y la Base no esta inicializada ni abierta.. por eso da el error.
ERROR MIO AL NO VALIDAR ESO., pero si te hubieras conectado, no deberia dar error por cerrar la base.
Sub BotonConectar_Click
If txtServidor.Text.Trim.Length == 0 Or txtUser.Text.Trim.Length == 0 Or txtPassword.Text.Trim.Length == 0 Or txtPort.Text.Trim.Length == 0 Then
ToastMessageShow("Debe Completar Todos Los Campos...", False)
Else
Dim t As String
ProgressDialogShow2("Connecting", False)
Try
MySQL.MySQL_Server=txtServidor.Text.Trim
MySQL.MySQL_Port=txtPort.Text.Trim
MySQL.MySQL_User=txtUser.Text.Trim
MySQL.MySQL_Password=txtPassword.Text.Trim
MySQL.ListadeBases.Initialize
CallSub(MySQL,"ConectaSchema")
t="SELECT DISTINCT(TABLE_SCHEMA) AS BASE, Count(DISTINCT(TABLE_SCHEMA)) as Registros FROM TABLES WHERE TABLE_SCHEMA<>'information_schema'"
CallSub2(MySQL,"LeoMySQLSchema",CreateMap("TextoSQL":t,"Activity":"Main","Modulo":"Schema_LeoTablas"))
Catch
Msgbox(LastException.Message,"Error")
Log(LastException)
End Try
End If
End Sub
Sub BotonConectar_Click
Dim Valido As Boolean=True, t As String
CantidadBases=0
ProgressDialogShow("Connecting")
Try
If txtServidor.Text.Trim.Length=0 Then
Valido=False
Msgbox ("Server Info Required","Missing Info")
txtServidor.RequestFocus
End If
If txtPort.Text.Trim.Length=0 Then
Valido=False
Msgbox ("Port Info Required","Missing Info")
txtPort.RequestFocus
End If
If txtUser.Text.Trim.Length=0 Then
Valido=False
Msgbox("User Info Required","Missing Info")
txtUser.RequestFocus
End If
If txtPassword.Text.Trim.Length=0 Then
Valido=False
Msgbox("Password Info Required","Missing Info")
txtPassword.RequestFocus
End If
If Valido=True Then
MySQL.MySQL_Server=txtServidor.Text.Trim
MySQL.MySQL_Port=txtPort.Text.Trim
MySQL.MySQL_User=txtUser.Text.Trim
MySQL.MySQL_Password=txtPassword.Text.Trim
MySQL.ListadeBases.Initialize
CallSub(MySQL,"ConectaSchema")
t="SELECT DISTINCT(TABLE_SCHEMA) AS BASE, Count(DISTINCT(TABLE_SCHEMA)) as Registros FROM TABLES WHERE TABLE_SCHEMA<>'information_schema'"
CallSub2(MySQL,"LeoMySQLSchema",CreateMap("TextoSQL":t,"Activity":"Main","Modulo":"Schema_LeoTablas"))
End If
Catch
Msgbox(LastException.Message,"Error")
Log(LastException)
End Try
End Sub
Con material design le das apariencia a la app.
Pon en google material desing y entenderá de lo que te habla rschell.
Esta es la apariencia con material desing de una app que estoy haciendo, para que te hagas una idea.
Con respecto al tema se servicios y tener mas de un servicio en marcha... No se me ocurre una aplicación en la que necesite tener mas de un servicio en marcha y en esta aplicación en concreto yo no tendría ningún servicio.
A ver que opina el resto.
Con respecto al tema se servicios y tener mas de un servicio en marcha... No se me ocurre una aplicación en la que necesite tener mas de un servicio en marcha y en esta aplicación en concreto yo no tendría ningún servicio.
A ver que opina el resto.
Con material design le das apariencia a la app.
Pon en google material desing y entenderá de lo que te habla rschell.
Esta es la apariencia con material desing de una app que estoy haciendo, para que te hagas una idea.