Discussion :

[denza1]

Bonsoir

j'aimerais bien savoir comment faire pour trsanferé le contenue d'une base de donnée paradox vers access.
merci d'avance.

[tiennos]

Hello, tu peux faire un petit soft qui va lire les enregistrement de ta base paradox et qui te les inserent dans ta base Access.

Pour les base paradox pour utiliser le composant TTable de la BDE et pour Access utiliser ADO par exemple.

[Giovanny Temgoua]

A lire :
http://delphi.about.com/library/weekly/aa062601b.htm

[denza1]

Salut
Merci King Kaiser
oui sa repond a ma question
mais j'ai eu le probleme suivant avec le code:

AccessType(Items[i]) (message erreur type non reconnue)

je croie que AccessType(Items[i]) est une procedure fait par Zarco Grajic
elle recupere le type de champ paradox est le transforme en type de champ access je crois .
puriez vous me dire d'avantage sur AccessType(Items[i])

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
procedure TForm1.Button1Click(Sender: TObject);
//'Construct Create command' button
var i:integer;
    s:string;
begin
 BDETable.TableName:=cboBDETblNames.Text;
 BDETable.FieldDefs.Update;
 
 s:='CREATE TABLE ' + BDETable.TableName + ' (';
 with BDETable.FieldDefs do begin
  for i:=0 to Count-1 do begin
   s:=s + ' ' + Items[i].Name;
   s:=s + ' ' + AccessType(Items[i]); 
   s:=s + ',';
  end; //for
  s[Length(s)]:=')';
 end;//with
 
 Memo1.Clear;
 Memo1.lines.Add (s);
end;

[Giovanny Temgoua]

Si tu avais donner plus d'attention à la page, tu serais tombé sur ce lien :
http://delphi.about.com/library/dbc11.zip


C'est le code exemple de Zarko, et tu y trouves cette fonction:

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
 
function AccessType(fd:TFieldDef):string;
begin
 case fd.DataType of
  ftString: Result:='TEXT('+IntToStr(fd.Size)+')';
  ftSmallint: Result:='SMALLINT';
  ftInteger: Result:='INTEGER';
  ftWord: Result:='WORD';
  ftBoolean: Result:='YESNO';
  ftFloat : Result:='FLOAT';
  ftCurrency: Result := 'CURRENCY';
  ftDate, ftTime, ftDateTime: Result := 'DATETIME';
  ftAutoInc: Result := 'COUNTER';
  ftBlob, ftGraphic: Result := 'LONGBINARY';
  ftMemo, ftFmtMemo: Result := 'MEMO';
 else
  Result:='MEMO';
 end;
end;

C'est la toute première de unit1.pas d'ailleurs

[denza1]

Merci merci king Kaiser
je me suis un peu précipité désolé.