Le 22/01/08, Julien<[EMAIL PROTECTED]> a écrit :
> Sub export_csv
> dim liste as object
> dim i as long
> dim SQL1 as string
> oContext = createUnoService("com.sun.star.sdb.DatabaseContext")
> oSource=oContext.GetByName("escape8")
> oConnexion=oSource.getconnection("","")
> oStatement = oConnexion.CreateStatement()
> liste = oConnexion.tables
> n = liste.count-1
> For i = 0 to n
> nom_table = oConnexion.tables(i)
> nom = nom_table.name
> SQL1= "SELECT * INTO TEXT """& nom &"_csv"" FROM """& nom &""""
> SQL2= "DROP TABLE"""& nom &"_csv"""
> 'msgbox(SQL1)
> 'msgbox(SQL2)
> resultat=oStatement.executeQuery(SQL1)
> next i
> End Sub
>
> Voilà, un jeu d'enfant avec le livre de Laurent Godard, éxécutez cette
> requête en remplacant escape8 par le nom de votre soruce de données, et
> vous obtiendrez une floppée de fichiers csv ayant le nom de vos tables,
> sauf si la table est vide (et oui, on ne peut pas générer de csv vide...)
>
> Juste un problème quand même, les accents, ils ont tous foiré...
> Quelqu'un a-t-il une solution pour ça (à part remplir ma table sans accent?)
par défaut les tables TEXT sont encodées en ascii. Tu peux spécifier
un autre encodage, voir :
http://fr.openoffice.org/Documentation/How-to/Bdd/tables_csv_dynamiques.pdfManuel --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
