Missing semicolon ( ; ) at end of SQL statement

Version imprimable

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:

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;

17/07/2023, 07h29
pprem

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

Bonjour,

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

Citation:

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

à essayer

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
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;

Citation:

Envoyé par SergioMaster

Bonjour,

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

à essayer

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
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

17/07/2023, 11h21
SergioMaster

Citation:

Envoyé par myflash

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
17/07/2023, 14h45
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