Visual Basic - SQL a un archivo de texto

Life is soft - evento anual de software empresarial
   
Vista:

SQL a un archivo de texto

Publicado por Tamara (2 intervenciones) el 11/05/2009 06:09:33
Hola gente linda! tengo una consulta tengo que entregar un trabajo practico para la facu y no encuentro nada de info necesito aplanar datos de una base de datos sql a un archivo de texto como se puede hacer esto?

Les agradezco mucho !! Besitos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:SQL a un archivo de texto

Publicado por Rolando Lau (115 intervenciones) el 11/05/2009 16:16:24
Primera Forma (DTS)

1.-Abrir el Administrador Corporativo de SQL ,
2.-luego click derecho en la base de datos de la que quieres extraer los datos ,
3.-luego eliges la opcion exportar
4.-Opcion de Origen , mostrara el origen que seleccionaste. dale siguiente
5.-Opcion de destino eliges la primera opcion de la lista que dice archivo de texto.

Segunda Forma

1.-Abrir el analizador de consultas
2.-Generar la consulta que se quiere
3.-Eligen en el menu la opcion consulta , luego ver los resultados en archivo de texto.

Espero te sirva

Saludos

Rolando Lau
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SQL a un archivo de texto

Publicado por Tamara (2 intervenciones) el 11/05/2009 17:17:02
Perdon Rolando Lau me explrese mal lo que tengo que hacer es desde un programa de visual basic 6 tengo que entrar a la base de datos de SQL y exportar datos a un archivo de .txt como podria hacer esto??

Besos Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SQL a un archivo de texto

Publicado por Rolando Lau (115 intervenciones) el 11/05/2009 17:38:50
1.- Cargas los registros de SQL en una variable RecordSet en Visual basic

Funcion para cargar un recorset :
Public Function fRetornaRS(GsSentenciaSQL As String) As ADODB.Recordset

Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
On Error GoTo Msj_error
rs.CursorLocation = adUseClient

With Cmd
.ActiveConnection = "provider=sqloledb;data source=BE02;uid=contable;database=PRUEBAS;pwd=contable;"
.CommandType = adCmdText
.CommandText = GsSentenciaSQL
.Execute
End With

rs.Open Cmd, , adOpenDynamic, adLockOptimistic
Set fRetornaRS = rs
Set rs = Nothing
Set Cmd = Nothing

Msj_error:
If Err.Number <> 32755 Then
If Len(Err.Description) > 1 Then MsgBox "Ocurrió el Siguiente Error:" + Chr(13) + Err.Description, vbCritical, "SISTEMA"
End If
End Function

CARGAS EJEMPLO:

DIM RSClientes as New ADODB.recordset
fRetornaRS ("SELECT * FROM CLIENTES")

' un select a la tabla clientes que tiene los campos : NombreCli y RUC

2.- Luego por ejemplo en un boton

Open "c:Archivo.txt" For Append As #1
for i = 0 to RS.recordcount -1 ' Aqui recorres la lista de registros de tu select
Print #1, RS!NombreCli & " " & RsRUC
next
Close #1

Bien espero te ayude,

Saludos

Rolando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar