Visual Basic.NET - ayudacon DATASET

   
Vista:

ayudacon DATASET

Publicado por raul (24 intervenciones) el 20/05/2009 15:42:44
saludos
tengo una tabla y esta la necesito actualizar varios campos de la misma
ahora bien dentro de VB 6 existe el movenext. moveprevius,

en vb.net como se substituye eso

Gracias espero puedan ayudarme
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayudacon DATASET

Publicado por Juan Carlos (3 intervenciones) el 20/05/2009 17:26:39
Hola Raul.

Pues mira, tienes varias opciones:

1. Te puedes declarar una variable del tipo integer, y recorrer el dataset con la colección de Rows. Ej. Dataset1.tables(tabla).rows(variable).item(campo).value
El movenext y el moveprevious de vb6 sería variable += 1 y variable -= 1

2. Puedes crearte un objeto bindingsource, y pasarle el dataset1.tables(tabla) como datasource. Ej.: bindingsource1.datasource = ds.tables(0). el objeto bindingsource tiene los métodos movenext, movelast, etc...

3. También puedes pasarle al bindingsource, en lugar del datatable, una vista. Ej.: bindingsource1.datasource = ds.tables(0).defaultview. De esta manera podrás trabajar de una manera más dinámica, filtrando resultado y demás.

Espero que te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayudacon DATASET

Publicado por beatriz (31 intervenciones) el 20/05/2009 20:31:22
espero te sirva, este es el codigo que tengo en mis botones de desplazamiento
boton inicio:
Me.BindingContext(DataSet11, "ejemplo").Position = 0
boton anterior
Me.BindingContext(DataSet11, "ejemplo").Position = (Me.BindingContext(DataSet11, "Ejemplo").Position - 1)
siguiente:
Me.BindingContext(DataSet11, "ejemplo").Position = (Me.BindingContext(DataSet11, "ejemplo").Position + 1)
final
Me.BindingContext(DataSet11, "EJEMPLO").Position = _
Me.BindingContext(DataSet11, "EJEMPLO").Count - 1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayudacon DATASET

Publicado por raul (1 intervención) el 21/05/2009 14:56:02
ok ya tengo este codigo
pero como se hace automatico pasar registro por registro sin un boton de avance
gracias por la ayuda

Dim ds As New DataSet
Dim bind As New BindingSource
sql = "SELECT * FROM formulas"
da = New OleDb.OleDbDataAdapter("select * from formulas", Cn)
Label1.Visible = True : Txtform.Visible = True
da.FillSchema(ds, SchemaType.Source, "formulas")
da.Fill(ds, "formulas") : Cn.Close()
bind.DataSource = ds
bind.DataMember = "formulas"
Txtform.DataBindings.Add(New Binding("text", bind, "codmp1", True))
MsgBox("Registro: " & bind.Position.ToString & " / " & bind.Count.ToString)
bind.Position = bind.Position + 1
MsgBox("Registro: " & bind.Position.ToString & " / " & bind.Count.ToString)
Me.BindingContext(ds, "codmp1").Position = (Me.BindingContext(ds, "codmp1").Position + 1)
Txtform.DataBindings.Add(New Binding("text", bind, "codmp1", True))

espero puedan ayudarme
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar