Visual Basic.NET - Editar Datatable y guardar a SQL

 
Vista:
sin imagen de perfil
Val: 8
Ha aumentado su posición en 7 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Editar Datatable y guardar a SQL

Publicado por Hu (5 intervenciones) el 26/03/2018 23:37:31
Saludos,

Estoy leyendo una tabla de Access, la cargo a un Datatable, le agrego una columna extra y por cada fila le agrego un valor a la nueva columna, luego me conecto a SQL y guarda ese Datatable.

Me sucede que en SQL no se esta guardando la columna nueva con su valor que agrego, pero si lo cargo a un datagridview, si logro ver la columna con el valor que agrego.

Alguna ayuda,
Gracias,




Dim cmd As New SqlCommand()
Dim connOrigen As OleDbConnection
Dim connDestino As SqlConnection
Dim tabla As New DataTable

cadenaconexionorigen = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=<ubicación de access>;Jet OLEDB:Database Password=<Contraseña>;”
cadenaconexiondestino = "Server=.\SQLEXPRESS;Database=RenotecDataExport;User Id=sa;Password=<password>
connOrigen = New OleDbConnection(cadenaconexionorigen)
Dim da As New OleDbDataAdapter("Select * From HINVOICE Where (((HINVOICE.DOB) = #3/25/2018#))", connOrigen)
da.Fill(tabla)
'Dim ds As New DataSet
'da.Fill(ds)
tabla.Columns.Add("Unit", GetType(Integer))

For Each newRow As DataRow In tabla.Rows
newRow("Unit") = "1"

Next

DataGridView1.DataSource = tabla

'MsgBox("Mira")


connDestino = New SqlConnection(cadenaconexiondestino)
'abro la conexión de destino
connDestino.Open()
' creo el objeto BulkCopy
Dim copia As New SqlBulkCopy(connDestino)
'le digo la tabla que va migrar
copia.DestinationTableName = “HINVOICE”
'copio los datos
copia.WriteToServer(tabla)
'cierro la conexión
connDestino.Close()
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