Discussion :

[myflash]

Quelqu'un a une idee de comment regler ce probleme ????

j'ai le message d'erreur "Missing semicolon ( ; ) at end of SQL statement"

j'ai besoin d'ajouter plusieur record en 1 transaction, au pire si vous avez un autre exemple qui fonctionne je peux voir si je peux adapter ca a mon code.

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
32
 
 
 
procedure InsertMultipleEntries;
var
    Conn      : TADOConnection;
    AdoQuery  : TADOQuery;
begin
    Conn := TADOConnection.create(nil);
    try
        Conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Mode=Share Exclusive;Data Source="maBD.mdb"';
        Conn.LoginPrompt      := false;
        Conn.Connected        := true;
        try
            try
                AdoQuery            := TADOQuery.create(nil);
                AdoQuery.Connection := Conn;
                AdoQuery.SQL.Text   := 'INSERT INTO Personne (Nom, Prenom) VALUES (''Charle'', ''Charet''), ( ''Manon'', ''Plante'');';
                AdoQuery.ExecSQL;
            except
                on E: Exception do
                begin
                    ShowMessage(E.Message);
                end;
            end;
        finally
            AdoQuery.Free;
        end;
    finally
        Conn.Free;
    end;
end;

[pprem]

L'insertion multiple n'est pas prise en charge par MS Access : https://learn.microsoft.com/en-us/of...oft-access-sql

[SergioMaster]

Bonjour,

Je n'ai jamais été un fan d'ADO

j'ai besoin d'ajouter plusieurs records en 1 transaction

à essayer

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
32
33
34
35
 
procedure InsertMultipleEntries; 
var
    Conn      : TADOConnection;
    AdoQuery  : TADOQuery;
begin
    Conn := TADOConnection.create(nil);
    try
        Conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Mode=Share Exclusive;Data Source="maBD.mdb"';
        Conn.LoginPrompt      := false;
        Conn.Connected        := true;
        try 
            try
                Conn.BeginTrans;
                AdoQuery            := TADOQuery.create(nil);
                AdoQuery.Connection := Conn;
                AdoQuery.SQL.Text   := 'INSERT INTO Personne (Nom, Prenom) VALUES (''Charle'', ''Charet'')';
                AdoQuery.ExecSQL;
                AdoQuery.SQL.Text   := 'INSERT INTO Personne (Nom, Prenom) VALUES ( ''Manon'', ''Plante'')';
                AdoQuery.ExecSQL;
                Conn.CommitTrans;
            except
                on E: Exception do
                begin
                    Conn.RollbackTrans; // rollback.   
                    ShowMessage(E.Message);
                end;
            end;
        finally
            AdoQuery.Free;
        end;
    finally
        Conn.Free;
    end;
end;

[myflash]

Bonjour,

Je n'ai jamais été un fan d'ADO


à essayer

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
32
33
34
35
 
procedure InsertMultipleEntries; 
var
    Conn      : TADOConnection;
    AdoQuery  : TADOQuery;
begin
    Conn := TADOConnection.create(nil);
    try
        Conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Mode=Share Exclusive;Data Source="maBD.mdb"';
        Conn.LoginPrompt      := false;
        Conn.Connected        := true;
        try 
            try
                Conn.BeginTrans;
                AdoQuery            := TADOQuery.create(nil);
                AdoQuery.Connection := Conn;
                AdoQuery.SQL.Text   := 'INSERT INTO Personne (Nom, Prenom) VALUES (''Charle'', ''Charet'')';
                AdoQuery.ExecSQL;
                AdoQuery.SQL.Text   := 'INSERT INTO Personne (Nom, Prenom) VALUES ( ''Manon'', ''Plante'')';
                AdoQuery.ExecSQL;
                Conn.CommitTrans;
            except
                on E: Exception do
                begin
                    Conn.RollbackTrans; // rollback.   
                    ShowMessage(E.Message);
                end;
            end;
        finally
            AdoQuery.Free;
        end;
    finally
        Conn.Free;
    end;
end;

Je viens d'essyer plusieur test... on economise un peu de temp mais pas grand chose, a limite 10% peut etre

[SergioMaster]

Je viens d'essayer plusieurs tests... on économise un peu de temps, mais pas grand-chose, a limite 10% peut-être

Ma réponse n'était pas sur le temps d'exécution, mais sur le fait de le faire en une seule transaction.

Il faudrait tester avec Firedac et ses fonctionnalités comme les ArrayDML pour se faire une idée niveau temps d'exécution

[ShaiLeTroll]

Tu peux aussi utilise une requête paramètrée, cela éconmisera la partie parsing SQL et justement le binding donc les itérations seront plus rapides