delphi dbexpress 取数据库中的数据,输出。 FieldByName

dbExpress查询的时候知道怎么设置输入参数input了，可是不知道怎么弄输出参数output来获得。

下面是用TsimpleDataSet的FieldByName方法获得数据库中字段的值

1新建工程，并加入以下组件，前两个在dbExpress组件下找

名称                                  类型              属性                值

SQLConnection1       TSQLConnection   按照原来设置为(odbc Prompt)

SimpleDataSet1         TsimpleDataSet      Connection          SQLConnection1

Button1                    Tbutton

Edit1                       TEdit

Edit2                       Tedit

Memo1                        Tmemo

关于设置odbc prompt 自己看我另外一篇吧，按照这篇做一遍就有咯：

http://blog.chinaunix.net/uid-25958655-id-3142753.html

2双击Button1代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  Iid:Integer;
  flow:Double;
begin
  SimpleDataSet1.Active:=false; //关闭联接
  SQLConnection1.Connected:=false;

  SimpleDataSet1.DataSet.CommandText:='select top 10 id,总流量 from result';

  SQLConnection1.Connected:=true; //打开联接,
  SimpleDataSet1.Active:=true; //查询

  Edit2.Text:=IntToStr(SimpleDataSet1.RecordCount); //获取记录数


  while not SimpleDataSet1.Eof do //Eof判断是否最后一条

    begin
        //Iid:=SimpleDataSet1.FieldValues['id']; //得到id字段的值
        Iid:=SimpleDataSet1.FieldByName('id').Value;//取id值
        Memo1.Lines.Add(IntToStr(Iid)); //在memo1上显示出来


        flow:=SimpleDataSet1.Fields[1].Value; //取下标为1字段的值,就是'总流量'的值
        Memo1.Lines.Add(FloatToStr(flow));

        Memo1.Lines.Add(' ');
        SimpleDataSet1.Next; //往下移一条

    end;

  SimpleDataSet1.Active:=false; //查询完关闭联接
  SQLConnection1.Connected:=false;

end;

 

 

3、记得一定要保存工程save project，否则它会提示找不到dll文件的。

运行一下，按一下按钮，就看到查询的数据了：

4还有其它取前一条prior，最后一条Last等方法

上面是我运行的程序，如果您按照这个运行有错的话，欢迎指出