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

Version imprimable

1 pièce(s) jointe(s)

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:

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
Pièce jointe 248378

je vous remercie

26/02/2017, 09h29
SergioMaster
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:

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;
26/02/2017, 09h57
der§en

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

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:

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;

26/02/2017, 10h20
SergioMaster

Bonjour,

Citation:

Envoyé par der§en

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

Batchmove existe mais pour BDE pas pour ADO
26/02/2017, 16h23
der§en

Et un CopyDataset ?