Visual Basic.NET - Exportar a CSV sin headers

 
Vista:
Imágen de perfil de Oscar
Val: 65
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Oscar (31 intervenciones) el 23/03/2018 19:53:43
Buenas quisiera poder exportar a CSV desde vb.net- asp.net sin los headers pero aun no encuentro la manera asi es como tengo ahorita mi codigo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
If iva = 0 Then
 
	connetionString = "Data Source=DESKTOP-LD02VBB;Initial Catalog=SIR;Persist Security Info=True;User ID=sa;Password=123"
 
	firstSql = " Select  cia = " + "'" + Cia.Text + "'" + ",suc = " + "'" + Suc.Text + "'" + ",dep = " + "'" + Dep.Text + "'" + ",tipos,folio,usuarioas400,Descripcion,proveedor1,FechaDoc =  " + "'" + FechaDoc + "'" + ",id_prov_Hdz = " + "'" + Prov.Text + "'" + ",tipodemoneda " &
		" ,Serie,Numero,GPO = " + "'" + gpototal.Text + "'" + ",CON = " + "'" + contotal.Text + "'" + ",CantidadD,UM,importeunitario,Importe = " + "'" + Imp.Text + "'" + ",estatusse,FolioSe,estatusdecarga,estatusdeaprobacion,Error,usuariodetransmision,pcqueenviadatos " &
		",programa" &
		",FechaCaptura =  " + "'" + FechaCaptura + "'" + ",HoraCaptura =  " + "'" + HoraCaptura + "'" + " " &
		"From [SIR].[SIR].[SIR_60_REFERENCIAS] " &
		" Left Join   [dbo].[ClientesHerdez] As CH On [SIR].[SIR].[SIR_60_REFERENCIAS].nIdImex07 = CH.id_sclave_reco " &
		"Left Join  [SIR].[SIR].[SIR_188_FACTURAS_REFERENCIAS] As FAC On [SIR].[SIR].[SIR_60_REFERENCIAS].nIdReferencia60 = FAC.nIdReferencia60 " &
		"Left Join  [SIR].[SIR].[SIR_52_FACTURAS] As FA On FAC.nIdFactura52 = FA.nIdFactura52 " &
		"Left Join  [dbo].[Prov_Herdez]As PH On FA.nIdProveedor42 = PH.id_prov_reco " &
		"LEFT JOIN [SIR].[Admin].[SIR_VT_Sabana_PedimentoMarcos] as SB ON [SIR].[SIR].[SIR_60_REFERENCIAS].nIdReferencia60 = SB.ID " &
		" where [sReferencia] = " + "'" + TextBoxReferencia.Text + "'" + " "
 
	secondSql = ""
 
	connection = New SqlConnection(connetionString)
	Try
		connection.Open()
		command = New SqlCommand(firstSql, connection)
		adapter.SelectCommand = command
		adapter.Fill(ds, "Table(0)")
		adapter.Dispose()
		command.Dispose()
		connection.Close()
 
		dt = ds.Tables(0)
		' dt.Rows(0).Delete()
 
		For i = 0 To dt.Rows.Count - 1
			MsgBox(dt.Rows(i).Item(0) & "  --  " & dt.Rows(i).Item(1))
		Next
	Catch ex As Exception
 
		'MsgBox("Can not open connection ! ")
 
	End Try
	Response.Clear()
 
	Response.Buffer = True
	Response.AddHeader("Content-Disposition", "attachment;filename=Herdez.csv")
	Response.ContentType = "application/text"
	Dim sb As New StringBuilder()
 
	For k As Integer = 0 To dt.Columns.Count - 1
 
		'add separator
 
		sb.Append(dt.Columns(k).ColumnName + ","c)
 
	Next
 
	'append new line
 
	sb.Append(vbCr & vbLf)
 
	For i As Integer = 1 To dt.Rows.Count - 1
 
		For k As Integer = 1 To dt.Columns.Count - 1
 
			'add separator
 
			sb.Append(dt.Rows(i)(k).ToString().Replace(",", ";") + ","c)
 
		Next
 
		'append new line
 
		sb.Append(vbCr & vbLf)
 
	Next
 
	Response.Output.Write(sb.ToString())
	Response.Flush()
 
	Response.End()
End If
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
sin imagen de perfil
Val: 153
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Yamil Bracho (631 intervenciones) el 23/03/2018 20:19:18
Comentariza donde muestras los nombres de las columnas, o sea estas

1
2
3
4
For k As Integer = 0 To dt.Columns.Count - 1
      'add separator
     sb.Append(dt.Columns(k).ColumnName + ","c)
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Oscar
Val: 65
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Oscar (31 intervenciones) el 23/03/2018 20:29:58
Hola gracias por la ayuda

Solo que si lo comento ahora no me muestra ninguna fila
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 153
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Yamil Bracho (631 intervenciones) el 23/03/2018 20:44:47
jajaja, como que fue peor el remedio que la enfermedad... vamos a ver...

Debes tener el codigo que comentarizaste en

'For k As Integer = 0 To dt.Columns.Count - 1
'add separator
'sb.Append(dt.Columns(k).ColumnName + ","c)
'Next

Coloca un puntod e interrupcion en la linea donde termina el loop de la data, es decir,
Next

Response.Output.Write(sb.ToString()) <-- Coloca el punto de interrupcion aqui
Response.Flush()

Cuando se detenga la ejecucion de la aplicacion en la linea donde colocaste la interrupcion chequea el valor de sb
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Oscar
Val: 65
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Oscar (31 intervenciones) el 23/03/2018 20:55:28
dejo esta parte comentada?

'For k As Integer = 0 To dt.Columns.Count - 1
'add separator
'sb.Append(dt.Columns(k).ColumnName + ","c)
'Next

sin comentar nada esta es la informacion que me trai el sb

{cia,suc,dep,tipos,folio,usuarioas400,Descripcion,proveedor1,FechaDoc,id_prov_Hdz,tipodemoneda,Serie,Numero,GPO,CON,CantidadD,UM,importeunitario,Importe,estatusse,FolioSe,estatusdecarga,estatusdeaprobacion,Error,usuariodetransmision,pcqueenviadatos,programa,FechaCaptura,HoraCaptura,,,,,,,,,20180323,,,,,321,12,,,,618.00,,,,,,,,,20180323,1410,}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 153
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Yamil Bracho (631 intervenciones) el 23/03/2018 21:00:01
Si, dejala comentaza porque ene sa parte te agrega la linea de encabezados de los nombres de los campos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Oscar
Val: 65
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Oscar (31 intervenciones) el 23/03/2018 21:11:49
bueno grax checare de nuevo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Oscar
Val: 65
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Oscar (31 intervenciones) el 23/03/2018 21:13:49
ya me fije si quita los primeros campos ahora la primera fila me la deja en blanco asi esta bien?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 153
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Yamil Bracho (631 intervenciones) el 23/03/2018 21:28:00
Si, porque tiene un salto de linea despues del bloque se comentarizo

sb.Append(vbCr & vbLf)

comentariza ese tambien y asi eliminas la linea en blanco...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Oscar
Val: 65
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Exportar a CSV sin headers

Publicado por Oscar (31 intervenciones) el 23/03/2018 21:38:44
ya pude esque habia dos lineas y solo comente una grax
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar