学习 SQL 语句 - Select(9): 其他

weixin_33932129

于 2014-09-26 15:30:00 发布

阅读量101

点赞数

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319273

本文深入探讨了编程领域中常见的误解——为什么只有少数程序员能够成功转型为架构师。通过分析技术和职业发展之间的关键区别，文章揭示了成为优秀架构师所需的独特技能和思维方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

为什么80%的码农都做不了架构师？>>>

//只要前五条记录
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADODataSet1 do begin
    Close;
    CommandText := 'SELECT TOP 5 * FROM country';
    Open;
  end;
end;

//去除重复
procedure TForm1.Button2Click(Sender: TObject);
begin
  with ADODataSet1 do begin
    Close;
    CommandText := 'SELECT DISTINCTROW * FROM country';
    Open;
  end;
end;

//获取字段列表
procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
  str: string;
begin
  str := '';
  for i := 0 to ADODataSet1.FieldDefs.Count - 1 do
  begin
    str := str + ADODataSet1.FieldDefs[i].Name + sLineBreak;
  end;
  ShowMessage(str);
end;

转载于:https://my.oschina.net/hermer/blog/319273