Visual Basic - SQL INSERT en Archivo TXT

Hola Grupo:

Como Puedo Copiar un Conjunto de Registros de 2 SQL Distintos A traves de un SQL INSERT desde Informix 7.3 a un Archivo TXT

Ej:

Primer SQL: "SELECT * FROM CARGOS"
Segundo SQL:"SELECT * FROM SACARGOES"

La Idea es que el conjunto de registros que devuelven estos 2 SQL se Agregen a un Archivo TXT.

¿ Como Puedo Hacer Esto????.

Saludos

MCA.

No se como los quieres grabar, esto es si delimitados por comas o con algún caracter en particular. Puedes utilizar el método GetString del objeto Recordset, si utilizas ADO:

Set PrimerSQL = TuObjetoConnection.Execute( "SELECT * FROM CARGOS" )

Set SegundoSQL = TuObjetoConnection.Execute("SELECT * FROM SACARGOES")

Luego si los quieres grabar en un mismo archivo puedes hacer

StringToFile PrimerSQL.GetString & vbCrLF & SegundoSQL.GetString, "MiArchivo.txt"

Si los quieres en archivos separados:

StringToFile PrimerSQL.GetString,"PrimerSQL.txt"

StringToFile SegundoSQL.GetString,"SegundoSQL.txt"

La función para pasar un String a un archivo es esta:

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function

OK CECILIA..

Pero Necesito que la Informacion que se agrega al Archivo TXT sea en Columnas...

Me Puedes Ayudar Por Favor...

MCA

¿Cómo lo quieres "en columnas"? por ejemplo si tienes la tabla con los campos Codigo y Descripción quieres que se vea así:

Codigo1,Descripcion1
Codigo2,Descripcion2

¿O de alguna otra forma?