Actualizar Tabla SQLServer desde Tabla MS Access(.MDB)

en el Watch me aparece que el InsertCommand no titne nada : Nothing

al parecer el SqlCommandBuilder no está funcionando



"A.Poblacion" escribió en
el mensaje news:

"kirck" wrote in message
news:

Tambien agregué:
sqlDa.Update(dsSql, "Naves")

Tienes que QUITAR el AcceptChanges. Esta instrucción marca el dataset
como "actualizado" y por tanto el "Update" no graba nada.

Así está actualmente mi procedimiento

Sub AgregaMDB()

Dim connMdb As New OleDb.OleDbConnection

Dim commMdb As New OleDb.OleDbCommand

Dim dsmdb As New DataSet

Dim dsSql As New DataSet

Dim conn As New SqlClient.SqlConnection

Dim comm As New SqlClient.SqlCommand

Try

connMdb.ConnectionString = strConnMDB

connMdb.Open()

commMdb.Connection = connMdb

commMdb.CommandText = "Select MotoNave, Viaje" _

& " from CtrlEmb"

commMdb.CommandType = CommandType.Text

Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(commMdb)

da.Fill(dsmdb)

connMdb.Close()

conn.ConnectionString = strConnSQL

conn.Open()

comm.Connection = conn

comm.CommandText = "Select MotoNave, Viaje" _

& " from CtrlEmb"

comm.CommandType = CommandType.Text

Dim sqlDa As SqlDataAdapter = New SqlDataAdapter(comm)

Dim cb As SqlCommandBuilder = New SqlCommandBuilder(sqlDa)

sqlDa.MissingSchemaAction = MissingSchemaAction.AddWithKey

sqlDa.Fill(dsSql, "Table")

dsSql.Merge(dsmdb)

'dsSql.AcceptChanges() <-aqui ya prové activando esta instruccion

sqlDa.Update(dsSql, "Table")

conn.Close()

dsSql.WriteXml("C:\dssql.xml") ' aqui se ven bien los datos que necesito

Catch e As OleDb.OleDbException

MsgBox(e.Message)

Catch ex As SqlClient.SqlException

MsgBox(ex.Message)

End Try

End Sub

"A.Poblacion" escribió en
el mensaje news:

"kirck" wrote in message
news:

Tambien agregué:
sqlDa.Update(dsSql, "Naves")

Tienes que QUITAR el AcceptChanges. Esta instrucción marca el dataset
como "actualizado" y por tanto el "Update" no graba nada.

El procedimiento en general tiene ahora muy buen aspecto. Lo único que se me
ocurre a mi que puede estar fallando es que el método Merge deje las filas
que añade marcadas como "unchanged", en lugar de "added", que sería lo que
haría falta para que esto funcionara.

Yo probaría, por si acaso, a sustituir el dsSql.Merge(dsmdb) por algo asi
como esto:

Dim R as DataRow
For Each R in dsmdb.Tables(0).Rows
dsSql.Tables(0).Rows.Add(R.ItemArray)
Next

A ver si asi funciona.

"kirck" wrote in message
news:

Así está actualmente mi procedimiento

Sub AgregaMDB()

Dim connMdb As New OleDb.OleDbConnection

Dim commMdb As New OleDb.OleDbCommand

Dim dsmdb As New DataSet

Dim dsSql As New DataSet

Dim conn As New SqlClient.SqlConnection

Dim comm As New SqlClient.SqlCommand

Try

connMdb.ConnectionString = strConnMDB

connMdb.Open()

commMdb.Connection = connMdb

commMdb.CommandText = "Select MotoNave, Viaje" _

& " from CtrlEmb"

commMdb.CommandType = CommandType.Text

Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(commMdb)

da.Fill(dsmdb)

connMdb.Close()

conn.ConnectionString = strConnSQL

conn.Open()

comm.Connection = conn

comm.CommandText = "Select MotoNave, Viaje" _

& " from CtrlEmb"

comm.CommandType = CommandType.Text

Dim sqlDa As SqlDataAdapter = New SqlDataAdapter(comm)

Dim cb As SqlCommandBuilder = New SqlCommandBuilder(sqlDa)

sqlDa.MissingSchemaAction = MissingSchemaAction.AddWithKey

sqlDa.Fill(dsSql, "Table")

dsSql.Merge(dsmdb)

'dsSql.AcceptChanges() <-aqui ya prové activando esta instruccion

sqlDa.Update(dsSql, "Table")

conn.Close()

dsSql.WriteXml("C:\dssql.xml") ' aqui se ven bien los datos que necesito

Catch e As OleDb.OleDbException

MsgBox(e.Message)

Catch ex As SqlClient.SqlException

MsgBox(ex.Message)

End Try

End Sub

"A.Poblacion" escribió en
el mensaje news:
>
> "kirck" wrote in message
> news:
>> Tambien agregué:
>> sqlDa.Update(dsSql, "Naves")
>
> Tienes que QUITAR el AcceptChanges. Esta instrucción marca el dataset
> como "actualizado" y por tanto el "Update" no graba nada.
>
>

Me genera otros problemas de actualizacion de los registros por repeticion
de la Key

voy a probar grabar el dataset en un archivo XML y luego recuperarlo en un
dataset para hacer un merge
con mi dataset : dsSQL


"A.Poblacion" escribió en
el mensaje news:%23$IE7h%

El procedimiento en general tiene ahora muy buen aspecto. Lo único que se
me
ocurre a mi que puede estar fallando es que el método Merge deje las filas
que añade marcadas como "unchanged", en lugar de "added", que sería lo que
haría falta para que esto funcionara.

Yo probaría, por si acaso, a sustituir el dsSql.Merge(dsmdb) por algo asi
como esto:

Dim R as DataRow
For Each R in dsmdb.Tables(0).Rows
dsSql.Tables(0).Rows.Add(R.ItemArray)
Next

A ver si asi funciona.

"kirck" wrote in message
news:

Así está actualmente mi procedimiento

Sub AgregaMDB()

Dim connMdb As New OleDb.OleDbConnection

Dim commMdb As New OleDb.OleDbCommand

Dim dsmdb As New DataSet

Dim dsSql As New DataSet

Dim conn As New SqlClient.SqlConnection

Dim comm As New SqlClient.SqlCommand

Try

connMdb.ConnectionString = strConnMDB

connMdb.Open()

commMdb.Connection = connMdb

commMdb.CommandText = "Select MotoNave, Viaje" _

& " from CtrlEmb"

commMdb.CommandType = CommandType.Text

Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(commMdb)

da.Fill(dsmdb)

connMdb.Close()

conn.ConnectionString = strConnSQL

conn.Open()

comm.Connection = conn

comm.CommandText = "Select MotoNave, Viaje" _

& " from CtrlEmb"

comm.CommandType = CommandType.Text

Dim sqlDa As SqlDataAdapter = New SqlDataAdapter(comm)

Dim cb As SqlCommandBuilder = New SqlCommandBuilder(sqlDa)

sqlDa.MissingSchemaAction = MissingSchemaAction.AddWithKey

sqlDa.Fill(dsSql, "Table")

dsSql.Merge(dsmdb)

'dsSql.AcceptChanges() <-aqui ya prové activando esta instruccion

sqlDa.Update(dsSql, "Table")

conn.Close()

dsSql.WriteXml("C:\dssql.xml") ' aqui se ven bien los datos que necesito

Catch e As OleDb.OleDbException

MsgBox(e.Message)

Catch ex As SqlClient.SqlException

MsgBox(ex.Message)

End Try

End Sub

"A.Poblacion" escribió
en
el mensaje news:
>
> "kirck" wrote in message
> news:
>> Tambien agregué:
>> sqlDa.Update(dsSql, "Naves")
>
> Tienes que QUITAR el AcceptChanges. Esta instrucción marca el dataset
> como "actualizado" y por tanto el "Update" no graba nada.
>
>