border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack Herramientas
  #1 (permalink)  
Antiguo 24-01-2007, 10:58:33
Gran Participación en el Foro
 
Registrado: nov 2006
Ubicación: GALIZA
Posts: 243
Créditos: 2.645
susio24 Valoración +2
Contactar con susio24 a través de MSN
Predeterminado exportar tablas de Mysql a excel

hola a tod@s

necesito pasar los datos de una tabla Mysql a excel.

Lo e intentado guardandola como un txt y luego abrirla desde excel pero me sale un churro.
Luego e probado a guardarlo como html y mas o menos me pasa lo mismo.

No importa el metodo solo necesito pasar una tabla de productos directamente a excel y enviarla por mail a un economista.

Gracias a tod@s por su tiempo
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 24-01-2007, 11:20:57
Avatar de Korku
Usuario VIP del Foro
 
Registrado: feb 2005
Ubicación: España
Posts: 616
Créditos: 5.890
Korku Aun no valorado
Contactar con Korku a través de ICQ Enviar un mensaje a través de AIM a Korku Contactar con Korku a través de MSN Contactar con Korku a través de Yahoo Send a message via Skype™ to Korku
Predeterminado Re: exportar tablas de Mysql a excel

Cita:
Empezado por susio24
hola a tod@s

necesito pasar los datos de una tabla Mysql a excel.

Lo e intentado guardandola como un txt y luego abrirla desde excel pero me sale un churro.
Luego e probado a guardarlo como html y mas o menos me pasa lo mismo.

No importa el metodo solo necesito pasar una tabla de productos directamente a excel y enviarla por mail a un economista.

Gracias a tod@s por su tiempo
Hola,

No tengo MySQL instalado pero acabo de realizar este código, funciona con Access (intentalo con MySQL cambiando la cadena de conexión y demás cosas...)

NOTA: He cambiado la cadena de conexión para MySQL, pruebalo :-)

Código:
Option Explicit
'Añadir una referencia a MS Excel xx.0 Object Library
'Añadir una referencia a MS ActiveX Data Objects 2.x Library
Private Sub Command1_Click()
    Dim oRs As ADODB.Recordset
    Dim oCnn As ADODB.Connection
    Dim oApp As Excel.Application
    Dim oWB As Excel.Workbook
    Dim i As Integer
    'Connectar a tu bases de datos Access
    Set oCnn = New ADODB.Connection

    'oCnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\prueba.mdb;User Id=admin;Password=;"
    oCnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=ATNXXX; USER=root; PASSWORD=;OPTION=3;" 
    oCnn.Open
    'Crear un recorset
    Set oRs = New ADODB.Recordset
    'oRs.Open "SELECT * FROM prueba;", oCnn, adOpenKeyset, adLockReadOnly, adCmdText
    oRs.Open "SELECT * FROM prueba;", oCnn
    'Crear una instancia de Excel y añadir un nuevo libro de trabajo en blanco 
    Set oApp = New Excel.Application
    oApp.Visible = False
    Set oWB = oApp.Workbooks.Add
    'Agregar los nombres de campo como columna (opcional)
    For i = 0 To oRs.Fields.Count - 1
        oWB.Sheets(1).Cells(1, i + 1).Value = oRs.Fields(i).Name
    Next
    oWB.Sheets(1).Range("1:1").Font.Bold = True
    oWB.Sheets(1).Cells(2, 1).CopyFromRecordset oRs
    'Limpiar el objeto ADO
    oRs.Close
    Set oRs = Nothing
    oCnn.Close
    Set oCnn = Nothing
    'Limpiar el objeto Excel
    oWB.Close SaveChanges:=True, FileName:="C:\prueba.xls"
    Set oWB = Nothing
    oApp.Quit
    Set oApp = Nothing
End Sub
Un saludo :-)
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 24-01-2007, 20:43:02
Gran Participación en el Foro
 
Registrado: nov 2006
Ubicación: GALIZA
Posts: 243
Créditos: 2.645
susio24 Valoración +2
Contactar con susio24 a través de MSN
Predeterminado ok

funciona de maravilla

thanks
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 24-01-2007, 20:57:54
Avatar de Korku
Usuario VIP del Foro
 
Registrado: feb 2005
Ubicación: España
Posts: 616
Créditos: 5.890
Korku Aun no valorado
Contactar con Korku a través de ICQ Enviar un mensaje a través de AIM a Korku Contactar con Korku a través de MSN Contactar con Korku a través de Yahoo Send a message via Skype™ to Korku
Predeterminado

Me alegro

PD: Me debes un café jaja
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 25-01-2007, 20:29:19
Gran Participación en el Foro
 
Registrado: nov 2006
Ubicación: GALIZA
Posts: 243
Créditos: 2.645
susio24 Valoración +2
Contactar con susio24 a través de MSN
Predeterminado

un sabado q vaya a cee y vamos a ver la morenita

:smt003
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #6 (permalink)  
Antiguo 25-01-2007, 21:07:43
Avatar de Korku
Usuario VIP del Foro
 
Registrado: feb 2005
Ubicación: España
Posts: 616
Créditos: 5.890
Korku Aun no valorado
Contactar con Korku a través de ICQ Enviar un mensaje a través de AIM a Korku Contactar con Korku a través de MSN Contactar con Korku a través de Yahoo Send a message via Skype™ to Korku
Predeterminado

Cita:
Empezado por susio24
un sabado q vaya a cee y vamos a ver la morenita

:smt003
Mmm está cachonda la morenita ¿eh? Es para comerla a bocados jajaja
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Exportar Tablas ¿? dares_ Visual Basic 6.00 0 28-02-2008 02:57:30
Exportar db sql s 2000 a MySql telu SQL SERVER 1 18-01-2008 18:11:42
exportar tablas de Mysql a excel susio24 Visual Basic 6.00 3 24-01-2007 11:55:45
Crear Tablas en MySQL con Visual Basic eMeDe Visual Basic 6.00 5 28-03-2006 22:39:03
Crear Tablas en MySql via Visual Basic eMeDe Visual Basic 6.00 0 23-03-2006 17:34:45


La franja horaria es GMT. Ahora son las 03:43:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design