Discussion :

[lol_adele]

Bonjour tout le monde !

j'ai un p'tit soucis concernant des tables Paradox....

le but de ma procédure : ajouter un champs dont j'ai la description à une table.
je crée donc une table temporaire avec les bon champs, je fais unbatchmove pour récupérer les données dans cette table temporaire et ensuite je veux supprimer la table de base pour pouvoir renommer la table temp.

PB : J'arrive pas à supprimer la table initiale, çàa me met que la table est occupée !

j'ai tout tester

Code :

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

1
2
3
               dsTableBDD.DataSet.DisableControls;
               tableBDD.Close;
               tableBDD.Active:=false;

rien n'y fait...

est-ce que vous auriez une idée sur ce qui peut se passer et comment le contourner ???

merci d'avance

[lol_adele]

Personne n'a une idée ???

j'ai testé autre chose encore, j'ai inversé les tables sur lesquelles pointent mes dataSource de manière à ce que la table utilisée soit la table Temp, le temps que je supprime la 1ère table.

Code :

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

1
2
3
4
5
6
7
8
9
tableBDD.Active:=false;
tableBDD.TableName:=DBModule1.Temp.TableName;
 
DBModule1.temp.Active:=false;
DBModule1.temp.tableName:=nomTable;
DBModule1.temp.DeleteTable;
 
tableBDD.RenameTable(nomTable);
tableBDD.Active:=true;

ça m'a réglé le pb pour une table mais pas pour les autres

j'y comprend rien du tout....

[Exostose]

Bjr

Je te suggere d'ajouter des champs a ta table en passant par
une requette sql
ALTER TABLE "Client.db" ADD "Nouv_Champ" CHAR(50)

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
 
Function BDD_Ajouter_Champ(NomRep,NomTbl,NomChp,TypChp:String;Var Err_Ch:String):Boolean;
Var Qry:TQuery;
Begin
  Result := False;
  Err_Ch := '';
  Qry := TQuery.Create(Nil);
  Try  
    Qry.DataBaseName := NomRep;
    Qry.Sql.Text := 'Alter Table '+QuotedStr(NomTbl);
    Qry.Sql.Add('ADD '+NomChp+' '+TypChp);
    Try
      Qry.ExecSql;
      Result := True;
    Except
      Err_Ch := 'Exception = '+Exception(ExceptObject).Message;
    End;
  Finally
    Qry.Free;
  End;
 
  //Pour appeler la fonction tu peux faire un truc du genre
 procedure TForm1.BtAjtChpClick(Sender: TObject);
Var Err_Ch:String;
begin
  Table1.Close;
  If Not BDD_Ajouter_Champ(Table1.DataBaseName,Table1.TableName,'Chp_Ch','Char(20)',Err_Ch)
  Then Begin
    ShowMessage(Err_Ch);
    Exit;
  End;
  ShowMessage('Ok 1');
  If Not BDD_Ajouter_Champ(Table1.DataBaseName,Table1.TableName,'Chp_Int','Integer',Err_Ch)
  Then Begin
    ShowMessage(Err_Ch);
    Exit;
  End;
  ShowMessage('Ok 2');
end;

Pour connaitre les differents types possibles
Dans l'aide tu cherche "Aide Sql Local" et "Alter"

A+

[lol_adele]

LE pb c'est que cette fonctionnalité n'est pas disponible dans le sql fournit avec les tables paradox...

je suis donc obligé de le faire tel que décrit dans mon premier message...

[delphichem]

LE pb c'est que cette fonctionnalité n'est pas disponible dans le sql fournit avec les tables paradox...

je suis donc obligé de le faire tel que décrit dans mon premier message...

Non tu te trompes la fonctionnalité est toujours disponible pour les tables paradox.