buenas tardes , estoy tratando de exportar un la data de un sp a un archivo txt sin delimitadores pero me estoy quedando corto. favor podrian ayudarme que me falta.,GRACIAS

 

 

'On Error Resume Next
Application.ScreenUpdating = False
Dim FechaInicial As String
Dim FechaFinal As String
Dim i As Long
    
    FechaInicial = Format(FrmCalendarios.TextBox1.Value, "yyyymmdd")
    FechaFinal = Format(FrmCalendarios.TextBox2.Value, "yyyymmdd")
 
        Call Conectar_database
        '---------------------------
       
        Dim cmd As ADODB.Command
        Dim Param1 As ADODB.Parameter
        Dim Param2 As ADODB.Parameter
        Set cmd = New ADODB.Command
        Set rs = New ADODB.Recordset
        rs.CursorLocation = adUseServer
        cmd.ActiveConnection = cnn
        cmd.CommandType = adCmdStoredProc
        cmd.CommandText = "EXEC [dbo].[Usp_ProcesarDataModelo] ?,?"
        cmd.CommandTimeout = 120 'dos minutos
        Set Param1 = cmd.CreateParameter("@FechaIni", adVarChar, adParamInput, 8, FechaInicial)
        cmd.Parameters.Append Param1
        cmd.Parameters("@FechaIni").Value = FechaInicial
        
        Set Param2 = cmd.CreateParameter("@FechaFin", adVarChar, adParamInput, 8, FechaFinal)
        cmd.Parameters.Append Param2
        cmd.Parameters("@FechaFin").Value = FechaFinal
        Set rs = cmd.Execute(, , adCmdText)
        Set cmd = Nothing
       
   
   
        '-------------ESTO ES LO QUE NO ME FUNCIONA PARA EXPORTAR --------------------------------------------------------
        Dim Fichero As String, fileNo As Integer, testVar As Integer
            Fichero = "D:\MODELO\Archivo.txt"
            Dim lngFichero As Long
            lngFichero = FreeFile
            Open Fichero For Append As #lngFichero
            Print #lngFichero, Dato
            Close #lngFichero
    

               rs.Close
        cnn.Close
        Set rs = Nothing
        Set cnn = Nothing
        MsgBox ("Datos Procesados del : " & FechaIni & " " & " al " & FechaFin & "  " & Chr(13) & "  " & Chr(13) & "archivo Generado Correctamente"), vbInformation, "Exportar"
         
       

 

Hola

Para recibir ayuda vas a tener que ser mucho más específico. ¿Qué error o problema ocurre? De ser un error ¿en qué macro, en qué línea, qué error exacto? Asimismo, comenta bien qué haces previamente, porque al parecer ejecutas procesos que a su vez ejecutan otros. Etc.

hola buenas noches,, con respecto a errorres no tengo ,,el problema es que cuando quiero exportas la data  que esta en store procedure creado en sql server ,a un txt solo exporta el archivo en blanco sin data y es alli mi consulta .

Sigues sin dar detalles. Por ejemplo ¿Cómo nosotros podemos saber que es "dato"?

No haces nada con la consulta después de obtenerla. (Recordset rs)

 

Editado el el 13 de febrero2 años por Antoni