数一数车主拥有多少辆车

Question

我正在尝试学习plsql，并且被困在理解一些基本的东西上。这是我正在努力解决的一个挑战。我有两张桌子。一个是关于车主的信息，另一个是关于汽车的信息。

我想写一个匿名块，连接这两个表，并使用一个for循环，它基于注册给每个车主的汽车数量，打印每个人拥有的汽车数量。此外，我想要一个if语句，区分1辆汽车(单数)和2，3辆汽车(复数)。

表如下所示：

CREATE TABLE owners(
    id_nr VARCHAR2(13) PRIMARY KEY,
    f_name VARCHAR2(20),
    s_name VARCHAR2(20)
);
    
CREATE TABLE cars(
    reg_nr VARCHAR2(6) PRIMARY KEY,
    id_nr REFERENCES owners(pnr),
    model VARCHAR2(20),
    year NUMBER(4),
    date DATE
);

结果可能如下所示：

19380321-7799, Hans, Anderson, Owns: 1 car
19490321-7899, Mike, Erikson, Owns: 2 cars

。。。等

我知道这个问题已经回答了，但当我尝试以下内容时：

declare
    v_suffix varchar2(1);
begin
    for o in (select bilägare_pnr, fnamn, enamn,
                (select count(1) from fordon where fordon_pnr = bilägare_pnr) as bilar_ägda
                from bilägare)
    loop
        if o.pnr_fordon = 1 
            then v_suffix = 'bil'
            else v_suffix = 'bilar'
        end if;
        dbms_output.put_line(o.pnr || ', ' || o.fnamn || ', ' || o.enamn
            || ' Äger: ' || o.pnr_fordon || ' bil' || v_suffix);
    end loop;
end;
/

我得到了：

ORA-06550: line 9, column 27:
PLS-00103: Encountered the symbol "=" when expecting one of the following:

   := . ( @ % ; 

有什么建议吗？我不确定如何声明v_suffix

编辑(从下面的答案注释中复制)：

更新我的代码：

declare
  cursor c_BILÄGARE is
    select fnamn,enamn,pnr
      from BILÄGARE;
begin
  for rec in c_BILÄGARE loop
    if (rec.antal>1) then
     dbms_output.put_line (rec.pnr||','|| rec.fnamn || ',' ||
                           rec.enamn || ',' || rec.antal || 'bilar');
    else
      dbms_output.put_line (rec.pnr||','|| rec.fnamn || ',' ||
                            rec.enamn || ',' || rec.antal || 'bil');
    end if;
  end loop;
end;

获取：

ORA-06550: line 9, column 9: PLS-00302: component 'ANTAL' must be declared (antal=Quantity)

Answer 1

如上所述，您需要使用:=作为赋值操作符。您还需要在每个语句后使用分号-因此，您应该使用

then v_suffix := 'bil';

而不是

then v_suffix := 'bil'

因此，您的代码应该如下所示：

declare
    v_suffix varchar2(1);
begin
    for o in (select bilägare_pnr, fnamn, enamn,
                (select count(1)
                   from fordon
                   where fordon_pnr = bilägare_pnr) as bilar_ägda
                from bilägare)
    loop
        if o.pnr_fordon = 1 
            then v_suffix := 'bil';
            else v_suffix := 'bilar';
        end if;

        dbms_output.put_line(o.pnr || ', ' || o.fnamn || ', ' || o.enamn
            || ' Äger: ' || o.pnr_fordon || ' bil' || v_suffix);
    end loop;
end;

Answer 2

请尝试这段代码：

begin

for rec in (select
    o.id_nr ||  ',' || o.f_name || ',' || o.s_name || ', Owns: ' || coalesce(car.cnt, 0) || ' ' || decode(car.cnt , 1, 'Car', 'Cars') as res
    from owners o
    left outer join (select id_nr, count(1) as cnt from cars group by id_nr) car on (car.id_nr = o.id_nr)) loop
   dbms_output.put_line(rec.res);
end loop;
end;

谢谢。

Answer 3

您的代码中有多个问题，在以下代码中突出显示并修复了这些问题：

declare
    v_suffix varchar2(5); -- data length should be 5 or more
begin
    for o in (select bilägare_pnr, fnamn, enamn,
                (select count(1) from fordon where fordon_pnr = bilägare_pnr) as bilar_ägda
                from bilägare)
    loop
        if o.bilar_ägda <= 1 -- replaced it from pnr_fordon and <= is used for 0 or 1 car
            then v_suffix := 'bil'; -- := and ; is used here and in next statement
            else v_suffix := 'bilar';
        end if;
        dbms_output.put_line(o.pnr || ', ' || o.fnamn || ', ' || o.enamn
            || ' Äger: ' || o.pnr_fordon || ' bil' || v_suffix);
    end loop;
end;
/