Application du principe de transaction entre Delphi et Oracle

Application du principe de transaction entre Delphi et Oracle

Bonjour tout le monde

Je travail avec Delphi version 6, j’utilise le composant ADO pour l’accès et la manipulation de base de données.

J e dispose d’in fichier texte qui comporte des données à faire monter dans un BDD ORACLE, j’ai parvenu à lire mes données depuis ce fichier et même d’écrire dans ma base, bref, j’ai besoin d’appliquer le principe de transactions pour permette la remonté d’où bien : la totalité des lignes ou carrément rien !
Depuis la console ORACLE l’utilisation des transactions est plus pratique (en mettant commit à la fin) mais avec Delphi les chose ne paraissent pas identiques car pour exécuter une requête de type update ou insert je sais faire « .execsql » pour chaque insert, mais pour le tout le paquet de insert et/ou update j’en ai pas d’idée précise !

Pour être plus explicite
J’ai une table etudiant qui est structuré comme suit :
Code:

1 2 3 4 5 Table : etudiant { Nom :varchar, prenom : varchar, datnes : date }
J’ai un fichier texte plcé sur une composant Tmomo sur une form delphi :
Code:

1 2 3 4 Richardson|peter|15/02/1983| Michael|enrique|02/05/1984| Peter|james|11/04/1983|
J’ai développé une fonction qui permet de lire quelconque colonne d’une ligne memo, soit la fonction lire_colone(m.lines.strings[i],j] qui permet de lire la colonne j de la ligne i du memo.

Ce que je veux est le suivant :
Lire la totalité des étudiants (3 dans ce cas, mais plus de 5000 sur mon projet) ou de rien lire par le principe de transaction.

Le problème s’avère plus claire, j’attend votre aide et merci d’avance

Bonjour,

tu as au niveau de la connection il me semble des méthode begintrans, committrans et roolbacktrans (je suis pas sûr de la syntaxe, mais c'est à peu près cela).

@++
Dany

LE cas typique avec Ado :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Adoconnection.BeginTrans; // Début de la transction
 
For i := 0 to LaFinDuFichier do
  With AdoQuery do
  try
    Close;
    SQL.Clear;
    SQL.Add('....');
    ExecSQL;
  Except on E:Exception do
    begin
      AdoConnection.RollbackTrans; // annulation de la transaction
      exit;
    end;
  end;
Adoconnection.CommitTrans; // validation de la transaction

ça a trés bien marché merci pour vos aide, vous etes les rois :king: