Bonsoir
j'aimerais bien savoir comment faire pour trsanferé le contenue d'une base de donnée paradox vers access.
merci d'avance.
Bonsoir
j'aimerais bien savoir comment faire pour trsanferé le contenue d'une base de donnée paradox vers access.
merci d'avance.
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.
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;
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:
C'est la toute première de unit1.pas d'ailleurs
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;
Merci merci king Kaiser
je me suis un peu précipité désolé.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager