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