Discussion :

[Petaroux]

Bonjour,

J'ai une erreur que je n'arrive pas à résoudre.
je et une requete sql dans une variable, que j'execute ensuite grace à un database.execute()
Comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFrmPrincipal.Button7Click(Sender: TObject);
var
commande_sql : string;
begin
 commande_sql := 'LOAD DATA  INFILE "' + '//opt//appli//donnees//spool//referentiel//' +
 'toto.csv" INTO TABLE matable FIELDS TERMINATED BY '';'' ENCLOSED BY ''"'' ESCAPED BY ''\\'' LINES TERMINATED BY ''\r\n''';
 FrmPrincipal.Database1.Execute(commande_sql);
 showmessage('fichier importé.');
end;

J'ai voulu comprendre le fonctionnement d'Execute() et quelque genre de message elle renvoi.
J'ai donc mis le retour dans une variable integer.
Comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFrmPrincipal.Button7Click(Sender: TObject);
var
commande_sql : string;
recup := integer;
begin
 commande_sql := 'LOAD DATA  INFILE "' + '//opt//appli//donnees//spool//referentiel//' +
 'toto.csv" INTO TABLE matable FIELDS TERMINATED BY '';'' ENCLOSED BY ''"'' ESCAPED BY ''\\'' LINES TERMINATED BY ''\r\n''';
 recup := FrmPrincipal.Database1.Execute(commande_sql);
 showmessage('fichier importé.'+ inttostr(recup));
end;

Et bien ce code ne fonction ne pas et me renvoi une erreur de violation d'accés.
Je précise que ce message n'apparait que lorsque la variable recup est integer. Sinon ça ne compile pas
Voir l'image ce dessous.



Merci de votre aide et de prendre sur votre temps.

[anapurna]

salut

le composant Tdatabase sert a l'acces a la base de donnée
pour executer les requette ou commande sql utilise les dataset de préférence

le exec du Tdatabase sert a sa connexion

utilise plutot le "ExecSql" d'un tQuery

exemple de code pouvant t'aider a utiliser les TQuery

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
 
Procedure TDmMonProg.ExecQuery(aData: TQuery);
begin
  If aData.Sql.Count > 0 Then
  Try
    aData.ExecSql;
    aData.Sql.Clear;
  Except
    Raise;
  End;
end;
 
procedure TDmMonProg.EndSql;
begin
  execQuery(QrMaj);
end;
 
procedure TDmMonProg.AddSql(cmd : String);
begin
  QrMaj.SQL.Append(cmd);
  if (Length(QrMaj.SQL.Text) > 30000) then
    EndSql;
end;
 
procedure TDmMonProg.execSql(cmd : String);
begin
  AddSql(cmd);
  EndSql;
end;

ensuite dans le programme tu l'utilise ainsi

Code :

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

1
2
3
4
5
6
7
8
9
procedure TDmMonProg.Button7Click(Sender: TObject);
var
commande_sql : string;
begin
 commande_sql := 'LOAD DATA  INFILE "' + '//opt//appli//donnees//spool//referentiel//' +
 'toto.csv" INTO TABLE matable FIELDS TERMINATED BY '';'' ENCLOSED BY ''"'' ESCAPED BY ''\\'' LINES TERMINATED BY ''\r\n''';
 execSql(commande_sql);
 showmessage('fichier importé.');
end;

[Papy214]

Désolé mais le composant TDatabase est tout à fait capable d'exécuter des requêtes. Je le fais régulièrement.

Test 1: mettre un point d'arrêt juste après la composition de la requête, faire un copier-coller du texte et l'essayer en direct hors Delphi.

Test 2: englober l'appel dans un try except pour essayer d'avoir plus de précision sur le code erreur renvoyé.

[Petaroux]

Bonjour,

Merci a vous deux pour votre réponse.

Effectivement le code avec l'Execute et donc le Tdatabase fonctionne pour lancer les requêtes. ce n'est par contre peut être pas la meilleur méthode, je ne sais pas.
c'est lorsque j'essaye de mettre le résultat dans la variable recup qu'il bloque. Je veux dire par la que l'erreur viens de la ligne :

Code :

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

recup := FrmPrincipal.Database1.Execute(commande_sql);

Soit parce que le type n'est pas bon ( ce qu'il ne semble pas), soit parceque delphi ne sait pas interpréter ça, soit autre chose.
L'englober dans un try catch me sort exactement la même erreur et il s'arrête a la même ligne.

[Papy214]

et dans le var, c'est vraiment codé comme ça ??

recup := integer;

[Petaroux]

non...

var
recup : integer;

[Papy214]

Le source de la fonction execute est censé renvoyer un nombre de lignes:

Code :

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

1
2
3
4
 
  if (Cursor = nil) and (DbiGetProp(hDBIObj(StmtHandle), stmtROWCOUNT,
                          @Result, SizeOf(Result), Len) <> 0) then
    Result := 0;

Vu que ta requête n'est pas dans ce cas, il est probable que le @Result fasse un peu la gueule dans DbiGetProp.