.net - definicion - "Ya hay un DataReader abierto..." ¿Reutilizar o desechar conexiones de base de datos?

conexion a base de datos definicion

Question

Por favor, ayuda ... Cuando selecciono datos de la tabla Mysql, muestra "Ya hay un DataReader abierto asociado con esta conexión que debe cerrarse primero. Vb.net"

Private Sub cmbJobCategoryVisa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbJobCategoryVisa.SelectedIndexChanged
''''"
Dim MyCommand As New MySqlCommand("SELECT jobcategorycode FROM jobcategory WHERE jobcategory=''" & Me.cmbJobCategoryVisa.SelectedItem & "''", MyConnection)
Dim MyReader As MySqlDataReader = MyCommand.ExecuteReader
While MyReader.Read
If MyReader.HasRows = True Then
Me.txtJobCategoryCodeVisa.Text = MyReader("jobcategorycode")
End If
End While
MyReader.Close()
MyCommand.Dispose()
End Sub

'''' ''en el momento de la ejecución del código siguiente, se muestra el error de imagen

 Private Sub txtEmpNo_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtEmpNo.Validating
Dim MyCommand5 As New MySqlCommand("SELECT * FROM employeesmaster WHERE empno=''" & Me.txtEmpNo.Text & "''", MyConnection)
Dim MyDataReader5 As MySqlDataReader = MyCommand5.ExecuteReader
If MyDataReader5.HasRows = True Then
While MyDataReader5.Read
Me.txtEmpName.Text = MyDataReader5("name")
Me.cmbNationality.Text = MyDataReader5("nationality")
Me.cmbJobCategoryVisa.Text = MyDataReader5("jobcategoryvisa")
If Not IsDBNull(MyDataReader5("image")) Then
Dim ImageData As Byte() = DirectCast(MyDataReader5("image"), Byte())
Dim MemoryStream As New IO.MemoryStream(ImageData)
Me.pbxEmpImage.Image = Image.FromStream(MemoryStream)
Else
Me.pbxEmpImage.Image = Nothing
End If
End While
Else
End If
MyDataReader5.Close()
MyCommand5.Dispose()
End Sub

Answer 1

Es evidente que está utilizando una única conexión global y aparentemente la está dejando abierta. Como se ha mencionado, no debe reutilizar ni almacenar su conexión. Las conexiones son baratas de crear y .NET está optimizado para crearlas según sea necesario.

Hay varias cosas en su código que no se están cerrando y desechando. cual debería ser. La eliminación no solo evita que su aplicación pierda recursos, sino que este tipo de error no puede ocurrir al usar objetos DB creados recientemente para cada tarea.

Conexiones
Como hay giros involucrados en su creación, puede escribir una función para crear (y tal vez abrir) una nueva conexión y evitar tener que pegar la cadena de conexión en todas partes. Aquí hay un ejemplo general usando OleDB:

Public Function GetConnection(Optional usr As String = "admin",
Optional pw As String = "") As OleDbConnection
Dim conStr As String
conStr = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};User Id={1};Password={2};",
dbFile, usr, pw)
Return New OleDbConnection(constr)
End Function

Using bloques
Úselo en un bloque de Uso para que se elimine:

Using con As OleDb.OleDbConnection = GetConnection()
Using cmd As New OleDbCommand(sql.Value, con)
con.Open()
Using rdr As OleDbDataReader = cmd.ExecuteReader()
'' do stuff
End Using '' close and dispose of reader
End Using '' close and dispose of command
End Using '' close, dispose of the Connection objects

Cada instrucción Using crea un nuevo objeto de destino y lo dispone al final del bloque.

En general, cualquier cosa que tenga un método Dispose puede y debe usarse en un bloque Using para garantizar que se elimine. Esto incluiría el MemoryStream y la Image utilizados en su código.

Using bloques se puede "apilar" para especificar más de un objeto y reducir la sangría (tenga en cuenta la coma después del final de la primera línea):

Using con As OleDb.OleDbConnection = GetConnection(),
cmd As New OleDbCommand(sql.Value, con)
con.Open()
...
End Using '' close and dispose of Connection and Command

Para más información, ver:

• Usar declaración
• Agrupación de conexiones
• Cómo: deshacerse de un recurso del sistema

can u pls convert this code to Mysql connection... my connection string is...

Para la conexión básica de MySQL:

'' module level declaration
Private MySQLDBase as String = "officeone"
Function GetConnection(Optional usr As String = "root",
Optional pw As String = "123456") As MySqlConnection
Dim conStr As String
conStr = String.Format("Server=localhost;Port=3306;Database={0};Uid={1}; Pwd={2};",
MySQLDBase, usr, pw)
Return New MySqlConnection(constr)
End Function

Personalmente para MySql, uso una clase y un ConnectionStringBuilder en el método. Hay muchas, muchas opciones interesantes que uso, pero que difieren de un proyecto a otro, como la base de datos y el inicio de sesión predeterminado de la aplicación. Lo anterior usa todos los valores predeterminados.