Discussion :

[810mcu]

Bonjour à Tous,
j'ai besoin d'aide parce que j'ai cherché sans succès.

je suis en Delphi6 et Access, TAdoQuery

Champ parameter[15] accepte VIDE(NULL) oui
E_Licence.Text est vide

J’ai bidouillé quelque chose du genre,

Code :

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

1
2
if (E_Licence.Text='') then q_Update.Parameters[15].Value := QuotedStr(E_Licence.Text)
else q_Update.Parameters[15].Value := E_Licence.Text;

mais il doit y avoir plus simple et plus pro...

Merci de votre aide
810mcu

[SergioMaster]

Je n'ai pas l'habitude de Adoquery .
Je présume que q_Update.Parameters[15].Value :=NULL ne fonctionne pas mais q_Update.Parameters[15].Clear existe peut être ?
Hélas cela semble être un des problème de ADO sur ce que j'en lis sur le net et ta bidouille semble être le seul moyen de le contourner

[810mcu]

Bonjour a tous
et salut SergioMaster,

Au fait en exécutant un Update a un TadoQuery,
j’ai une série de paramètres qui sont dans des Edit à attribuer au TAdoQuery
dont quelques uns sont vides et je désire qu’ils en reste comme ça vide(Null)
Et dont je confirme la table accepte des vides.

Il doit y avoir un truc… Au lieu de passer par ma bidouille...

[Cl@udius]

Salut

Comme l'a suggéré Sergio, est-que l'affectation de Null fonctionne ?

Code :

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

1
2
3
4
  if E_License.Text = '' then
    ADOQuery1.Parameters[15].Value := Null
  else
    ADOQuery1.Parameters[15].Value := E_License.Text;

@+

[810mcu]

- CLEAR n’est pas acceptez par TAdoQuery…
- NULL ne fonctionne pas, erreur dans la conversion

Une chose est sûre avec le bidouillage ça marche,
mais quand tu as 25 a 30 paramètres a transférer…
Bouf ça reste lourd comme code… mince alors...

[ShaiLeTroll]

Le TParameter de ADO est moins pratique que les Paramètres du BDE, de DBExpress ou chez UniDac Devart, pour la valeur nulle, il faut forcer le type !

Code :

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

1
2
3
4
5
6
7
  if E_License.Text = '' then
  begin
    ADOQuery1.Parameters[15].Value := Null;
    ADOQuery1.Parameters[15].DataType := ftString;
  end
  else
    ADOQuery1.Parameters[15].Value := E_License.Text;

Le comportement dépend aussi de la DB !
ACCESS, cela reste assez limité ! Je n'ai jamais utilisé ce format !
Le code ci-dessus fonctionne avec Oracle ou MySQL mais sur Sybase 10 cela insère -1 au lieu de NULL, le code suivant corrige le problème

Code :

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

1
2
3
4
5
6
  if E_License.Text = '' then
  begin
    ADOQuery1.Parameters[15].DataType := ftString;
  end
  else
    ADOQuery1.Parameters[15].Value := E_License.Text;

Par contre cela oblige d'avoir des ADOQuery créés à la volée et détruit après chaque utilisation pour forcer l'effacement des valeurs précédentes !