Discussion :

[alexdu62138]

J’ai une table SQL toto
Avec 4 champs NOM, Dénomination, lien, et ID

Donc je dois faire un programme sous Delphi qui regarde pour chaque ligne si le nom et null si cela est le cas Addprog (lien) et on passe a la ligne suivante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
id:=1;
while toto.id!= null do
begin
  if toto.nom!= null then
  begin
    VAR:= toto.lien;
    AddProg(Toto);
    id:=id+1;
  end
  else
  begin
    id:=id+1;
  end
end

Mais bon j’ai des erreurs et s’est la 1er fois que je programme sous delphi

Pouvez-vous m’aider SVP

[Andnotor]

Null ou not Null (!=)

Tu peux faire directement le test en SQL:

Code sql :

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

select * from MaTable where NOM is null

Sous Delphi:

Code :

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

1
2
3
4
5
6
7
8
Query1.SQL.Text := 'select Lien from MaTable where NOM is null';
Query1.Open;
 
while not Query1.EOF do
begin
  AddProg(Query1.FieldByName('Lien').AsString);
  Query1.Next;
end;

[paulfr]

Bonjour,

Si c'est sous Delphi il me semble que le "!" est en trop à la ligne 2 ?

PL

[Invité]

Sur le Query par exemple :

Code :

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

Query.FieldByName('Id').IsNull

[gvasseur58]

Attention : cette discussion date de 2010 ! Merci d'ouvrir un nouvelle discussion si nécessaire.

Cordialement,
Gilles