La misma ofrece 3 bases de datos de hasta 100 mb de mysql para acceder de forma remota y se la puede configurar en PHP.
Ya cree una base de datos y conseguí acceder a la misma a través de VBA de Excel.
El problema: Al realizar la consulta a través del formulario. La misma tarda casi 4 segundos. Y mi idea es poder realizar las búsquedas de los registros a través del formulario de excel, pero necesitaria reducir el tiempo que se tarda en realizar la conexión. Esto es posible?
Desde ya muchas gracias y un abrazo. Adjunto a continuación el código y el archivo
Private Const DRIVER_MYSQL As String = "DRIVER={MySQL ODBC 8.0 ANSI Driver};"
Private Const OPCIONS_MYSQL As String = "SERVER=remotemysql.com;PORT=3306;DATABASE=yat7DgcNyh" & _
";USER=yat7DgcNyh;PASSWORD=msTPsBzj0J;"
Public connMySql As ADODB.Connection
Dim rsMySql As ADODB.Recordset
Dim com As New ADODB.Command
'Donde "BBDatos" es el nombre de la base de datos y "Clave", la contraseña para ingresar a Mysql.
'Con la siguiente instrucción abrimos la conexión
Sub ConexionMysql()
Set connMySql = New ADODB.Connection
connMySql.Open DRIVER_MYSQL & OPCIONS_MYSQL
End Sub
'Y con esta otra instrucción cerramos la conexión, después de realizar lo que necesitamos hacer, ya sea insertando, eliminanado o consultando registros en nuestra base de datos Mysql.
Sub CierraConexion()
'cerramos la conexión
connMySql.Close
End Sub
Private Sub CommandButton1_Click()
ConexionMysql
Sql = "SELECT CI,DESCRIPCION,MARCA,PRECIO from Personas"
Dim com As New ADODB.Command
com.ActiveConnection = connMySql
com.CommandText = Sql
com.CommandType = adCmdText
Set rsMySql = com.Execute
If rsMySql.EOF = True Then
MsgBox "No se encontraro registros"
Exit Sub
End If
Hola como están?
Estoy probando un servicio gratuito que ofrece la página https://remotemysql.com/
La misma ofrece 3 bases de datos de hasta 100 mb de mysql para acceder de forma remota y se la puede configurar en PHP.
Ya cree una base de datos y conseguí acceder a la misma a través de VBA de Excel.
El problema: Al realizar la consulta a través del formulario. La misma tarda casi 4 segundos. Y mi idea es poder realizar las búsquedas de los registros a través del formulario de excel, pero necesitaria reducir el tiempo que se tarda en realizar la conexión. Esto es posible?
Desde ya muchas gracias y un abrazo. Adjunto a continuación el código y el archivo
Private Const DRIVER_MYSQL As String = "DRIVER={MySQL ODBC 8.0 ANSI Driver};"
Private Const OPCIONS_MYSQL As String = "SERVER=remotemysql.com;PORT=3306;DATABASE=yat7DgcNyh" & _
";USER=yat7DgcNyh;PASSWORD=msTPsBzj0J;"
Public connMySql As ADODB.Connection
Dim rsMySql As ADODB.Recordset
Dim com As New ADODB.Command
'Donde "BBDatos" es el nombre de la base de datos y "Clave", la contraseña para ingresar a Mysql.
'Con la siguiente instrucción abrimos la conexión
Sub ConexionMysql()
Set connMySql = New ADODB.Connection
connMySql.Open DRIVER_MYSQL & OPCIONS_MYSQL
End Sub
'Y con esta otra instrucción cerramos la conexión, después de realizar lo que necesitamos hacer, ya sea insertando, eliminanado o consultando registros en nuestra base de datos Mysql.
Sub CierraConexion()
'cerramos la conexión
connMySql.Close
End Sub
Private Sub CommandButton1_Click()
ConexionMysql
Sql = "SELECT CI,DESCRIPCION,MARCA,PRECIO from Personas"
Dim com As New ADODB.Command
com.ActiveConnection = connMySql
com.CommandText = Sql
com.CommandType = adCmdText
Set rsMySql = com.Execute
If rsMySql.EOF = True Then
MsgBox "No se encontraro registros"
Exit Sub
End If
Me.ListBox1.ColumnCount = 4
Me.ListBox1.ColumnWidths = "20PT;50PT;20PT;20PT"
Me.ListBox1.Column = rsMySql.GetRows
connMySql.Close
End Sub
mysql.xlsm