Discussion :

[Fbartolo]

L'objectif étant par exemple de pouvoir archiver certaine tables dans une base archive (ces tables étant supposée à structure dynamique donc non connue à l'avance...)

Pour ma problématique j'ai fait un bout de code qui marche mais long et pas très satisfaisant avec une requête, d'ou ma question...:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
 
...//Création de la nouvelle table avec les champs nécessaires
 
StarDataModule->LocalQuery->SQL->Clear(); // efface existant
StarDataModule->LocalQuery->SQL->Add("CREATE TABLE " + TableName + " (");
 
Memo = "CREATE TABLE " + TableName + " (";
 
StarDataModule->OutilStoredProc->GetFieldNames(ListeChamps); //Remplit avec liste de Champs
for(int i = 0; i < ListeChamps->Count ; i++)
	{
	DefChamps = StarDataModule->OutilStoredProc->FieldDefList->FieldDefs[i]->DataType;
	LongChamps = StarDataModule->OutilStoredProc->FieldDefList->FieldDefs[i]->Size;
	CompoChamps = ListeChamps->Strings[i];
	switch (DefChamps) {
		case ftString:
		case ftFixedChar:
		case ftWideString:
			CompoChamps += " CHAR("+ IntToStr(LongChamps) + ")";
			break;
 
		case ftSmallint:
		case ftWord:
			CompoChamps += " SMALLINT";
			break;
 
		case ftBoolean:
			CompoChamps += " LOGICAL";
			break;
 
		case ftCurrency:
			CompoChamps += " CURRENCY";
			break;
 
 
		case ftInteger:
			CompoChamps += " INTEGER";
			break;
 
		case ftFloat:
			CompoChamps += " FLOAT";
			break;
 
		case ftBCD:
		case ftFMTBcd:
			//CompoChamps += " NUMERIC";  // Normalement c'est Numéric mais dans ce cas n'affiche pas les décimales
			CompoChamps += " CURRENCY";
			break;
 
		case ftDate:
			CompoChamps += " DATE";
			break;
 
		case ftTime:
			CompoChamps += " TIME";
			break;
 
		case ftDateTime:
		case ftTimeStamp:
			CompoChamps += " DATETIME";
			break;
 
		case ftBytes:
			CompoChamps += " BYTE";
			break;
 
		case ftMemo:
		case ftFmtMemo:
			CompoChamps += " MEMO";
			break;
 
		case ftGraphic:
			CompoChamps += " IMAGE";
			break;
 
		case ftTypedBinary:
			CompoChamps += " BINARY";
			break;
 
		case ftLargeint:
			CompoChamps += " DOUBLE";
			break;
 
		default:
			CompoChamps += " DOUBLE";
			break;
 
		}
 
	if(i != ListeChamps->Count -1)
		{
		CompoChamps += ",";                    // entre les champs
		StarDataModule->LocalQuery->SQL->Add(CompoChamps);
		}
	else
		{
		CompoChamps += ")";                  // en fin de création
		StarDataModule->LocalQuery->SQL->Add(CompoChamps);
		}
	Memo +=  CompoChamps;      // nes sert qu'en débug pour voir et copier dans requête Access et tester en cas de PB
	}
 
StarDataModule->LocalQuery->ExecSQL(); // Création de la table
 
// Recopie les enregistrtements dans la table Tampon afin de lancer ensuite la seconde procédure
 
StarDataModule->LocalQuery->SQL->Clear(); // efface existant
StarDataModule->LocalQuery->SQL->Add("SELECT * FROM " + TableName);  //Sélectionne la table destination
StarDataModule->LocalQuery->Active = true; // Active le dataset
 
StarDataModule->OutilStoredProc->First();
											// Recopie tous les records
for(int i = 0; i < StarDataModule->OutilStoredProc->RecordCount ; i++)
	{
	StarDataModule->LocalQuery->Append();
	for(int u = 0; u < StarDataModule->OutilStoredProc->FieldCount; u++)  // tous les champs
		{
		StarDataModule->LocalQuery->Fields->Fields[u]->Value = StarDataModule->OutilStoredProc->Fields->Fields[u]->Value;
		}
	StarDataModule->LocalQuery->Post();
	StarDataModule->OutilStoredProc->Next();
	}
 
StarDataModule->LocalQuery->Requery();     // permet de bien forcer la mise à jour des enregistrements!!! sinon pas à jour pour la suite
StarDataModule->LocalQuery->Active = false;
delete ListeChamps;
 
}

[blondelle]

Salut Fbartolo:
J'ai fais des recherches sur le site il y a des tutoriels Delphi sur ADO.
Voici quelques liens sur le Forum Delphi.

http://www.developpez.net/forums/pri...d.php?t=264735
http://www.developpez.net/forums/pri...d.php?t=229928
http://www.developpez.net/forums/pri...d.php?t=165172
http://www.developpez.net/forums/sho...t=copier+table
http://www.developpez.net/forums/sho...t=copier+table

[Fbartolo]

Merci Blondel, mais rien de bien neuf sur le sujet puisque dans les cas traités soit la structure de la table destination était connue et existante soit c'était une copie dans la même base.

Seule la commande BDE CopyTable pourrait le faire, mais en ODBC, dommage.

Je vais voir si je trouve QQ chose dans les Tutos Ado.
Merci

[blondelle]

Tout d'abord excuse moi d'avoir tarde a poster mais une coupure d'electricite a la fermeture de Window ma fait perdre l'integralite de mon disque dur.
J'ai vu que tu utilise SQL, et dans ma doc j'ai trouve que l'on pouvait sur une requette faire une copie d'une table dans une autre, voir meme que certaines colonnes.

[Fbartolo]

Une bonne piste ici:

http://www.devhood.com/tutorials/tut...utorial_id=697

[Fbartolo]

Tout d'abord excuse moi d'avoir tarde a poster mais une coupure d'electricite a la fermeture de Window ma fait perdre l'integralite de mon disque dur.
J'ai vu que tu utilise SQL, et dans ma doc j'ai trouve que l'on pouvait sur une requette faire une copie d'une table dans une autre, voir meme que certaines colonnes.

Merci Blondel, ça je savais déja , le PB c'est que cette table destination (a créer avec les données) est dans une autre base de donnée.

Hors à ma connaissance les Query ou Dataset sont affectés à une AdoConnexion (pour faire la requête) donc pas d'accès à l'autre base de destination, d'ou ma question.

[blondelle]

Salut Fbartolo:
J'ai vu sous Access que l'on pouvait ajouter une Table dans une base existante ca doit donc etre possible avec ADO ou SQL je pense