transferer les donnees d'une BD paradox vers access

Bonsoir

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

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.

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

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:

---

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;

---

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

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

Code:

---

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

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