Buen Día, les escribo porque la verdad he buscado y he desarmado el query como 20 veces y la verdad no entiendo el problema que tengo.
Tengo el siguiente codigo:
donde la primera parte se labre un libro en excel y se lee la hoja, luego realizo la consulta a toda la hoja y luego realizo el insert para cada columna en SQL
los .replaces es porque hay celdas que estan en blanco y las reemplazo por un guion (-) para que no me de error el insert.
Que es lo que me pasa... la hoja tiene 15736 filas el insert funciona perfecto, es decir inserta todas las filas del excel a la base de datos en SQL peo que pasa la columna Variable_Values (columna 32) tiene valor toda la columna y no me esta tomando eso valores y en vez de colocarme el valor que sale en la hoja de excel lo deja en blanco, ¿por que me pasa esto? Trabajo con SQL y Visual Studio
Si alguien puede ayudarme GRACIAS!!!
Código vb:
Ver originalconexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BuscarArchivo.FileName & " ; Extended Properties= Excel 8.0;"
conexion.Open()
Dim hoja As String = Strings.Left(BuscarArchivo.SafeFileName.ToString, 31)
comando.CommandText = "SELECT * FROM [" & hoja & "$]"
comando.Connection = conexion
adaptador.SelectCommand = comando
adaptador.Fill(ds)
Form1.ProgressBar1.Minimum = 0
Form1.ProgressBar1.Maximum = ds.Tables(0).Rows.Count - 1
For Each f As DataRow In ds.Tables(0).Rows
If filas < ds.Tables(0).Rows.Count - 1 Then
Comm.CommandText = "INSERT INTO [NSO].[dbo].[Audited_Facts_regular]([Fecha_Carga],[CountryID],[ContryName],[StoreID],[NSO_StoreID],[StoreName] " & _
" ,[StoreAddres] ,[StoreStatud],[StoreComments],[StoreStarDateTime],[StoreEndDateTime],[StoreClosing]" & _
" ,[PlannetAudit],[AuditInstructionID],[SyneryMode],[IMDB_ProductID],[NSO_ProductID],[ProductName]" & _
" ,[ProductCategory],[Barcode],[ProductLevel],[ProductComment],[LocationID],[LocationName],[LocationComments]" & _
" ,[ExhibitionID],[ExhibitionName],[ExhibitionLevel],[ExhibitionPossition],[ExhibitionComment],[VariableID]" & _
" ,[VariableName],[VariableAtribute],[VariableValue],[VariableComments],[FactType],[ReUser])" & _
"VALUES('" & String.Format("{0:dd-MM-yyyy}", DateTime.Now.Date) & "','" & f(0).ToString().Replace(" ", "-") & "','" & f(1).ToString().Replace(" ", "-") & "','" & f(2).ToString() & "','" & f(3).ToString() & "','" & f(4).ToString().Replace("'", "´") _
& " ','" & f(5).ToString().Replace(" ", "-") & "','" & f(6).ToString().Replace(" ", "-") & "',' " & f(7).ToString().Replace(" ", "-") & "','" & f(8).ToString().Replace(" ", "-") _
& " ','" & f(9).ToString().Replace(" ", "-") & "',' " & f(10).ToString().Replace(" ", "-") & "','" & f(11).ToString().Replace(" ", "-") & "','" & f(12).ToString().Replace(" ", "-") _
& " ','" & f(13).ToString().Replace(" ", "-") & "','" & f(14).ToString().Replace(" ", "-") & "','" & f(15).ToString().Replace(" ", "-") & "','" & f(16).ToString().Replace(" ", "-") _
& " ','" & f(17).ToString().Replace(" ", "-") & "','" & f(18).ToString().Replace(" ", "-") & "','" & f(19).ToString().Replace(" ", "-") & "',' " & f(20).ToString().Replace(" ", "-") _
& " ','" & f(21).ToString().Replace(" ", "-") & "','" & f(22).ToString().Replace(" ", "-") & "','" & f(23).ToString().Replace(" ", "-") & "','" & f(24).ToString().Replace(" ", "-") _
& " ','" & f(25).ToString().Replace(" ", "-") & "','" & f(26).ToString().Replace(" ", "-") & "','" & f(27).ToString().Replace(" ", "-") & "',' " & f(28).ToString().Replace(" ", "-") _
& " ','" & f(29).ToString().Replace(" ", "-") & "','" & f(30).ToString().Replace(" ", "-") & "','" & f(31).ToString().Replace(" ", "'0'") & "','" & f(32).ToString().Replace(" ", "'0'") _
& " ','" & f(33).ToString().Replace(" ", "-") & "','" & f(34).ToString().Replace(" ", "-") & "','NULL')"
Comm.Connection = Cone
inserts = inserts + Comm.ExecuteNonQuery()
filas = filas + 1
Form1.ProgressBar1.Value = Form1.ProgressBar1.Value + 1
Application.DoEvents()
End If
Next