Modo de genrar un archivo txt

Fe de errata: Correción en el título de la pregunta
Modo de generar un archivo txt

Hola a todos,

actualmente tengo un código que me genera un archivo txt
con información proveniente a una tabla de una bd de

datos

sql_server, el código que utilizó es el siguiente:

<%
Set act = fso.CreateTextFile(server.mappath
("Archivo_Pauta_Meridiano.txt"), true)
i=0

oRsP.open " Select *from Movimientos_Pauta", oConn, 1, 1

do while not oRsP.EOF

txt = "('" & oRsP.Fields("Nb_Producto") & "'),(" &
oRsP.Fields("Nu_Columnas") & "),(" & oRsP.Fields
("Nu_Alto") & "),('" & oRsP.Fields("Tx_Observaciones")
& "') " & vbcrlf


act.WriteLine(txt)
i=i+1

oRsP.MoveNext
loop
act.Close

%>

y como resulatdo de ello cada celda en el archvio txt se
ve reflejada de la siguiente manera:

('publicidad'),(6col),(32cm)

y me gustaría que se viese reflejada como:

publicidad,6col,32cm

dado a que este archivo tiene que exportarse a un

programa

de diagramación.

en el query intenté quitarles los paréntesis pero me
arrojaba error de sintaxys, es por ello que como puedo
hacer para que esos registros aparezcan sin parentesis...

Gracias...
.

txt = oRsP.Fields("Nb_Producto") & "," oRsP.Fields("Nu_Columnas") & ","
oRsP.Fields("Tx_Observaciones")

Si pones & vbcrlf, tendrás una línea intermedia en blanco

Sashka


"Eduardo" escribió en el mensaje
news:c97d01c48a09$b459cfa0$
Hola a todos,

actualmente tengo un código que me genera un archivo txt
con información proveniente a una tabla de una bd de datos
sql_server, el código que utilizó es el siguiente:

<%
Set act = fso.CreateTextFile(server.mappath
("Archivo_Pauta_Meridiano.txt"), true)
i=0

oRsP.open " Select *from Movimientos_Pauta", oConn, 1, 1

do while not oRsP.EOF

txt = "('" & oRsP.Fields("Nb_Producto") & "'),(" &
oRsP.Fields("Nu_Columnas") & "),(" & oRsP.Fields
("Nu_Alto") & "),('" & oRsP.Fields("Tx_Observaciones")
& "') " & vbcrlf


act.WriteLine(txt)
i=i+1

oRsP.MoveNext
loop
act.Close

%>

y como resulatdo de ello cada celda en el archvio txt se
ve reflejada de la siguiente manera:

('publicidad'),(6col),(32cm)

y me gustaría que se viese reflejada como:

publicidad,6col,32cm

dado a que este archivo tiene que exportarse a un programa
de diagramación.

en el query intenté quitarles los paréntesis pero me
arrojaba error de sintaxys, es por ello que como puedo
hacer para que esos registros aparezcan sin parentesis...

Gracias...

Me arroja error de sintaxys, y no quiero una línea
intermedia sino que no aparescan comillas..

Muchas Gracias...

txt = oRsP.Fields("Nb_Producto") & "," oRsP.Fields

("Nu_Columnas") & ","

oRsP.Fields("Tx_Observaciones")

Si pones & vbcrlf, tendrás una línea intermedia en

blanco

Sashka


"Eduardo" escribió

en el mensaje

news:c97d01c48a09$b459cfa0$
Hola a todos,

actualmente tengo un código que me genera un archivo txt
con información proveniente a una tabla de una bd de datos
sql_server, el código que utilizó es el siguiente:

<%
Set act = fso.CreateTextFile(server.mappath
("Archivo_Pauta_Meridiano.txt"), true)
i=0

oRsP.open " Select *from Movimientos_Pauta", oConn, 1, 1

do while not oRsP.EOF

txt = "('" & oRsP.Fields("Nb_Producto") & "'),(" &
oRsP.Fields("Nu_Columnas") & "),(" & oRsP.Fields
("Nu_Alto") & "),('" & oRsP.Fields("Tx_Observaciones")
& "') " & vbcrlf


act.WriteLine(txt)
i=i+1

oRsP.MoveNext
loop
act.Close

%>

y como resulatdo de ello cada celda en el archvio txt se
ve reflejada de la siguiente manera:

('publicidad'),(6col),(32cm)

y me gustaría que se viese reflejada como:

publicidad,6col,32cm

dado a que este archivo tiene que exportarse a un programa
de diagramación.

en el query intenté quitarles los paréntesis pero me
arrojaba error de sintaxys, es por ello que como puedo
hacer para que esos registros aparezcan sin parentesis...

Gracias...


.

Disculpa faltaron los & despues de cada ","

txt = oRsP.Fields("Nb_Producto") & "," & oRsP.Fields("Nu_Columnas") & ","
& oRsP.Fields("Tx_Observaciones")

Si todos los campos son texto... también puedes usar el signo + en lugar de
&

Sashka
MS MVP Access


"Eduardo" escribió en el mensaje
news:c51401c48a14$e5b267f0$
Me arroja error de sintaxys, y no quiero una línea
intermedia sino que no aparescan comillas..

Muchas Gracias...

txt = oRsP.Fields("Nb_Producto") & "," oRsP.Fields

("Nu_Columnas") & ","

oRsP.Fields("Tx_Observaciones")

Si pones & vbcrlf, tendrás una línea intermedia en

blanco

Sashka


"Eduardo" escribió

en el mensaje

news:c97d01c48a09$b459cfa0$
Hola a todos,

actualmente tengo un código que me genera un archivo txt
con información proveniente a una tabla de una bd de datos
sql_server, el código que utilizó es el siguiente:

<%
Set act = fso.CreateTextFile(server.mappath
("Archivo_Pauta_Meridiano.txt"), true)
i=0

oRsP.open " Select *from Movimientos_Pauta", oConn, 1, 1

do while not oRsP.EOF

txt = "('" & oRsP.Fields("Nb_Producto") & "'),(" &
oRsP.Fields("Nu_Columnas") & "),(" & oRsP.Fields
("Nu_Alto") & "),('" & oRsP.Fields("Tx_Observaciones")
& "') " & vbcrlf


act.WriteLine(txt)
i=i+1

oRsP.MoveNext
loop
act.Close

%>

y como resulatdo de ello cada celda en el archvio txt se
ve reflejada de la siguiente manera:

('publicidad'),(6col),(32cm)

y me gustaría que se viese reflejada como:

publicidad,6col,32cm

dado a que este archivo tiene que exportarse a un programa
de diagramación.

en el query intenté quitarles los paréntesis pero me
arrojaba error de sintaxys, es por ello que como puedo
hacer para que esos registros aparezcan sin parentesis...

Gracias...


.

Muchas Gracias...

Disculpa faltaron los & despues de cada ","

txt = oRsP.Fields("Nb_Producto") & "," & oRsP.Fields

("Nu_Columnas") & ","

& oRsP.Fields("Tx_Observaciones")

Si todos los campos son texto... también puedes usar el

signo + en lugar de

&

Sashka
MS MVP Access


"Eduardo" escribió

en el mensaje

news:c51401c48a14$e5b267f0$
Me arroja error de sintaxys, y no quiero una línea
intermedia sino que no aparescan comillas..

Muchas Gracias...

txt = oRsP.Fields("Nb_Producto") & "," oRsP.Fields

("Nu_Columnas") & ","

oRsP.Fields("Tx_Observaciones")

Si pones & vbcrlf, tendrás una línea intermedia en

blanco

Sashka


"Eduardo" escribió

en el mensaje

news:c97d01c48a09$b459cfa0$
Hola a todos,

actualmente tengo un código que me genera un archivo txt
con información proveniente a una tabla de una bd de

datos

sql_server, el código que utilizó es el siguiente:

<%
Set act = fso.CreateTextFile(server.mappath
("Archivo_Pauta_Meridiano.txt"), true)
i=0

oRsP.open " Select *from Movimientos_Pauta", oConn, 1, 1

do while not oRsP.EOF

txt = "('" & oRsP.Fields("Nb_Producto") & "'),(" &
oRsP.Fields("Nu_Columnas") & "),(" & oRsP.Fields
("Nu_Alto") & "),('" & oRsP.Fields("Tx_Observaciones")
& "') " & vbcrlf


act.WriteLine(txt)
i=i+1

oRsP.MoveNext
loop
act.Close

%>

y como resulatdo de ello cada celda en el archvio txt se
ve reflejada de la siguiente manera:

('publicidad'),(6col),(32cm)

y me gustaría que se viese reflejada como:

publicidad,6col,32cm

dado a que este archivo tiene que exportarse a un

programa

de diagramación.

en el query intenté quitarles los paréntesis pero me
arrojaba error de sintaxys, es por ello que como puedo
hacer para que esos registros aparezcan sin parentesis...

Gracias...


.

.