estoy conectando desde mi aplicación en VB.net a una BD en Mysql utilizando MySql.Data.MySqlClient que esta remotamente en mi servidor y no entiendo por que demora tanto (5 a 6 segundos) en entregarme los datos por que son solo 2 o 3 registros. Mi conexion es buena y mi PC tambien lo és. Estoy utilizando la version Comunitty de VS 2019. Algo que me pueda ayudar para mejorar esto por favor ?
Esta es mi Clase que gestiona la conexión .....
Private Shared _FECHASERVIDOR As Date
Public Shared Property FECHASERVIDOR As Date
Get
Return _FECHASERVIDOR
End Get
Set(ByVal value As Date)
_FECHASERVIDOR = value
End Set
End Property
Public Shared Sub ObtenerFechaServidor()
Try 'Select * From NOMBRE_TABLA order by Convert(DATE, campo_fecha)
If Not Acceso.Conectado Then
Acceso.AbrirConexion()
Acceso.adaptador = New MySqlDataAdapter("SELECT NOW() AS CurrentDateTime", Acceso.Conexion)
Acceso.ds = New DataSet
Acceso.adaptador.Fill(Acceso.ds)
If Acceso.ds.Tables(0).Rows.Count > 0 Then
FECHASERVIDOR = CDate(Acceso.ds.Tables(0).Rows(0).Item(0))
Else
FECHASERVIDOR = Today.Date
End If
Acceso.Conectado = True
Else
Debug.Print("cerrar")
End If
Catch ex As Exception
Console.WriteLine(Err.Description)
MsgBox("Se produjo el siguiente error: " & Err.Description, MsgBoxStyle.Exclamation, "Error N° " & Err.Number)
Acceso.Conectado = False
End Try
End Sub
Public Shared Function Iniciar(ByVal cadena As String) As Boolean
Try
ObtenerFechaServidor()
ComparaFechas()
Acceso.comando = New MySqlCommand(cadena, Acceso.Conexion)
Acceso.comando.Parameters.AddWithValue("?FECHA", MySqlDbType.Date).Value = FECHASERVIDOR
Acceso.adaptador = New MySqlDataAdapter(Acceso.comando)
Acceso.ds = New DataSet
Acceso.adaptador.Fill(Acceso.ds)
If Acceso.ds.Tables(0).Rows.Count = 1 Then
user_id = CInt(Acceso.ds.Tables(0).Rows(0).Item(0)) 'ID
user_nombre = Acceso.ds.Tables(0).Rows(0).Item(1).ToString 'USUARIO
user_razonsocial = Acceso.ds.Tables(0).Rows(0).Item(2).ToString 'RAZON SOCIAL
user_telefono = Acceso.ds.Tables(0).Rows(0).Item(6).ToString 'TELEFONO
user_email = Acceso.ds.Tables(0).Rows(0).Item(3).ToString 'EMAIL
user_estado = CInt(Acceso.ds.Tables(0).Rows(0).Item(4)) 'ESTADO
Return True
Else
Return False
End If
Acceso.Conexion.Close()
Catch ex As Exception
Console.WriteLine(Err.Description)
Console.WriteLine(Err.Number)
Return False
End Try
End Function
Private Shared Sub ComparaFechas()
Dim FechaPC As Date = Date.Today
Dim DateWeb As Date = FECHASERVIDOR
Dim dateOnlyWEB As Date = DateWeb.Date
Dim dateOnlyPC As Date = FechaPC.Date
If dateOnlyPC.ToString("d") = dateOnlyWEB.ToString("d") Then
'la fecha es correcta
Exito = True
End If
End Sub
End Class
ORDER BY
¿tarda menos?