On ne peut pas acc�der directement � la m�thode il faut passer par un DataBaseDocument, ce qui donne ceci : dataSource.dataBaseDocument.storeAsUrl('...........)
donc le code est:
function getOOoDataSourceCSV(nomSource,ftxt:string):variant;
// cette fonction ne sert que pour OpenOffice.org Writer
// elle teste si le datasource utilis� par scolaris existe dans
OpenOffice.org
// et sinon le cr�e rem: elle ne cr�e pas le fichier .txt (csv)
// son resultat est le datasource en question
var DataContext,infos,instance:variant;
chemin:string;
begin
ConnectOpenOffice; //au cas o�
// cr�ation d'un databasecontext qui contient toutes les datasources
DataContext:= CreateUnoService('com.sun.star.sdb.DatabaseContext');
if not(DataContext.hasbyName(NomSource))
then
begin
//convertit le chemin (path) du fichier source en URL
chemin:=convertToUrl(ExtractFilePath(ftxt));
//creation d'un tableau de propertyvalues qui donnent les infos
//n�cessaires � l'utilisation du fichier csv (.txt)
infos:= CreateProperties([
'Extension','txt', 'CharSet','ISO-8859-15',
'FixedLength',true, 'HeaderLine',true,
'FieldDelimiter',';', 'StringDelimiter','"',
'DecimalDelimiter','.', 'ThousandDelimiter',',']);
{ instance:=createUnoService('com.sun.star.sdb.DataSource');}
instance:= dataContext.createInstance;
instance.dataBaseDocument.storeAsUrl(chemin + Nomsource + '.odb',dummyArray); DataContext.registerObject(Nomsource,instance);
instance.URL:='sdbc:flat:'+chemin;
instance.Info:=infos;
instance.dataBaseDocument.store;
end;
result:= DataContext.getbyname(NomSource)
end;
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
