none
Como puedo crear un documento de excel que este se llene mediante una conexion a una base de datos RRS feed

  • Pregunta

  • Hola a todos soy principiante en programación pero ahora necesito de su ayuda tengo que hacer una sub rutina que cree un archivo de excel que este se llene mediante una conexión a una base datos en acces les dejo el codijo que eh elaborado pero aun no tengo éxito les agradeceria mucho su ayuda

     Sub Main()
          GeneraResportes()
        End Sub
        Sub GeneraResportes()
            Dim sConexion As New OleDb.OleDbConnection
            Dim sProvider As String
            Dim sSource As String

            For N = 1 To 2

            Next
            Select Case N
                Case Is = 1
                    sProvider = "Provider=Microsoft.ACE.OLEDB.12.0;"
                    sSource = "Data Source =C:\Users\vsanchez_pc\Documents\Datos\Clientes.accdb"
                    sConexion.ConnectionString = sProvider & sSource
                Case Is = 2
                    sProvider = "Provider=Microsoft.ACE.OLEDB.12.0;"
                    sSource = "Data Source =C:\Users\vsanchez_pc\Documents\Datos\Usuarios.accdb"
                    sConexion.ConnectionString = sProvider & sSource
            End Select

            sConexion.Open()

            Dim sQuery As String

            Dim ds As New Data.DataSet
            Dim da As OleDb.OleDbDataAdapter

            sQuery = "           Select * ,"

            sQuery = sQuery & " FROM        Clientes 2010 "

            da = New OleDb.OleDbDataAdapter(sQuery, sConexion)
            da.Fill(ds)
            Dim File_Name As String = "C:\Users\vsanchez_pc\Documents\Reportes\Reportes.csv"
            Dim texline As String

            If System.IO.File.Exists(File_Name) = True Then
                Dim objWriter As New System.IO.StreamWriter(File_Name)
                Do While Not recorset.eof() <> -1
                    texline = objWriter.ToString() & vbNewLine
                    objWriter.Close()
                    MsgBox("Archivo Creado")
                Loop

            End If

     
    jueves, 21 de junio de 2012 22:10