DATA ADAPTER.UPDATE
Publicado por JUAN CARLOS (5 intervenciones) el 15/02/2005 12:03:09
BUENOS DIAS ,
MI PROBLEMA ES QUE QUIERO ACTUALIZAR UNA BBDD CON EL UPDATE DEL DATA ADAPTER , PERO SOLO DE LOS DATOS CARGADOS EN EL DATASET . DE MANERA QUE SI SE AÑADEN REGISTROS MIENTRAS EL PROCESO NO HA TERMINADO , ESTOS REGISTROS NO SE TENGAN EN CUENTA .
ESTE ES EL CODIGO :
Dim cmd As New OdbcCommand
da.UpdateCommand = cmd
da.UpdateCommand.Connection = cn
da.UpdateCommand.CommandText = ("UPDATE " & taula & " SET TRGFLA = 'X' WHERE TRGFLA = ' '")
Dim PROMO As DataRow
For Each PROMO In Me.Tables("UNICA").Rows
Me.Tables("unica").Rows(0)("TRGFL1") = "N"
Next
Dim DC1 As DataSet = New DataSet
DC1 = Me.GetChanges(DataRowState.Modified)
If Me.HasChanges(DataRowState.Modified) Then
Try
da.Update(DC1, "unica")
Catch ex As OdbcException
Dim fdfs As String = ex.Message
Catch ex As System.Data.DBConcurrencyException
Dim fdfs As String = ex.Message
Dim fdffs As String = ex.HelpLink
End Try
End If
GRACIAS Y SALUDOS
MI PROBLEMA ES QUE QUIERO ACTUALIZAR UNA BBDD CON EL UPDATE DEL DATA ADAPTER , PERO SOLO DE LOS DATOS CARGADOS EN EL DATASET . DE MANERA QUE SI SE AÑADEN REGISTROS MIENTRAS EL PROCESO NO HA TERMINADO , ESTOS REGISTROS NO SE TENGAN EN CUENTA .
ESTE ES EL CODIGO :
Dim cmd As New OdbcCommand
da.UpdateCommand = cmd
da.UpdateCommand.Connection = cn
da.UpdateCommand.CommandText = ("UPDATE " & taula & " SET TRGFLA = 'X' WHERE TRGFLA = ' '")
Dim PROMO As DataRow
For Each PROMO In Me.Tables("UNICA").Rows
Me.Tables("unica").Rows(0)("TRGFL1") = "N"
Next
Dim DC1 As DataSet = New DataSet
DC1 = Me.GetChanges(DataRowState.Modified)
If Me.HasChanges(DataRowState.Modified) Then
Try
da.Update(DC1, "unica")
Catch ex As OdbcException
Dim fdfs As String = ex.Message
Catch ex As System.Data.DBConcurrencyException
Dim fdfs As String = ex.Message
Dim fdffs As String = ex.HelpLink
End Try
End If
GRACIAS Y SALUDOS
Valora esta pregunta


0