Como exportar data a un archivo txt desde un sp creado en sqls erver con parametros de fechas
publicado
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"
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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"