Visual Basic - Añadir Registros a un .TXT desde consulta SQL

Life is soft - evento anual de software empresarial
   
Vista:

Añadir Registros a un .TXT desde consulta SQL

Publicado por Juan Pelaez (9 intervenciones) el 04/08/2011 13:59:56
Saludos,

Tengo un programa que hace una consulta SQL a una base de datos de un AS400 ( base de datos muy simple, CAMPOA, CAMPOB ), desearía acceder a esta base de datos ( en esto no tengo problema ) y leer todos los registros para añadirlos a un fichero TXT con la particularidad que desearia cada registro en columnas :

Regsitro 1 : CAMPOA CAMPOB
Registro 2 : CAMPOA CAMPOB
Registro 3 : CAMPOA CAMPOB
.
.
.
.
.
.

¿ Puede alguien aydarme .... ?
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

Añadir Registros a un .TXT desde consulta SQL

Publicado por apacheco (63 intervenciones) el 12/08/2011 13:59:59
Los datos de los campos son alfabeticos, numericos ..... etc

Con que trabajas ADO, DAO, RDO .....

Te puedo indicar una forma de hacerlo pero nunca te quedaran encolumnados perfectamente

dim resultado as string
dim recordset as ADODB.Recordset

resultado=vbullstring

sSql = " SELECT campoa, campob FROM ........ WHERE ......"

set recordset = Conexion.Execute(sSql) donde Conexion es la conexion a la base de datos

Do Until recordset.Eof
if resultado <> vbnullstring then
resultado = resultado & VbCrLF
endif

resultado = resultado & campoa & Space(10) & campoB

recordset.movenext
loop

recordset.close
Set recordset = Nothing

Puedes sutituir el Space(10) por uno o vario saltos de tabulador (No INtro)
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