Problema ADO .NET con VB .NET

[chcma]

Buenas tardes, verán, resulta que cuando inserto un usuario, pues me lo inserta bien, sin ningún problema, pero antes de que cierre el formulario, voy a isertar otro, justo despues de haber insertado el anterior, al dar a insertar por segunda vez, me aparece el siguiente mensaje:

"El campo id está bloqueado, no puede repetirse el valor '1' ".

No entiendo como si me inserta la primera vez y despues me sale ese error.

Les dejo el código para ver si pueden ver algun error, me imagino que será algo con el DataRow o algo asi, no sé, o a la hora de actualizar el DataSet que me salte algo, en fin, haber si pueden ayudarme, desde ya, gracias.

Private Sub BtnInsertar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnInsertar.Click
If TxtCliente.Text <> "" Or TxtTelefono.Text <> "" Then
If IsNumeric(TxtTelefono.Text) Then
FrmMdi.MDI.DAClientes.FillSchema(FrmMdi.MDI.DS, SchemaType.Source, "DSTClientes")
Dim NR As DataRow
Try
NR = FrmMdi.MDI.DS.Tables("DSTClientes").NewRow
NR("ncliente") = TxtCliente.Text
NR("ntelefono") = TxtTelefono.Text
NR("coge_mucho") = ChkMucho.Checked
NR("ncomentario") = TxtComentario.Text
FrmMdi.MDI.DS.Tables("DSTClientes").Rows.Add(NR)
FrmMdi.MDI.DAClientes.Update(FrmMdi.MDI.DS, "DSTClientes")
FrmMdi.MDI.DS.AcceptChanges()
Limpiar(Me)
MessageBox.Show("Cliente Almacenado con éxito", "Confirmación", MessageBoxButtons.OK, MessageBoxIcon.Information)
TxtCliente.Focus()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error al crear nueva fila", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
NR.ClearErrors()
End Try
Else
MessageBox.Show("El teléfono ha de ser numérico", "Error al Almacenar", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("Los Datos introducidos son incorrectos", "Error al Almacenar", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub

[SunDarK]

Wenash,eso es porque no has especificado en la BD que el campo es autonumerico.
Si usas access en el campo id de la base de datos tienes que poner que es AUTOINCREMENTAL, y si usas SQL Server tienes que poner que ID es la columna IDENTIDAD.
Con eso se deberia solucionar,recuerda que el campo ID no tienes que insertarlo en la consulta,es decir como bien dice se incrementa solo
Un saludo

[chcma]

Pero si ya es autonumérico !!!! Además, si ese campo no fuera autonumérico tampoco debería insertarme la primera vez que lo ejecuto, pero siempre me inserta el primer dato y despues no me inserta el siguiente.

[SunDarK]

Vamos pues por lo que veo parece eso,que el 1 está por defecto y siempre se repite :S A ver si alguno tiene otra idea

[GeRuNdIo]

Estoy con SunDarK, es un error de BD. Si no insertas "a mano" el ID (Primary Key en la BD), en la inserción, el problema está en la base de datos.
1 Saludo!

[chcma]

Bueno, pues la BD tiene el campo id autonumérico, sin duplicados.

Creo que el problema está en que el dataset debe liarse despues de hacer la primera insercción. Pero es que no sé por que puede ser, doy al botón de insertar, y me insertar, vuelvo a intentar insertar otro dato y me dice eso:

La columna id está restringida para ser única. Ya está presente el valor '1'.

Sin embargo, la primera vez me inserta, y me inserta el id correspondiente al siguiente. Pero despues, en el segudo, debe ser que al actualizar el DataSet algo pasa ahi y chifla, por que no es normal que si me funciona la priemra vez en la segunda casque.

Haber si con esto último comentado surgen nuevas ideas, gracias a todos.

[chcma]

Please, hechenme un cable que estoy pila atascado, si quiere alguien incluso le mando el programa pa que lo mire, es uqe no sé donde tengo el error.

[SunDarK]

Venga chcma mandamelo ahora que tengo tiempo libre,mandalo a SunDarK2004(arroba)gmail.com
Un saludo

[chcma]

¿Has conseguido resolver el problema SunDark?, por que me imagino uqe te habrá llegado el correo, ¿VerdaD?

[SunDarK]

Lo acabo de ver,que llevo unos dias de relax ejejejej,ahora le hecho un vistazo,un saludo

[SunDarK]

Wenash chcma.
En FrmInsertarCliente.VB,donde se encuentra las lineas

Try
NR = FrmMdi.MDI.DS.Tables("DSTClientes").NewRow
NR("ncliente") = TxtCliente.Text

Te falta añadir esta linea

FrmMdi.MDI.DS.Clear()

Es decir,te quedaría

Try
FrmMdi.MDI.DS.Clear()
NR = FrmMdi.MDI.DS.Tables("DSTClientes").NewRow
NR("ncliente") = TxtCliente.Text

Y ya funciona sin problemas
Un saludo

[chcma]

Pero si hago eso que dices frmmdi.mdi.ds.clear(), a la hora de hacer el frmmdi.mdi.ds.accpetChanges(), ¿No me deberia eliminar todos los datos menos el nuevo insertado?

Vamos, yo entiendo que la BD se actualiza según lo que haya en el DataSet, si lo limpio con .clear(), entonces a la hora de actualizar los cambios el dataadapter y el dataset, la BD solo debería quedarse con el registro recién insertado únicamente, ¿Por qué no es asi?

[sindestino]

ya me parecía que había leído algo del tema, si bien yo trabajo de forma diferente, éste artículo puede ayudar

http://www.microsoft.com/spanish/msd...anidcrisis.asp

espero que sirva, saludos

[chcma]

Esta muy interesante el enlace sindestino, sin embargo, no menciona el problema que a mi se me presenta, sino que ese artículo es para obtener el último id almacenado en la BD.


Sundark, poniendo como me has dicho: FrmMdi.MDI.DS.Clear() antes de insertar, a la hora de realizar la acutalización del DS:

FrmMdi.MDI.DS.Tables("DSTClientes").Rows.Add(NR)
FrmMdi.MDI.DAClientes.Update(FrmMdi.MDI.DS, "DSTClientes")
FrmMdi.MDI.DS.AcceptChanges()

¿No deberían borrarse todos los registros de la Base de Datos y verse solo el último registro insertado?

Lo digo por que en teoría lo que se hace es actualizar la Tabla de la BD en base al DataTable del DataSet, y si he hecho primero un .clear() y despues un addrow, simplemente debería verse esa fila insertada, ¿No?