Remplir BDD access a partir de StringGrid

Version imprimable

29/05/2009, 19h08
faniette

Remplir BDD access a partir de StringGrid
Bonjour
je veut sauvegarder les données de StringGrid dans une BDD access pour cela j'ai creé un Alias dans ODBC et j'ai utilisée les composants TSession, TDatabase , TTable.
pour remplir le premier champ "Désignation" de la table qui contient des données de type text j'ai utilisé ce code mais sa marche pas
Code:

1 2 3 4 5 Form2->Table1->Edit(); // Positionne la table en mode Edition for(int j=1;j<14;j++) { Form2->Table1->FieldByName("Désignation")->AsString=Form2->StringGrid3->Cells[0][j]; }
merci d'avance pour votre aide
30/05/2009, 14h54
faniette

bonjour
finallement mon probleme dans la conexion entre la BDD access et c++ pas dans le code.
les etapes que j'ai suivie sont:
j'ai creer un alias dans ODBC et j'ai selectionné ma BDD cible
j'ai met le nom de BDD et nom d'alias dans double clique de Database1 apres la propriété connected a true.
Pour Session1, dans l'inspecteur d'objet, j'ai saisissé le nom de la session et le meme nom dans propriété SessionName de Database1.
en dernier j'ai relié Table1 à Session1 et Database1 par les propriétés SessionName et DatabaseName BDD,puis j'ai sélectionné la table dans la propriété TableName et j'ai met la propriété activé a true.
quand je verifié la table je la trouve toujour vide

est ce il ya quelque qui peut m'aidé ?

Code:

1
2
3
4
5
6
7
 
 
Form2->Table1->Edit(); // Positionne la table en mode Edition
for(int j=1;j<14;j++)
{
  Form2->Table1->FieldByName("Désignation")->AsString=Form2->StringGrid3->Cells[0][j];
}

devient :

Code:

1
2
3
4
5
6
7
8
9
 
 
for(int j=1;j<14;j++)
{
  Form2->Table1->Append(); 
   Form2->Table1->Edit(); // Positionne la table en mode Edition
  Form2->Table1->FieldByName("Désignation")->AsString=Form2->StringGrid3->Cells[0][j];
}
Form2->Table1->Post() ;

31/05/2009, 13h26
faniette

merci beaucoup

c'est bon avec ce code j'ai pouvé remplir ma table mais j'ai un probleme.
dans ce cas les données de la premiere colonne et la premiere ligne de stringGrid sont fixe et les autres cases changent a chaque operation pour le sauvgardé dans la table je veut la meme chause les données de la premiere colonne de la table fixe et les autres cases changent sa depant de StringGrid
(MATRICE) merci d'avance pour votre aide
31/05/2009, 16h21
kmaniche

Dans ce cas, utilise FixedRow = 1 et FixedCol = 1
31/05/2009, 16h56
faniette

sa c'est pour StringGrid ,mon probleme est dans la table je veut que le nombre de lignes de la table egale le nombre de lignes de StringGrid parce que a chaque fois que je clique sur le boutton pour remplir la table la copie se fait a nouveau mais moi je veut que les nouveaux données écrase lancien sauf la premiere colonne reste la meme j'espere que j'ai bien détaillé mon souci .merci d'avance

Bonjour
je reformule ma question
je veut a chaque remplissage de la table je suprrime touts le contenu de la table apres je le remplir a nouveau pour ce la j'ai utilisé ce code
Code:

1 2 3 4 5 6 7 8 9 for(int j=1;j<14;j++) { Form2->Table1->Append(); Form2->Table1->Edit(); // Positionne la table en mode Edition Form2->Table1->DataSource->DataSet->ClearFields(); Form2->Table1->FieldByName("Désignation")->AsString =Form2->StringGrid3->Cells[0][j]; } Form2->Table1->Post() ;
il provoque une classe d'exception
merci d'avance pour votre aide

ou est le probleme ????

Bonjour
pour remplir BDD access a partir de StringGrid j'ai utlisé une façon de a chaque fois supprimer touts les données de la table et la remplir par des nouveaux données pour evité la repetition pour cela j'ai utilsé ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Table1->First(); while(!Table1->Eof) { Table1->Close(); Table1->EmptyTable(); Table1->Open(); } for(int j=1;j<14;j++) { Form2->Table1->Append(); Form2->Table1->Edit(); // Positionne la table en mode Edition Form2->Table1->FieldByName("Désignation")->AsString =Form2->StringGrid3->Cells[0][j]; Form2->Table1->Post() ; }
le probleme est ce code fonctionne que a la premiere utilisation si je refais la procedure il donne une repetion les nouveaux données n'ecrase pas l'ancien

merci d'avance pour votre aide!!!

08/06/2009, 10h32
kineton

Pourquoi tu souhaites absolument supprimer puis recréer le contenu de ta table.
Pourquoi ne pas faire simplement un update (commande SQL) de tes données ?
12/06/2009, 00h09
faniette

Bonsoir
merci kineton pour votre reponse, SVP expliquez moi un peu plus
merci d'avance pour votre aide
12/06/2009, 09h18
kineton

Si j'ai bien compris tu souhaites supprimer des enregistrements pour les recréer afin d'éviter les doublons.
En SQL il y a des commandes qui te permettent de mettre à jour des enregistrements (UPDATE) sans avoir à tout supprimer puis tout recréer.
Je te conseille de chercher un tuto sur le SQL et tu verra à quel point cela est puissant et peut te simplifier la vie.
Good luck 8-)

merci kineton
je veut supprimer touts les enregistrements de la table j'ai utilisé meme sql par ce code et ca marche pas.aidez moi svp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Form6->Table1->First();
if(Form6->Table1->RecordCount!=0)
 
 {  Form6->Table1->Active=false;
  AnsiString a;
  a="Delete from Stocks ";
 
  Form6->Query1->SQL->Clear();
  Form6->Query1->SQL->Add(a);
  Form6->Query1->ExecSQL();
 
  Form6->Table1->Active=true;
  Form6->DBGrid1->DataSource->DataSet->ClearFields();
  }
 
for(int j=1;j<14;j++)
{
 
Form6->Table1->Append();
Form6->Table1->Edit(); // Positionne la table en mode Edition
 
Form6->Table1->FieldByName("Désignation")->AsString =Form2->StringGrid3->Cells[0][j];
Form6->Table1->Post() ;
}

merci d'avance

15/06/2009, 16h25
say

Merci de faire un effort sur l'expression et l'orthographe...c'est assez difficile de vous lire.

bonsoir
j'ai une table et je veux supprimer tous les enregistrements de cette table d'un seul coup pour les recréer par des nouveaux données afin d'éviter les doublons. voici mon code avec la commande SQL (DELETE)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Form6->Table1->First(); if(Form6->Table1->RecordCount!=0) { Form6->Table1->Active=false; AnsiString a; a="Delete from Stocks "; Form6->Query1->SQL->Clear(); Form6->Query1->SQL->Add(a); Form6->Query1->ExecSQL(); Form6->Table1->Active=true; Form6->DBGrid1->DataSource->DataSet->ClearFields(); } for(int j=1;j<14;j++) { Form6->Table1->Append(); Form6->Table1->Edit(); // Positionne la table en mode Edition Form6->Table1->FieldByName("Désignation")->AsString =Form2->StringGrid3->Cells[0][j]; Form6->Table1->Post() ; }
meme avec la commande UPDATE ne fonctionne pas

Code:

a="UPDATE Stocks SET Désignation =NULL ";

merci d'avance