guardar en base de datos con acces y vb.net

[kass_mad]

hola a todos tengo lo siguiente , estoy trabajando con una base de datos echa en access y vb.net , una aplicacion donde me muestra una grilla donde yo pueda editar esos valores desde la grilla o mediante textbox, para que me funcione lo estoy haciendo desde la grilla ya sea para ingresar un valor nuevo o actualizar uno presionando un boton y que este me dija que se guardaron los datos.....el problema es que ingreso y solo lo guarda en memoria , no en la base , al salir los datos no estan....

este es mi codigo que uso haber si me pueden ayudar, solo tengo la instruccion editar ojala me puedan ayudar gracias desde ya

Código PHP:

  da.UpdateCommand.CommandText = "UPDATE cuenta SET enero = @enero ,eneroreal = @eneroreal where enero=@enero" 
 
            da.UpdateCommand.Parameters.AddWithValue("@enero", DataGridView1.CurrentRow.Cells("enero").Value) 
            da.UpdateCommand.Parameters.AddWithValue("@eneroreal", DataGridView1.CurrentRow.Cells("eneroreal").Value) 
            da.UpdateCommand.Connection = miconexion 
            DataGridView1.Update() 
            ds.Tables.Add("cuenta") 
            da.SelectCommand = da.UpdateCommand 
            da.Fill(ds.Tables("cuenta")) 
            DataGridView1.DataSource = ds.Tables("cuenta") 
            MessageBox.Show("Se Actualizo el registro con exito")  
   

[Meliseo]

Yo programo, pero no en PHP. Asi que dejando a un lado algun posible error en el codigo PHP que yo no podria ver te puedo decir que veo un poco rara tu instruccion SQL: "UPDATE cuenta SET enero = @enero ,eneroreal = @eneroreal where enero=@enero".

En la instruccion SQL vas a actualizar la columna enero (set enero = @enero), pero en la condicion where pones otra ves enero = @enero y eso no tiene mucho sentido. La condicion del where deberia ser otra

[kass_mad]

hola gracias por responder solo me equivoque al colocar el codigo dentro de un tag php pero es codigo vb.net, con respecto al where lo saco pero no me guarda tampoco, es una base de datos en access que no tiene un campo clave son solo datos guardados que lo usaban en un sistema no se si me entiendes o si me puedes ayudar gracias

[Aquaventus]

Concuerdo con Meliseo, tu instrucción SQL está mal, debería ser así :

Código SQL:

UPDATE cuenta SET eneroreal = @eneroreal WHERE enero=@enero
 

ya que si tienes un registro como este :

ENERO - ENEROREAL
1 - X
1 - Y
2 - Z

y haces esto :

Código SQL:

@enero = 1
@eneroreal = "A"
UPDATE cuenta SET enero = @enero ,eneroreal = @eneroreal WHERE enero=@enero
 

tu filtro resulta esto :

ENERO - ENEROREAL
1 - X
1 - Y

y actualizando sería esto :

ENERO - ENEROREAL
1 - A
1 - A

Como ves, lo que cambia nada mas sería EneroReal. Saludos!.

[kass_mad]

ok gracias lo arregle pero como hacer que solo guarde el elemento seleccionado de esa fila del datagrid porque me actualiza todos los eneros y eneros reales de todos los demas registros.....la hacer doble click en la grilla de esta forma lo trabajo o combiene insertar en un texbox los datos y de ahi guardar con el boton

[kass_mad]

pero solo me guardaria en memoria los datos.....salgo del programa y vuelve con los valores originales. :( no se que esta mal

[Aquaventus]

Hola kass_mad, para ello debes manejar un campo que sea PK(Primary Key) incremental, de manera que así se diferencie cada registro, y los puedas actualizar por éste nada mas :

ID - ENERO - ENEROREAL
1 - 1 - A
2 - 1 - A

Es un tema ya de manejo de SQL. Saludos!.

PDT: Podrías poner todo el código para saber que es la variable "da", creo saber que objeto es, pero por si las dudas colocalo.

[kass_mad]

si mira este es el codigo donde va el da

Dim CadenaConexion As String
CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\ejemplo.mdb;Persist Security Info=True"
Dim miconexion As New OleDbConnection(CadenaConexion)
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet

miconexion.ConnectionString = CadenaConexion

y luego viene lo que puse, se que debe tener un campo claves pero esta base de datos fue usada con vb 6 y cuando vi la base de dato me pregunte lo mismmo , es raro porque como no va a tener un capo clave, la instruccion del vb 6 es asi

If listp = "Enero" Then
Data2.Recordset.Fields("Enero") = Text1.Text
Data2.Recordset.Fields("EneroReal") = Text2.Text
End If

aca en vb.net ya no esta el objeto data tendria que modificar la base de datos?? ayuda

gracias por toda tu

[Aquaventus]

Lo que puedes hacer es primero actualizar el registro y posteriormente listar tu grilla nuevamente :

Código vb:

'BLOQUE ACTUALIZAR
        da.SelectCommand.CommandText = "UPDATE cuenta SET eneroreal = @eneroreal where enero=@enero"
 
        da.SelectCommand.Parameters.AddWithValue("@enero", DataGridView1.CurrentRow.Cells("enero").Value)
        da.SelectCommand.Parameters.AddWithValue("@eneroreal", DataGridView1.CurrentRow.Cells("eneroreal").Value)
        da.SelectCommand.Connection = miconexion
 
        miconexion.Open()
        da.SelectCommand.ExecuteNonQuery()
        miconexion.Close()
 
        'BLOQUE LISTADO
        da.SelectCommand.CommandText = "Select * from cuenta"
        da.SelectCommand.Connection = miconexion
 
        da.Fill(ds)
        miconexion.Close()
 
 
        DataGridView1.DataSource = ds.Tables(0)
 
        DataGridView1.Update()
 
        MessageBox.Show("Se Actualizo el registro con exito")
 

Saludos!.

[kass_mad]

gracias por la ayuda esta casi casi funcionando , al parecer actualiza el registro que yo solo elijo pero despues del mensaje el valor que ingreso como nuevo desaparece tambien y vuelve a quedar igual quisas el orden de las sentencias uyyy no se que pasa

gracias por la ayuda se ve que estaria funcioando pero que puede pasar que no midifica me envia el mensaje y todo me acepta el valor dato por dato pero muestra el mensaje y vuelve el valor antiguo

[Aquaventus]

en esta parte :

Código vb:

da.SelectCommand.Parameters.AddWithValue("@enero",DataGridView1.CurrentRow.Cells("enero").Value)
da.SelectCommand.Parameters.AddWithValue("@eneroreal",DataGridView1.CurrentRow.Cells("eneroreal").Value)
 

agregale el ToString() al momento de jalar el dato :

Código vb:

da.SelectCommand.Parameters.AddWithValue("@enero",DataGridView1.CurrentRow.Cells("enero").Value.ToString())
da.SelectCommand.Parameters.AddWithValue("@eneroreal",DataGridView1.CurrentRow.Cells("eneroreal").Value.ToString())
 

y nos comentas. Saludos!.

[kass_mad]

no pasa nada me esta dado desesperacion agradesco todaa tu ayuda de verdad pero no se que puede ser si el codigo esta bien .

no se que hacer

[Aquaventus]

Procura hacer seguimiento con los breakpoint, para que veas donde puede estar el problema.

[kass_mad]

ok vere eso y te comento gracias igual por todo

[germangung]

hol, vi este tema Y resulta me esta pasando los mismo... el programa datagridview me actualizar informacion, pero no me modifica losl base de datos.... y en final pudiste resolverlo????

No se si es mi computadora o mi VB esta mal o algo hice mal durante el programacion... alguien me puede ayudar?
aqui dejo el programa....
http://www.mediafire.com/download/nna50sg47hcwfgk/cono+system.rar

estoy trabajando en VB2008 con Access 2010. Agradeceria mucho por su ayuda....