MERGE NO FUNCIONA... URGENTE, LLEVO UNA SEMANA CON EL PROBLEMA

21/03/2005 - 17:20 por kirck | Informe spam
Hice un proyecto desde 0 con un solo formulario y 3 botones

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Me.OleDbDataAdapter1.Fill(Me.DsMdb1) ' Este guarda mi tabla hecha en access

Me.SqlDataAdapter1.Fill(Me.DsSQL1, "CtrlEmb") 'Este guarda mi tabla heca en
sqlServer

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Me.DsSQL1.Merge(Me.DsMdb1)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click

Me.DsSQL1.AcceptChanges()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click

Me.SqlDataAdapter1.Update(Me.DsSQL1, "CtrlEmb")

End Sub
 

Leer las respuestas

#1 Marcos Mellibovsky
26/03/2005 - 15:04 | Informe spam
No entiendo bien que queres hacer, si presionas el boton 1 hacer el Merge.
Si luego presionas el 2 al hacer el acceptchanges estas impiediendo que el
update del boton 3 actualice registros porque con acceptchages le decis que
ya estan actualizados

si lo que queres es pasar registros
Marcos Mellibovsky
MCAD - MCSD - MCSE - MCDBA
Cordoba - Argentina del msb as sql presiona el 1 y luego el 3

Saludos

"kirck" escribió en el mensaje
news:
Hice un proyecto desde 0 con un solo formulario y 3 botones

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Me.OleDbDataAdapter1.Fill(Me.DsMdb1) ' Este guarda mi tabla hecha en


access

Me.SqlDataAdapter1.Fill(Me.DsSQL1, "CtrlEmb") 'Este guarda mi tabla heca


en
sqlServer

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Me.DsSQL1.Merge(Me.DsMdb1)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click

Me.DsSQL1.AcceptChanges()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click

Me.SqlDataAdapter1.Update(Me.DsSQL1, "CtrlEmb")

End Sub


Preguntas similares