SoloCodigo

Nada de nada. He intentado utilizar tu código abel_cuentas_b y algunos otros ejemplos y nada de nada.

Inserta, porque cuando intento insertar 2 veces lo mismo me da error de clave duplicada, pero cuando cierro el programa todo desaparece misteriosamente sin saber por qué.

Si teneis alguna idea mas, hacedmela llegar por favor. Si necesitais el programa con el código os lo puedo pasar para que le echeis un vistazo, porque yo desisto, esto es imposible.

Hola amigos, desde hace un tiempo el vb 2005 me está volviendo loco con las consultas sobre una base de datos SQL 2005.

El caso es que tengo un sencillo programa de inserciones, borrado y modificaciones. Las consultas sobre la base de datos me las hace a la perfeccion pero no consigo de ninguna manera insertar, modificar o eliminar elementos de la base de datos.

El codigo es este:

-------------------------------------------------------------------------------------

Public ConexionStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DataBaseSports.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

Public _SqlConexion As Data.SqlClient.SqlConnection
_SqlConexion = New SqlClient.SqlConnection
_SqlConexion.ConnectionString = ConexionStr
 _SqlConexion.Open()

 Query = "INSERT INTO Customers (ID_Customer,FirstName,LastName,Birthday,Address,ZIP,City,Country,DiscountCard,CardNumber) VALUES (" & MaxID & ",'" _
                                                       & txtFirstName.Text & "','" _
                                                       & txtLastName.Text & "','" _
                                                       & txtBirthday.Text & "','" _
                                                       & txtAddress.Text & "','" _
                                                       & txtZIP.Text & "','" _
                                                       & txtCity.Text & "','" _
                                                       & txtCountry.Text & "'," _
                                                       & HasDiscountCard & ",'" _
                                                       & NewCardCode & "')"
               
Dim myCommand As New SqlCommand(Query, _SqlConexion)
myCommand.ExecuteNonQuery()

If _SqlConexion.State <> ConnectionState.Closed Then
      _SqlConexion.Close()
End If


-------------------------------------------------------------------------------------

El caso es que cuando voy paso a paso, el programa no da ningun tipo de error, es decir, se comporta como si hubiera insertado los datos, pero cuando reviso la base de datos está completamente vacía. Yo ya no sé que hacer, he intentado con transacciones y demás historias pero me estoy volviendo loco y esto no funciona.

Puede alguien ayudarme por favos......GRACIAS.