zoukankan      html  css  js  c++  java
  • 学习 SQL 语句 Select(9): 其他

    //只要前五条记录
    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;
    
  • 相关阅读:
    slenium截屏
    效率提升
    R语言网页爬虫
    高性能计算
    数据操作
    数据库操作
    面向对象编程
    元编程
    R 的内部机制
    数据处理
  • 原文地址:https://www.cnblogs.com/del/p/1491411.html
Copyright © 2011-2022 走看看