Discussion :

[ALLAGUIM]

Bonjour,

J'utilise Excel 2016 et Activex Data Obecjt 6.1 Library

Je cherche à executer par exemple cette requete "Delete from table1; Delete from table2;".
Voilà mon bout de 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
 
Sub Purge_Databse()
 
    Call Connect_To_DataBase
 
    ' Defining and initialiazing a Command Object which will handle the execution of sql queries
  Dim Purge_Script As ADODB.Command
  Set Purge_Script = New ADODB.Command
 
  Purge_Script.ActiveConnection = Firebird_Connection
 
  Purge_Script.CommandText = "Delete from table1; Delete from table2;"
  Purge_Script.Execute
 
 
  Firebird_Connection.Close
 
End Sub

J'ai cet erreur, "SQL errorcode = -104 Token unknow -line 2 column 1 Delete"

à ce que j'ai compris, l'erreur vient du fait qu'il comprend pas le separateur pour executer et aller à la ligne suivante.

Une autre question, si j'execute une commande avec l'objet command, est ce qu'il y a un commit automatique qui se fait aprés chaque exécution.

Donc je me demande si je peux spécifier ça en paramétrant mon ADODB.Command, comme ça je peux exectuer plusieurs requetes à la fois.

Merci pour vos aides précieuses

[Invité]

Bonjour,
déjà quel genre de base de données? sur Access ça marche pas!
ça fonction sur SQL serveur, Oracle, SqLite et d'autres!

Code :

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

1
2
sql= "Delete from table1"  & VbCrlf
sql= sql & "Delete from table2;"

Edite:Firebird je connais pas!

[ALLAGUIM]

Bonjour,
Merci pour la réponse, j'utilise Firebird 3, par contre, je suis pas ur d'avoir compris ce que ça fait le le "VbCrlf"

[Invité]

Bonjour,
VbCrlf renvoi à la ligne.

Ça marche ?

[ALLAGUIM]

Malheureusement, ça marche pas

[Invité]

Bonjour,
Il faut regarder dans la documentation si Firebird accepte ça.

Il est plus facile de trouver un exemple qui explique que c'est possible que l'information qui dit que ça ne l'ai pas!