Ver Mensaje Individual
  #10 (permalink)  
Antiguo 03/07/2011, 15:26
Avatar de eduardo2009
eduardo2009
 
Fecha de Ingreso: agosto-2009
Mensajes: 110
Antigüedad: 15 años, 6 meses
Puntos: 0
Respuesta: Guardar registros

En visual basic .net y base de datos mysql

pero ya identifique el problema esta en este codigo que llamo cuando abro el formulario


Cita:
Private Sub textboxcarga1()
Try
Dim cad As New MySqlConnection("Database=Pacientes;Data Source=localhost;User Id=root;Password=utan")
cad.Open()
Dim sql As String = "SELECT * FROM generales WHERE id1 = ' " & cmbpacientes.SelectedValue & " ' "
Dim cmd As New MySqlCommand(sql, cad)
Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
While dr.Read
Dim value As Object = dr.Item("nombres")
If value IsNot DBNull.Value Then TextBox1.Text = CStr(value)
value = dr.Item("apellidos")
If value IsNot DBNull.Value Then TextBox2.Text = CStr(value)
value = dr.Item("ocupacion")
If value IsNot DBNull.Value Then TextBox3.Text = CStr(value)
value = dr.Item("recomendado")
If value IsNot DBNull.Value Then TextBox4.Text = CStr(value)
End While
dr.Close()
Catch ex As MySqlException
MessageBox.Show("Error:" & ex.Message)
Return
Catch ex As Exception
MessageBox.Show("Error:" & ex.Message)
Return
End Try
End Sub
y el problema de guardar es el mismo

"Error MysqlExecption: There is already an open DataReader associated with this connection which must be closed first"

si quito estas lineas del codigo que te envio ya entra y no marca error "&"...


Cita:
MessageBox.Show("Error:" & ex.Message)
Return
Estas lineas se las agregue por el comentario que me hiciste de el codigo de guardar...
gracias por el tiempo