Visual Basic.NET - Exportar archivo a una ubicacion especifica

 
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 archivo a una ubicacion especifica

Publicado por Oscar (31 intervenciones) el 09/04/2018 19:13:51
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
If iva = 0 Then
    'Try
    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 = " + "'" + patente.Text + "'" + " + " + "'" + Numpedimento.Text + "'" + ",GPO = " + "'" + gpototal.Text + "'" + ",CON = " + "'" + contotal.Text + "'" + ",CantidadD,UM,importeunitario = " + "'" + Imp.Text + "'" + ",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)
 
        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)
 
    For i As Integer = 0 To dt.Rows.Count - 1
        'Response.Write("<script>alert('Conexion realizada');</script>")
        'Conexion.Text = (dt.Rows(i).Item(0) & " Conexion realizada " & dt.Rows(i).Item(1))
        'Conexion.Text = "Conexion realizada"
        'Response.Write("<script>alert('Conexion realizada');</script>")
        'MsgBox(dt.Rows(i).Item(0) & " Conexion realizada " & dt.Rows(i).Item(1))
    Next
 
    Response.Clear()
 
        Response.Buffer = True
    Response.AddHeader("Content-Disposition", "attachment;filename= " + "'" + pedimentoherdez.Text + "'" + " ")
    '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 = 0 To dt.Rows.Count - 1
 
            For k As Integer = 0 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()
        ' Catch ex As Exception
 
 
    ' MsgBox("Can not open connection ! ")
 
    'End Try
End If

Hola quisiera sugerencias sobre que podria hacer al exportar el archivo csv que caiga en una cierta carpeta anteriormente especificada

gracias de antemano por el apoyo
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
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 archivo a una ubicacion especifica

Publicado por Oscar (31 intervenciones) el 10/04/2018 16:20:26
tengo este codigo solo faltaria acomodarlo bien :S

1
2
Dim x = New System.IO.StreamWriter(File)
                x.Close()
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 archivo a una ubicacion especifica

Publicado por Yamil Bracho (631 intervenciones) el 10/04/2018 16:25:10
Usa Using,,, :-)

1
2
3
4
5
6
7
Using writer As StreamWriter =
    New StreamWriter("myfile.txt")
 
    writer.Write("One ")
    writer.WriteLine("two 2")
    writer.WriteLine("Three")
End Using

Esta construccion abre el archivo le escribe y lo cierra y limpia la memoria asociada...
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 archivo a una ubicacion especifica

Publicado por Oscar (31 intervenciones) el 10/04/2018 16:32:56
Gracias Yamil siempre apoyando ,disculpa mi gran ignorancia pero en que seccion de mi codigo podria implementar ese apartado para que el archivo que generaba con datos ahora lo mande a esa ruta?

es aqui a donde intento mandarlo
1
File = "C:\Herdez\" + pedimentoherdez.Text
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 archivo a una ubicacion especifica

Publicado por Yamil Bracho (631 intervenciones) el 10/04/2018 16:36:38
Donde necesites generarlo, si es el codigo anterior colocalo donde haces tienes el for, es decir,

1
2
3
4
5
6
7
8
9
10
11
Using writer As StreamWriter = New StreamWriter("myfile.txt")
	For i As Integer = 0 To dt.Rows.Count - 1
		For k As Integer = 0 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
	writer.Write(sb.ToString())
End Using
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 archivo a una ubicacion especifica

Publicado por Oscar (31 intervenciones) el 10/04/2018 16:39:56
Entiendo esta parte
1
2
3
4
5
Response.Output.Write(sb.ToString())
 
Response.Flush()
 
Response.End()

ya no lo ocuparia?

y en este codigo pondria la ruta + el nombre del archivo?

1
Using writer As StreamWriter = New StreamWriter("C:\Herdez\" + pedimentoherdez.Text)

ya lo revise y me agrega el archivo en automatico con los datos pero me manda un mensaje si lo quiero guardar de nuevo y en donde mm a que se debera

Saludos.
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 archivo a una ubicacion especifica

Publicado por Oscar (31 intervenciones) el 11/04/2018 15:20:40
Comentando este codigo ya no me genera el cuadro de opcion para ver si quiero abrir o guardar el archivo

1
2
3
4
Response.Buffer = True
'Response.AddHeader("Content-Disposition", "attachment;filename= " + "'" + pedimentoherdez.Text + "'" + " ")
'Response.AddHeader("Content-Disposition", "attachment;filename=Herdez.csv")
'Response.ContentType = "application/text"


Ya con esto concluye lo que ocupaba , gracias por la atencion.
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