Visual Basic.NET - Informàtica

   
Vista:

Informàtica

Publicado por Hector Guerrero (10 intervenciones) el 30/09/2008 22:10:13
Buenas tardes,



haber si me pueden apoyar , estoy iniciando en esto de VB.NET y requiero eliminar registros con cierta condiciòn tanto en el DATASET, ADAPTER, actualizando la fuente de datos , tengo el siguiente codigo :



Imports CrystalDecisions
Imports System.IO
Imports System.Data
Imports System.Data.Odbc
Imports System.Data.DataTable
Imports System.Data.DataTableReader
Imports System.Windows.Forms
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim db As OdbcConnection
Dim conexion As String
Dim usuario As String
Dim Password As String
Dim Driver As String
Driver = "{Firebird/InterBase(r) driver}"
usuario = "SYSDBA"
Password = "masterkey"
conexion = "DRIVER=" & Driver & "; UID=" & usuario & "; PWD=" & Password & "; DBNAME=C:NOMINAMICROSIPDATOSGRANMARK OFICINAS.FDB "
db = New OdbcConnection(conexion)
Dim dsreg As New DataSet()
Dim dareg As New Odbc.OdbcDataAdapter(" SELECT * FROM PAGOS_NOMINA_DET", conexion)
dsreg.EnforceConstraints = False
dsreg.Tables.Add(New DataTable("dareg"))
dsreg.Tables(0).BeginLoadData()
dareg.Fill(dsreg, "dareg")
dsreg.Tables(0).EndLoadData()
DataGridView1.DataSource = dsreg.Tables(0).DefaultView
db.Open()
Dim i As Integer = 0
Dim reng As DataRow
reng = dsreg.Tables.Item(0).Rows(0)
For i = 0 To (dsreg.Tables(0).Rows.Count - 1)
If reng.Table.Rows(i).Item("empleado_id") = "15176" Then
reng.Delete()
End If
i = i + 1
Next
Try

' si agrego esta linea me limpia el DATAGRID ,pero si la quito me marca error
' y no se si realmente esta eliminando el registro del DATASET y el fuente no lo

' actualiza

dsreg.Tables("dareg").Rows.Clear()
dareg.Update(dsreg, "dareg")
dsreg.AcceptChanges()
MessageBox.Show("Listo")
Catch ex As Exception
MessageBox.Show("Error")
End Try
MessageBox.Show("finalizo")
End Sub
End Class





Lo que necesito es que en el FOR elimine los registros y se actualicen tanto en DATASET como la fuente



agradezco de antemano su apoyo y disculpen si acaso tengo lineas de màs ( si me las pueden indicar para depurar el codigo estarìa excelente ) ; pero a duras penas he generado este codigo





Gracias de antemano

hguerrerov71@hotmail.com

Hèctor guerrero
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

eliminar registros de DATASET

Publicado por Hèctor Guerrero (10 intervenciones) el 30/09/2008 22:12:26
Buenas tardes,

Disculpas, modifique el titulo de la nota

haber si me pueden apoyar , estoy iniciando en esto de VB.NET y requiero eliminar registros con cierta condiciòn tanto en el DATASET, ADAPTER, actualizando la fuente de datos , tengo el siguiente codigo :



Imports CrystalDecisions
Imports System.IO
Imports System.Data
Imports System.Data.Odbc
Imports System.Data.DataTable
Imports System.Data.DataTableReader
Imports System.Windows.Forms
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim db As OdbcConnection
Dim conexion As String
Dim usuario As String
Dim Password As String
Dim Driver As String
Driver = "{Firebird/InterBase(r) driver}"
usuario = "SYSDBA"
Password = "masterkey"
conexion = "DRIVER=" & Driver & "; UID=" & usuario & "; PWD=" & Password & "; DBNAME=C:NOMINAMICROSIPDATOSGRANMARK OFICINAS.FDB "
db = New OdbcConnection(conexion)
Dim dsreg As New DataSet()
Dim dareg As New Odbc.OdbcDataAdapter(" SELECT * FROM PAGOS_NOMINA_DET", conexion)
dsreg.EnforceConstraints = False
dsreg.Tables.Add(New DataTable("dareg"))
dsreg.Tables(0).BeginLoadData()
dareg.Fill(dsreg, "dareg")
dsreg.Tables(0).EndLoadData()
DataGridView1.DataSource = dsreg.Tables(0).DefaultView
db.Open()
Dim i As Integer = 0
Dim reng As DataRow
reng = dsreg.Tables.Item(0).Rows(0)
For i = 0 To (dsreg.Tables(0).Rows.Count - 1)
If reng.Table.Rows(i).Item("empleado_id") = "15176" Then
reng.Delete()
End If
i = i + 1
Next
Try

' si agrego esta linea me limpia el DATAGRID ,pero si la quito me marca error
' y no se si realmente esta eliminando el registro del DATASET y el fuente no lo

' actualiza

dsreg.Tables("dareg").Rows.Clear()
dareg.Update(dsreg, "dareg")
dsreg.AcceptChanges()
MessageBox.Show("Listo")
Catch ex As Exception
MessageBox.Show("Error")
End Try
MessageBox.Show("finalizo")
End Sub
End Class





Lo que necesito es que en el FOR elimine los registros y se actualicen tanto en DATASET como la fuente



agradezco de antemano su apoyo y disculpen si acaso tengo lineas de màs ( si me las pueden indicar para depurar el codigo estarìa excelente ) ; pero a duras penas he generado este codigo





Gracias de antemano

hguerrerov71@hotmail.com

Hèctor guerrero
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