Discussion :

[islame]

Bonsoir,

en fait, je suis débutante en programmation avec Delphi et j'utilise Delphi 7.
Mon problème c'est comment supprimer une colonne d'un DBGrid en cliquant droit et on choisissant supprimer à partir d'un popup menu. J'ai déja essaiyé avec le code suivant mais ça marche pas:

Code delphi :

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

1
2
3
4
 procedure TForm1.Supprimer1Click(Sender: TObject);
Begin
  DBGridB.Columns[6].free;
end;

Quelqu'un peut m'aider???

[Issam]

éssaye avec ça :

Code :

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

1
2
3
4
procedure TForm1.Supprimer1Click(Sender: TObject);
Begin
  DBGridB.Columns[6].visible := false;
end;

[islame]

Bonjour je vous remercie pour votre aide. le code que vous m'avez proposé m'a résolu le prob. Mais j'ai encore une autre question. En fait, j'aimerai exporter les données contenues dans ce DBGrid dans une table d'une Base Interbase....
Avez-vous une idée à me proposer???
Quelqu'un peut m'aider..

[Issam]

Bonjour

je ne connais pas (ou je n'ai pas cherché ) de méthodes rapides pour faire ça

NB:
il faut éxporter les données qui se trouve dans ton dataset et non pas dans le dbgrid qui lui a un simple role d'afficheur

moi j'aurais crée une base interbase
une table qui a la même structure que ton dataSet
puis en parcourant ton dataSet insérer les données dans la nouvelle table interbase

pour shématiser ;

Code :

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

1
2
3
4
5
6
7
DataSet.disableControls;
While not dataSet.eof do
Begin
  insérer dans la table interbase;
  dataSet.Next;
end;
DataSet.EnableControls;

regarde aussi du coté de IBPump si ça peut t'aider

a+

[islame]

Bonsoir,

Merci, pour votre aide. En fait, j'ai essayé d'exécuter le moçeau de code que vous m'avez proposé mais je reçois le message d'erreur suivant:
'' Le projet projet.exe a provoqué une classe d'exception EVariantTypeCastError avec le message 'Impossible de convertir le variant de type (String) to (Double)'' , ensuite j'ai changé les types de champ de ma table interbase en String...L'insertion des données depuis le dataset vers ma table Interbase se fait mais à la fin d'exécution je reçois le message d'erreur suivant:
{le projet a provoqué une classe d'exception EIBClientError avec le message 'Erreur d'analyse SQL:
EOF détecté dans une chaîne'}..

Pour être plus claire, j'ai utilisé ADO pour se connecter à Excel et afficher les données contenues dans une feuille dans un DBGrid. Après affichage j'ai utiliser les composants de Interbase fournie avec delphi 7 pour se connecter à ma base interbase est inséré les données du Dataset dans ma table(interbase).

Et je ne sais pas d'ou vient le problème.??
Pourriez-vous m'aider???

Cordialement

[atb]

bonjour , je peux vous conseiller d'utiliser le composant BatchMove dans la pallette BDE ; tu lui donne l'ensemble de donnée source et destination et il s'occupe du transfert comme un grand , je l'ai déja utilisé impécable