Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1205454
  • 博文数量: 250
  • 博客积分: 1218
  • 博客等级: 少尉
  • 技术积分: 2788
  • 用 户 组: 普通用户
  • 注册时间: 2011-06-19 02:33
文章分类

全部博文(250)

文章存档

2019年(1)

2018年(10)

2016年(1)

2015年(20)

2014年(115)

2013年(46)

2012年(37)

2011年(20)

分类: 数据库开发技术

2012-04-06 10:53:42

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

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

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代码如下:


  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   i:Integer;
  4.   Iid:Integer;
  5.   flow:Double;
  6. begin
  7.   SimpleDataSet1.Active:=false; //关闭联接
  8.   SQLConnection1.Connected:=false;

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

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

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


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

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


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

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

  22.     end;

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

  25. end;



 

 

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

运行一下,按一下按钮,就看到查询的数据了:

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

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


 

阅读(3871) | 评论(2) | 转发(0) |
给主人留下些什么吧!~~

xuebabybaby2012-04-09 22:45:22

夏冰软件: 非常不错,支持一下.....
谢谢,个人感觉,它是在TsimpleDataSet中有一张表一样,然后有一个指向表里面记录的指针,我们通过移动这个指针来取表中的一条记录。
你觉得呢?

夏冰软件2012-04-09 16:08:19

非常不错,支持一下

评论热议
请登录后评论。

登录 注册