PureBasic

Salut tout le monde

J"ai un programme assez volumineux qui fonctionne parfaitement. Je viens juste d'ajouter Une procédure et voilà que le programme refuse de créer des enregistrements dans une table vide. Je montre ici uniquement les procédures concernées, où se trouve l'erreur ?

Merci

Code : Tout sélectionner

;------------------------------------------------------------------------------------------
Procedure Add_To_BlackList()
sql="SELECT * FROM fln where codeclient=" + Chr(34) + codeclient$ + Chr(34)
CheckDatabaseQuery(idLn,sql)
If Not NextDatabaseRow(idLn)
   sql="insert into fln (Codeclient,client) values ("
   sql+ Chr(34) + codeClient$      + Chr(34) + ","   
   sql+ Chr(34) + client$          + Chr(34) + ")" 
   CheckDatabaseUpdate(idln,sql)
EndIf
FinishDatabaseQuery(idln)

;L'insertion ici ne marche pas
EndProcedure

;------------------------------------------------------------------------------------------
Procedure Delete_from_BlackList()
sql="SELECT * FROM fln where codeclient=" + Chr(34) + codeclient$ + Chr(34)
CheckDatabaseQuery(idLn,sql)
If NextDatabaseRow(idLn)
   sql="Delete from fln where codeclient=" + Chr(34) + codeclient$ + Chr(34)
   CheckDatabaseUpdate(idLn,sql)
EndIf
FinishDatabaseQuery(idln)
EndProcedure

;--------------------------------------------------------------------------------------------------------
Procedure Retard_Appliquer()
  For wrow=0 To CountGadgetItems(#Retard_grid)-1
      If GetGadgetItemState(#Retard_grid,wrow)=#PB_ListIcon_Checked
         codeclient$=GetGadgetItemText(#Retard_grid,wrow,0) 
         client$=GetGadgetItemText(#Retard_grid,wrow,1)
         Add_To_BlackList()
      Else
         Delete_from_BlackList()
      EndIf
  Next Wrow
  
  MessageRequester("Liste noire","Liste noire actualisée !")
  
EndProcedure

Bonsoir,

As-tu essayé DatabaseError() pour voir si tu avais une erreur retournée ?
Si possible, poste le code de tes procédures CheckDatabaseQuery() et CheckDatabaseUpdate()

Bonsoir,

J'ai testé ton code et ta requette insert into fln (Codeclient,client) values ("123456","abcdef") est validée de la manière suivante.

Pour trouver mes erreur SQL, j'utilise le programme d'édition de de base SQLlite Liya. Tu ajoute un debug sql après avoir crée ta requête.
Tu ouvres ta base avec Liya.
Tu fait un copier/coller dans le champ SQL command et à l'exécution, tu obtiens tes erreurs SQL.
J'utilise cette méthode quand j"ai des pb de construction de requête.

Le pb est certainement ailleurs, il faudrait le code complet avec création de la base et procédure pour te dépanner.

Bonne fin d'année

PureBasic

Problème avec insert into

Problème avec insert into

Re: Problème avec insert into

Re: Problème avec insert into