Que estoy haciendo mal?

25/04/2005 - 16:20 por SAM | Informe spam
Hola grupo, lo que quiero hacer alta, baja y modificacion,
la modificacion sale bienel problemason los otrosdos, estoy
usando, ado.net vb.net 2003 access 2003

esto es lo que hago en el boton Borrar:
como comentario, no se porque no lo borra de la BD, o sea,
lo boprra en el dataset pero me esta faltando algo que lo
borre completamente de la BD, es lo mismo que el Agregado
no, poque los dos me hacen lo mismo, me modifica el dataset
pero no la BD

-
Dim oDataRCol As DataRowCollection = oDataSet.
Tables("Clientes").Rows
Dim oCmdBld As New System.Data.OleDb.
OleDbCommandBuilder(Modulo.oAdapter)

oDataRCol.Item(DataGrid1.CurrentCell.RowNumber).
Delete()
oDataSet.Tables("Clientes").AcceptChanges()
oCmdBld.DataAdapter.Update(oDataSet, "Clientes")
-

Este es el de agrgado(con el de modificacion incluido :D)

Dim oCmdBld As New System.Data.OleDb.
OleDbCommandBuilder(Modulo.oAdapter)
cargoclienteTXT()
guardocliente()
If Que = "Add" Then
oDataRow = oDataSet.Tables("Clientes").NewRow
oDataRow.Item("cuit") = CStr(oCliente.cui)
oDataRow.Item("Direccion") = CStr(oCliente.Dir)
oDataRow.Item("Localidad") = CStr(oCliente.
local)
oDataRow.Item("provincia") = CStr(oCliente.
prov)
oDataRow.Item("razonsocial") = CStr(oCliente.
RSocial)
oDataRow.Item("tel_mail") = CStr(oCliente.
t_mail)
oDataRow.Item("contacto") = CStr(oCliente.
contact)
oDataSet.Tables("Clientes").Rows.Add(oDataRow)
oDataSet.Tables("Clientes").AcceptChanges()
End If

oCmdBld.DataAdapter.Update(oDataSet, "Clientes")


Cualquier sugerencia es valida, ya sea de como hacer lo que
estoy consultado, como tbien en si estoy codificacndo bien

ya que soy nuevo en esto.

Muchas Gracias

*Bonus: alguien sabe como modificar el alto de un listbox?
ya que le modifico la propiedad de alto pero no me hace
caso.
 

Leer las respuestas

#1 Gonch
26/04/2005 - 02:36 | Informe spam
Creo que lo que falla es el orden de las instrucciones DataAdapter.Update()
y ds.AcceptChanges()
Codifica el Udate antes que el AcceptChanges si kieres conservar los
cambios.

Espero que te sirva., saludos

"SAM" escribió en el mensaje
news:035901c549a1$f49e6230$
Hola grupo, lo que quiero hacer alta, baja y modificacion,
la modificacion sale bienel problemason los otrosdos, estoy
usando, ado.net vb.net 2003 access 2003

esto es lo que hago en el boton Borrar:
como comentario, no se porque no lo borra de la BD, o sea,
lo boprra en el dataset pero me esta faltando algo que lo
borre completamente de la BD, es lo mismo que el Agregado
no, poque los dos me hacen lo mismo, me modifica el dataset
pero no la BD

-
Dim oDataRCol As DataRowCollection = oDataSet.
Tables("Clientes").Rows
Dim oCmdBld As New System.Data.OleDb.
OleDbCommandBuilder(Modulo.oAdapter)

oDataRCol.Item(DataGrid1.CurrentCell.RowNumber).
Delete()
oDataSet.Tables("Clientes").AcceptChanges()
oCmdBld.DataAdapter.Update(oDataSet, "Clientes")
-

Este es el de agrgado(con el de modificacion incluido :D)

Dim oCmdBld As New System.Data.OleDb.
OleDbCommandBuilder(Modulo.oAdapter)
cargoclienteTXT()
guardocliente()
If Que = "Add" Then
oDataRow = oDataSet.Tables("Clientes").NewRow
oDataRow.Item("cuit") = CStr(oCliente.cui)
oDataRow.Item("Direccion") = CStr(oCliente.Dir)
oDataRow.Item("Localidad") = CStr(oCliente.
local)
oDataRow.Item("provincia") = CStr(oCliente.
prov)
oDataRow.Item("razonsocial") = CStr(oCliente.
RSocial)
oDataRow.Item("tel_mail") = CStr(oCliente.
t_mail)
oDataRow.Item("contacto") = CStr(oCliente.
contact)
oDataSet.Tables("Clientes").Rows.Add(oDataRow)
oDataSet.Tables("Clientes").AcceptChanges()
End If

oCmdBld.DataAdapter.Update(oDataSet, "Clientes")


Cualquier sugerencia es valida, ya sea de como hacer lo que
estoy consultado, como tbien en si estoy codificacndo bien

ya que soy nuevo en esto.

Muchas Gracias

*Bonus: alguien sabe como modificar el alto de un listbox?
ya que le modifico la propiedad de alto pero no me hace
caso.

Preguntas similares