Discussion :

[altaruk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ShaiLeTroll]

Je ne connais pas ACR mais le SQL me choque sur "(date,heure,infos,RAS)"

ce sont des fonctions date, heure, ... sinon il manque des guillemets pour indiquer que ce sont des chaines ...