[Delphi - Accuracer] Comment remplir une base de données ?
Bonjour,
Je travaille sur un projet en Delphi : je dois créer une base de données contenant, pour le moment, une seule table. L'outil Accuracer m'est imposé et je ne peux pas en changer.
J'essaie tant bien que mal de comprendre le fichier d'aide fourni (pas bien épais quand même).
Je souhaite créer une BD que j'appelle ici 'essai.edb'
Dans cette BD, je veux y créer une table 'log'
Cette table contiendra 4 champs qui ne sont pour le moment que des chaines de caracteres.
Dans mon soft, je pense que ma BD est créée correctement
Code:
1
2
3
4
5
|
ACRDatabase1.Connected:=False;
ACRDatabase1.DatabaseFileName:='essai.edb';
ACRDatabase1.CreateDatabase;
ACRDatabase1.Open; |
J'essaie ensuite d'y inclure ma table 'log'
Code:
1
2
3
4
5
6
7
8
9
10
|
ACRTable1.Active:=false;
ACRTable1.TableName:='log';
ACRTable1.Close;
ACRTable1.FieldDefs.Clear;
ACRTable1.FieldDefs.Add('Date',ftString,100);
ACRTable1.FieldDefs.Add('Time',ftString,100);
ACRTable1.FieldDefs.Add('Type',ftString,100);
ACRTable1.FieldDefs.Add('Comments',ftString,100); |
La je ne suis pas sur du tout de mon algo et je n'arrive pas à trouver dans l'aide ...
Et je souhaite finir par écrire dans ma table
Code:
1
2
3
4
5
6
7
8
9
10
| try
sql:=TACRQuery.Create(nil);
sql.DatabaseName:=ACRDatabase1.DatabaseName;
sql.sql.Text:='INSERT INTO log (Date, Time, Type, Comments) VALUES (date,heure,infos,RAS)';
sql.ExecSQL;
finally
sql.Free;
ACRDatabase1.Open;
end; |
Et la c'est le drame, plantage sur la ligne sql.ExecSQL ??? Kezaco ??
(sql est défini comme ceci : sql: TACRQuery; )
Merci
:arf:
:help:
