alguna forma de acceso rapido a la BD
Publicado por Martin (1 intervención) el 23/03/2004 01:36:46
Hola que tal estoy usando MySql como manejador de base de datos y estoy usando un componente para accesar a mysql sin necesidad de usar MySqlODBC (según esto el acceso es mas rapido). pero el problema es que las consultas a la bd las hace muy lentas, hé probado las mismas consultas sobre la misma BD desde otras aplicaciones(sqlyog) y si son rápidas. Tengo una función que me regresa un dataset con el resultado de la consulta que le pido(si funciona pero es muy lento).
El código que utilizo es el siguiente:
Function GenerarDS(ByVal Querystring As String, ByVal
ConnectionString As String) As System.Data.DataSet
Dim cadejecutivo As String
Dim myConnection As New ByteFX.Data.MySqlClient.MySqlConnection(ConnectionString)
Dim myadapter As New ByteFX.Data.MySqlClient.MySqlDataAdapter
myadapter.SelectCommand = New
ByteFX.Data.MySqlClient.MySqlCommand(Querystring, myConnection)
Dim datasetx As New DataSet
Try
myadapter.Fill(datasetx)
myConnection.Close()
Return datasetx
Catch e As ByteFX.Data.MySqlClient.MySqlException
Dim errorMessages As String
Dim i As Integer
errorMessages = "Mensaje: " & e.Message & " Fuente: " & e.Source
MsgBox("Error: " & errorMessages)
End Try
End Function
Si alguien sabe de otra forma mas rápida de conectarse le agradecería que me dijera como hacerle.
El código que utilizo es el siguiente:
Function GenerarDS(ByVal Querystring As String, ByVal
ConnectionString As String) As System.Data.DataSet
Dim cadejecutivo As String
Dim myConnection As New ByteFX.Data.MySqlClient.MySqlConnection(ConnectionString)
Dim myadapter As New ByteFX.Data.MySqlClient.MySqlDataAdapter
myadapter.SelectCommand = New
ByteFX.Data.MySqlClient.MySqlCommand(Querystring, myConnection)
Dim datasetx As New DataSet
Try
myadapter.Fill(datasetx)
myConnection.Close()
Return datasetx
Catch e As ByteFX.Data.MySqlClient.MySqlException
Dim errorMessages As String
Dim i As Integer
errorMessages = "Mensaje: " & e.Message & " Fuente: " & e.Source
MsgBox("Error: " & errorMessages)
End Try
End Function
Si alguien sabe de otra forma mas rápida de conectarse le agradecería que me dijera como hacerle.
Valora esta pregunta


0