Comment importer les données acces vers sqlserver Avec delphi ?

**Faridnapoli** · 26/02/2017, 01h35

Bonjour; je solicite votre aide pour avoir une solution a mon probleme.
je suis sur un projet de fin d'etude que je doit construir avec delphi et sql server comme SGBD
mon probleme c'est que les information que je doit inserer dand ma base SQL server (Suivi) table (Eleve) son dans des fichier Data.MDB dans la table (Test)
exemple :
la secretaire me donne un fichier acces qui contien la liste des eleves avec leur information et ce qui m'importe c'ets la table (Eleves) seulement
il me faut un boutton sur delphi pour choisir la base de donnée reçu et un button que lors que je clique desus il importe tout les donné de la table de la base acces sur ma base SQL server
jai mis un (opendialog) pour definir le chemin de la base acces
et jai mis ce code dans le button importer :
-------------------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm4.Button1Click(Sender: TObject);
var
impordir:string;
import : string;
begin
impordir := extractfiledir(opendialog1.FileName);
import := opendialog1.filename;
adoconnection2.Execute('insert into Emp select * from "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\Database1.accdb;Persist Security Info=False" ');
end;

mais sa me donne erreur
Nom : 523233Nouvelleimage.png
Affichages : 274
Taille : 4,1 Ko

je vous remercie

**SergioMaster** · 26/02/2017, 09h29

Bonjour,

encore faudrait-il connaitre la version de Delphi ! avec les nouvelles versions et ses composants Firedac ce serait facile mais je préseume, vu qu'il y a composants ADO que c'est plutôt de D7 qu'il s'agit.

Je ne connais pas suffisamment ADO mais je en crois pas qu'il soit possible d'associer deux connexions comme vous le faites

Je crains qu'il n'y ait pas le choix, à savoir deux connexions ADO, un TADOTable pour se connecter à la Table ACCES et un TADOTable ou mieux un TADOQuery paramétré de type INSERT INTO TABLES(<Colonnes>) VALUES (<Paramètres>) pour remplir la table SQLServer.
A cela s'ajoutera une boucle

Code :

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

1
2
3
4
5
6
7
8
  ADOTable1.Open
  While not ADOTable1.EOF do
     begin
        // passage des paramètres
        ADOQuery1.ExecSQL; 
        ADOTable1.Next;
     end;
   ADOTable1.Close;

**der§en** · 26/02/2017, 09h57

Je ne rappel plus si en D7 il y a un composant BatchMove pour faire simplement ce genre d'opérations…

**retwas** · 26/02/2017, 10h02

J'utilise une base Access sur un projet avec un TADOConnection, si cela peux t'aider voici ma chaîne de connexion et le test lors de la création de mon DataModule :

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
procedure TfdmMonProjet.DataModuleCreate(Sender: TObject);
var
  sCheminBDD : string; 
  sChaineCnx : string;
begin
  sCheminBDD := 'C:\Delphi\Projets\Database\dbMonProjet.mdb';
 
  sChaineCnx:= 'Provider=Microsoft.Jet.OLEDB.4.0;' +
              'User ID=Admin;' +
              'Data Source=' + sCheminBDD + ';' +
              'Mode=Share Deny None;Extended Properties="";' +
              'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";' +
              'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;' +
              'Jet OLEDB:Database Locking Mode=1;' +
              'Jet OLEDB:Global Partial Bulk Ops=2;' +
              'Jet OLEDB:Global Bulk Transactions=1;' +
              'Jet OLEDB:New Database Password="";' +
              'Jet OLEDB:Create System Database=False;' +
              'Jet OLEDB:Encrypt Database=False;' +
              'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
              'Jet OLEDB:Compact Without Replica Repair=False;' +
              'Jet OLEDB:SFP=False';
  AdoConnection.ConnectionString := sChaineCnx;
 
  try
      AdoConnection.Connected := True;
  except
    on E : Exception do
       ShowMessage('Erreur lors de la connexion à la base de données.');
  end;
end;