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