usando el comando write #
Publicado por nofxito (28 intervenciones) el 29/03/2001 19:56:43
la pregunta es la siguiente, he leido q este comando cuando termina de leer una linea o el recordset imprime en un texto una linea debajo de otra
la cuestion es q lo estoy haciendo asignandole un archivo pero no me lo pone como quisiera q saliera
aqui esta el codigo q estoy usando
si no me explique mejor si por lo menos el primer campo es codigo de pais, deberia salir algo asi en el txt
ar ....
ar ....
ar ....
aqui esta mi codigo
Dim strRegistros As String
Dim FichLibre As Long
Dim adorst As ADODB.Recordset
Dim j As Integer
ProgressBar1.Min = 0
ProgressBar1.Max = 1000
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Cia\Entrada\Argen.mdb;Persist Security Info=False"
Set adorst = New ADODB.Recordset
adorst.CursorLocation = adUseClient
adorst.Open "SELECT * FROM CENSOS ORDER BY CINUMID asc", adoCon, adOpenDynamic, adLockPessimistic
If Not adorst.State = adStateClosed Then
strRegistros = adorst.GetString(adClipString)
FichLibre = FreeFile
Open App.Path & "\censos.txt" For Output As #FichLibre
Write #FichLibre, strRegistros
Close FichLibre
adorst.MoveFirst
Else
MsgBox "Recordset cerrado", vbCritical, "Export Database"
End If
la cuestion es q lo estoy haciendo asignandole un archivo pero no me lo pone como quisiera q saliera
aqui esta el codigo q estoy usando
si no me explique mejor si por lo menos el primer campo es codigo de pais, deberia salir algo asi en el txt
ar ....
ar ....
ar ....
aqui esta mi codigo
Dim strRegistros As String
Dim FichLibre As Long
Dim adorst As ADODB.Recordset
Dim j As Integer
ProgressBar1.Min = 0
ProgressBar1.Max = 1000
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Cia\Entrada\Argen.mdb;Persist Security Info=False"
Set adorst = New ADODB.Recordset
adorst.CursorLocation = adUseClient
adorst.Open "SELECT * FROM CENSOS ORDER BY CINUMID asc", adoCon, adOpenDynamic, adLockPessimistic
If Not adorst.State = adStateClosed Then
strRegistros = adorst.GetString(adClipString)
FichLibre = FreeFile
Open App.Path & "\censos.txt" For Output As #FichLibre
Write #FichLibre, strRegistros
Close FichLibre
adorst.MoveFirst
Else
MsgBox "Recordset cerrado", vbCritical, "Export Database"
End If
Valora esta pregunta


0