Discussion :

[griffit]

re bonjour a tous voila j'ai un petit probleme
j'ais une basse acces dans laquelle j'enregistre des memo.

je rencontre un probleme lorsque que j'exporte les informations de ma base vers excel.

en effet les retours a la ligne qui sont dans ma basse arrive sous excel sous forme de carré
une idee pour corriger le probleme ?

voila le code utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
AnsiString valeurcellules;
valeurcellules=DataModule1->Table1->FieldByName("Tache")->Value;
vValue =valeurcellule.c_str();
vCell.OlePropertySet("Value", vValue);

merci par avance

[blondelle]

Salut griffit:
Il te faut faire un traitement de la chaine que tu recupere de ton Memo et recuperer le retour chariot/saut de ligne et le transformer en quelque chose de comprehensible par Excel

AnsiString valeurcellules;
valeurcellules=DataModule1->Table1->FieldByName("Tache")->Value;
vValue =valeurcellule.c_str();
vCell.OlePropertySet("Value", vValue);
String essai = vValue;

en vert ce que j'ai ajoute tu met un point d'arret et tu pointe le curseur sur essai tu verre les separateurs utilises par ton Memo

[griffit]

merci a 1er vu il s'agit des caractere "/R ou /N" que excel n'arrive pas a

comprendre mais commet les suprimés

merci par avance des reponce

[blondelle]

Potiez ma aide il y a pas longtemps a ce sujet tu utilise la fonction StringReplace, J'utilise un TMemo pour l'essai a toi d'adapter ces lignes

vValue = WideString(Memo1->Lines->Text);
String essai = vValue;
String monText = StringReplace(essai, "\r\n", " ", TReplaceFlags()<< rfReplaceAll << rfIgnoreCase); // dans la chaine essai on remplace les caracteres "\r\n", par " "
vValue = WideString(monText);
vCell = vWorksheet.OlePropertyGet("Range", "B2");
vCell.OlePropertySet("Value", vValue);

Ca fonctionne chez moi.
Je suis interresse de savoir comment tu a procede pour recupere dans ta table ces elements de texte, pour l'integrer dans la FAQ.

[griffit]

super super cela fonctionne apres une au deux modification du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
DataModule1->Table1->First(); // je me place en debut de table 
 
while(!DataModule1->Table1->Eof)// Boucle de recherche 
	{
 
             if(DataModule1->Table1->FieldByName("Numero")->Value==Tableauresultat[i-2])	// Si N° de la table=numero rechercher
			{
 
			vValue = WideString(DataModule1->Table1->FieldByName("NTABLE")->Value);//NTABLE=NOM DE TA COLLONE DANS TA TABLE
			String essai;
			essai= vValue;
			String monText = StringReplace(essai, "\r", " ", TReplaceFlags()<< rfReplaceAll << rfIgnoreCase); // dans la chaine essai on remplace les caracteres "\r\n", par " "
			vValue = WideString(monText);
 
			vCell.OlePropertySet("Value", vValue);
 
			}
		DataModule1->Table1->Next();
	}

MERCI merci merci
parcontre je sais pas si j'ai repondu a ta demande blondelle hesite pas a me mail

[blondelle]

C'est surtout comment tu a ouvert Access et comment tu a recupere ta table qui est interressant.

[griffit]

de sous windows j'ais cree un lein odbc qui pointe sur ma base acces

j'ais cree un module de donnée dans lequelle j'ais mis

1 une Database
qui pointe sur mon lien odbc

1 table
qui pointe sur ma database
et la session

1 Session


voila en gros et puis plus simle voila le lien
http://ricky81.developpez.com/tutori...ge=cas_odbc#L3

[blondelle]

Perso pour ouvrir Access j'ai utilise Ole (comme pour Excel), cette fonction lancait une macro Access

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Ouvrir_exec_macro_fermer.h" //c'est le nom du projet
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// ne pas oublier #include <utilcls.h>
Variant vMSAccess, vFileName;
// on ouvre Access
vMSAccess = Variant::CreateObject("Access.Application");
// on rend visible Access
vMSAccess.OlePropertySet("Visible", true);
// on defini le chemin de la base a charger
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd1.mdb";
// ouverture de la table Access
vMSAccess.OleFunction("OpenCurrentDatabase", vFileName, false);
vMSAccess.OleFunction("OpenCurrentDatabase", vFileName, false, password);
Variant password;
password = "MotDePasse";
vMSAccess.OleFunction("OpenDatabase", vFileName, false, false, password);
// on execute la macro "essai" contenue dans la base
vMSAccess.OleProcedure("Run", "essai");
/*
Il est possible d'intégrer le mot de passe au code lors de l'ouverture de la base de données :
Dim db as Dao.DataBase
Set db = DBEngine.OpenDatabase("C:\MaBase.mdb", False, False, ";pwd=password")
'Effectuer le traitement sur la base de données ici.
db.Close
*/
 
// fermeture d'Access
// on ferme la base
vMSAccess.OleProcedure("CloseCurrentDatabase");
// on quitte Access
vMSAccess.OleFunction("Quit");
// liberation des variants
vMSAccess = Unassigned;
}
//---------------------------------------------------------------------------

mais je n'ai jamais eut l'occasion d'extraire les donnees d'une table d'ou ma curiosite

[griffit]

oui mais comment tu fais si le poste en question n'a pas acces
ce qui et le cas de la plupart des postes bureautique que j'installe sur la commune pour laquelle je travaille.

alors qu'avec des liens odbc j'ais pas le probleme.

[blondelle]

Je n'utilise pas personnellement Access d'ou ma curiosite donc (je ne mourrais pas idiot ce soir)