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