llenar Base de Datos con un Dataset
Publicado por Castiro (1 intervención) el 03/06/2011 18:06:17
Hola, espero que me puedan ayudar con mi problema: tengo una base de datos con SQL server y la conecto con VB.net y cuando le inserto una linea nueva a el dataset todo bien pero cuando cierro el programa no se me guarda esta informacion en la base de datos. entiendo que el Dataset guarda la tabla en memoria es por eso que cuando cierro el programa se borra todo. he leido mucho para lograr esto pero no me funciona nada nose que estoy haciendo mal anexo el codigo que estoy usando para que me corrigan.
de antemano Gracias.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim registro As DataSet4.FichasPautaRow
registro = DataSet41.FichasPauta.NewFichasPautaRow
registro.IdPauta = txtIDPauta.Text
registro.Nombre = txtNombre.Text
registro.Hora = ComboBox1.SelectedItem
registro.Dias = ComboBox2.SelectedItem
registro.FechaInicio = DateTimePicker1.Value.Date
registro.FechaFin = DateTimePicker2.Value.Date
If envivo.Checked = True Then
registro.ProgramaenVivo = "S"
registro.Programa = ComboBox3.SelectedItem
If corte1.Checked Then
registro.Corte1 = "S"
End If
If corte2.Checked Then
registro.Corte2 = "S"
End If
End If
DataSet41.FichasPauta.Rows.Add(registro)
Me.BindingContext(Me.DataSet41, "FichasPauta").EndCurrentEdit()
Me.SqlDataAdapter1.Update(Me.DataSet41, "FichasPauta")
Me.DataSet41.AcceptChanges()
Me.DataSet41.Clear()
Me.SqlDataAdapter1.Fill(Me.DataSet41)
End Sub
de antemano Gracias.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim registro As DataSet4.FichasPautaRow
registro = DataSet41.FichasPauta.NewFichasPautaRow
registro.IdPauta = txtIDPauta.Text
registro.Nombre = txtNombre.Text
registro.Hora = ComboBox1.SelectedItem
registro.Dias = ComboBox2.SelectedItem
registro.FechaInicio = DateTimePicker1.Value.Date
registro.FechaFin = DateTimePicker2.Value.Date
If envivo.Checked = True Then
registro.ProgramaenVivo = "S"
registro.Programa = ComboBox3.SelectedItem
If corte1.Checked Then
registro.Corte1 = "S"
End If
If corte2.Checked Then
registro.Corte2 = "S"
End If
End If
DataSet41.FichasPauta.Rows.Add(registro)
Me.BindingContext(Me.DataSet41, "FichasPauta").EndCurrentEdit()
Me.SqlDataAdapter1.Update(Me.DataSet41, "FichasPauta")
Me.DataSet41.AcceptChanges()
Me.DataSet41.Clear()
Me.SqlDataAdapter1.Fill(Me.DataSet41)
End Sub
Valora esta pregunta
0