Visual basic.net

Estoy trabajando un proyecto con vb.net y mysql ... El problema me surgió cuando utilice en 2 procedimientos unos dataadapter..., el primero lo uso para limpiar ciertos txtbox según los que en la base de datos estén habilitados para ser borrados cada vez que le doy click a dicho botón... Esto lo hace bien la primera vez... Sin problema... Te pongo el código...
Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click
        adapt = New MySqlDataAdapter
        adapt.MissingSchemaAction = MissingSchemaAction.AddWithKey
        Dim sel As New MySqlCommand("select * from conf_bauti", cn)
        adapt.SelectCommand = sel
        Try
            Dim rs2 = New DataSet
            rs2.Tables.Clear()
            rs2.Clear()
            adapt.Fill(rs2)
            clvbaut = 0
            If rs2.Tables(0).Rows.Count = 0 Then Exit Sub
            With rs2.Tables(0)
                If .Rows(0)("nom").ToString = 0 Then TextBox1.Text = ""
                If .Rows(0)("padre").ToString = 0 Then TextBox2.Text = ""
                If .Rows(0)("madre").ToString = 0 Then TextBox3.Text = ""
                If .Rows(0)("padrino").ToString = 0 Then TextBox4.Text = ""
                If .Rows(0)("madrina").ToString = 0 Then TextBox5.Text = ""
                If .Rows(0)("folio").ToString = 0 Then TextBox6.Text = ""
                If .Rows(0)("libro").ToString = 0 Then TextBox7.Text = ""
                If .Rows(0)("partida").ToString = 0 Then TextBox8.Text = ""
                If .Rows(0)("parroco").ToString = 0 Then TextBox9.Text = ""
                If .Rows(0)("celebrante").ToString = 0 Then TextBox10.Text = ""
                If .Rows(0)("lugnac").ToString = 0 Then TextBox12.Text = ""
                If .Rows(0)("fechbaut").ToString = 0 Then DateTimePicker1.Value = Date.Now
                If .Rows(0)("fechnac").ToString = 0 Then DateTimePicker2.Value = Date.Now
            End With
            TextBox11.Text = "---"
            TextBox13.Text = "---"
            TextBox14.Text = "---"
            TextBox15.Text = "---"
            DateTimePicker3.Value = Date.Now
            btnBorrar.Enabled = False
            btnGuardar.Enabled = False
            TextBox1.Focus()
            rs2.Tables.Clear()
            adapt.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex. Message, "Error (btnLimpiar_Click)", MessageBoxButtons. OK, MessageBoxIcon. Error)
        End Try
    End Sub
La informacion la obtiene de la tabla conf_bauti... Ok pero a la hora de guardar hay un procedimiento que ejecuto que actualiza cierta informacion empleando un dataset y un dataadapter... Al ejecutar dicho procedimento enseguida vuelvo a llamar el que te puse arriba ...( y ahi es donde truena el programa ... Segun el dataadapter carga el dataset, pero en realidad no tiene nada de informacion... Te estoy hablando del procedimiento de arriba).
te pongo el procedimiento con el que actualizo previo al error....
Private Sub Config_update()
        Dim cn2 As New MySqlConnection
        'cn2.ConnectionString = "server=localhost;uid=root;database=Notaria;port=3306;pwd=ADMIN"
        'cn2.Open()
        adapt = New MySqlDataAdapter("select * from conf_bauti", cn)
        ' adapt.MissingSchemaAction = MissingSchemaAction.AddWithKey
        Dim rs1 As DataSet = New DataSet
        'Dim matriz(18) As String
        Dim keys(0) As DataColumn
        Dim com As New MySqlCommandBuilder(adapt)
        adapt.Fill(rs1) '--------------------> llena el datatable
        'keys(0) = rs.Columns("idconfb")
        'rs.PrimaryKey = keys
        adapt.UpdateCommand = com.GetUpdateCommand
        Try
            ' clvbaut = 0
            With rs1.Tables(0)
                If .Rows(0)("nom").ToString = 1 Then .Rows(0)("nom_val") = TextBox1.Text Else .Rows(0)("nom_val") = ""
                If .Rows(0)("padre").ToString = 1 Then .Rows(0)("padre_val") = TextBox2.Text Else .Rows(0)("padre_val") = ""
                If .Rows(0)("madre").ToString = 1 Then .Rows(0)("madre_val") = TextBox3.Text Else .Rows(0)("madre_val") = ""
                If .Rows(0)("padrino").ToString = 1 Then .Rows(0)("padrino_val") = TextBox4.Text Else .Rows(0)("padrino_val") = ""
                If .Rows(0)("madrina").ToString = 1 Then .Rows(0)("madrina_val") = TextBox5.Text Else .Rows(0)("madrina_val") = ""
                If .Rows(0)("folio").ToString = 1 Then .Rows(0)("folio_val") = TextBox6.Text Else .Rows(0)("folio_val") = ""
                If .Rows(0)("libro").ToString = 1 Then .Rows(0)("libro_val") = TextBox7.Text Else .Rows(0)("libro_val") = ""
                If .Rows(0)("partida").ToString = 1 Then .Rows(0)("partida_val") = TextBox8.Text Else .Rows(0)("partida_val") = ""
                If...

1 respuesta

Respuesta
Muéstrame la subrutina de llamado a los eventos.
Detecto varias malas praxis en tu código, ¿trabajas mucho como en VB6 y estás en .NET que versión de .NET usas?
Utilizo visual.net 2008, me explico sin tanto código...
Tengo un procedimiento en el que checo----> información de una tabla por medio de un mysqlcommand y un mysqldatareader... con el comando select * from tabla .. hasta ahí todo bien...
Tengo un 2do procedimiento que llena un dataset con un dataadapter y realiza un update con un mysqlcommandbuilder ... esto lo realiza bien... pero...
Si uso el 2do procedimiento, y llamo después el primero ... (donde hago el select) me dice que e no tiene datos el datareader...
Si utilizo el primer procedimiento varias veces no hay problema, hasta que utilizo el 2do proc.
Trate de liberar el dataadapter
Dataset.clear()
Creo que el problema radica en el mysqlcommandbuilder ... lo trato de actualizar con ...
Mysqlcommandbuilder.refreshschema()
Pero sigue el mismo problema...
encontré una referencia... RefreshSchema
...
Refreshes the database schema information used to generate INSERT,
UPDATE, or DELETE statements.
An application should call `RefreshSchema' whenever the `SELECT'
statement associated with the `MySqlCommandBuilder' changes.
An application should call `RefreshSchema' whenever the
`MySqlDataAdapter.SelectCommand' value of the `MySqlDataAdapter'
changes.
MySQL Enterprise
El tema es que en el segundo proceso tu cierras, y haces Dispose de muchas cosas, y lo que creo es que estás limpiando todo.
Esta linea:
Dim rs2 = New DataSet
De tu primer procedimiento, está mal, y luego que lo haces, haces clear de las tablas, que no deberías, acabas de crear un objeto nuevo.
Si usas DIM, usa AS en vez de =
Ten más control con los Clear, y los Dispose, limpias todo de una manera muy brutal, ordena el código de manera que puedas seguirlo más fácilmente.
Si tienes dudas me lo haces saber.
Si te fui de ayuda, por favor cierra y valora la pregunta, ya que una pregunta abierta quita posibilidad al Experto de ayudar a más personas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Problema en buscar datos

No puedo realizar la búsqueda me sale error el fill di me pueden ayudar Function Buscar_registro(ByVal codigo_clave As String) As Boolean 'conexión Dim conexión As New OleDbConnection conexión.ConnectionString = "provider = Microsoft.ACE.OLEDB.12.0;...
1 respuesta

Como cargo un reporte en ASP.NET

NET, no se si este es tu fuerte pero si me puedes ayudar te lo agradeceré, resulta que estoy iniciando con ASP.NET, ya tengo mi pequeña página y ahora en esa página quiero cargar un reporte que hice en crystall, el problema esta en que cuando llamo...
1 respuesta

Como Llenar 3 combobox dependientes vb.net

Amigos buenos días me podrían ayudar con esto por favor. Tengo 3 combobox: Departamentos, provincias, distritos. El problema es que a la hora de cargarlos para modificar los datos. Por decir si cargo los datos de un cliente por en los combobox...
1 respuesta

Filtro en datagrid por fechas

Estoy tratando de ordenar una datagrid con filtro de fechas desde y hasta, el filtro me lo hace pero solo me toma el primero numero de la fecha ejemplo: 12/03/2009 y los otros no. Espero que alguien me pueda ayudar se lo agradeceré mucho. La base de...
1 respuesta

Problema con System.IndexOutOfRangeException

Que tal amigo buen día! Sopy nuevo en el mundo de la programación y tengo un pequeño problema con unas etiquetas que estoy realziando en VB 2010 debido a que la información obtenida proviene de una base de datos de SQL, mi problema es que cuando...
1 respuesta

Buscar y seleccionar un registro en un datagridview en visual 2008

Tengo en un form un textbox, botón y un datagridview lo que deseo es simple consultar un registro en la caja de texto y que en el datagridview que lo tengo lleno de registros lo busque y seleccione la fila Tengo este procedimiento de consulta Public...
1 respuesta

Eliminar registros

Necesito eliminar unos registros de una bd de sql server 2005, pero tengo que utilizar un procedimiento almacenado llamandolo desde asp.net lo que tengo de código es el siguiente: Dim DS As DataSet Dim MyConnection As SqlConnection Dim MyDataAdapter...
1 respuesta

Seleccionar item de un combo y rellenar un textbox

Estoy iniciando con esto de VB. Net... Tengo una base de datos que migre desde access... Descargue Sql Server Express 2008 y Visual Studio 2008 para crear la interfaz... Ya estoy dando mis primeros pasos creando la conexión a la base que tengo en Sql...
1 respuesta

Como arrastrar los datos ingresados en u a otra página

Mi problema es que yo estoy fabricando un login y necesito que los datos ingresadosen un text box que serian el usuario y la clave los necesito en otra página. Primero cuando ejucatan el programa se abre el login luego aparece un menu luego...
1 respuesta

Pasar datos de un gridview a otra página

Por que ya estoy desesperado. Estoy haciendo un proyecto en Visual Basic 2005 en Asp.net con C#. Tengo un gridview en el que recibo los datos de una BBDD de SQL Server 2005 y me los muestra sin ningún problema. Y añado la pestaña de seleccionar al...
1 respuesta