| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/9 18:21:09 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 期待高手：你的出现！ 如何给adoquery1的"排名"字段赋值?在线等待.... 字段类型：文本 数据表：ACCESS2000 "排名"字段第1条记录值为：1； "排名"字段第2条记录值为：2； "排名"字段第3条记录值为：3； .... "排名"字段第n条记录值为：n; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/9 19:03:03 | ||||
| 1楼： | 请教adoquery1的编辑问题 如何实现这个功能？ 单击btn_ok，adoquery1的指定列(比如：4，6和8列他分别是3，5和7列的升序或降序，我要把她用1，2，3，4，.....由程序自动标出来)从第一条记录起向下到第n条记录，依次填写：1，2，3，4，.....,n,可以帮我写个具体代码吗？ [↑] huxhang@163.com qq:305698256 procedure TForm1.Button2Click(Sender: TObject); var s:string; j:LOngint; begin s:=ExtractFilePath(Paramstr(0))+'access_auto.mdb'; ADOTable1.Connection := ADOConnection1; ADOQuery1.Connection := ADOConnection1; ADOConnection1.Close ; ADOTable1.Close ; ADOQuery1.Close ; datasource1.DataSet :=ADOQuery1; ADOConnection1.ConnectionString := format(adocs2,[s]); ADOConnection1.Open ; //-------------------------------------------- ADOQuery1.SQL.Clear ; ADOQuery1.SQL.Add('select * from table2 order by hname' ); //id,,language是ACESS的关键字不能做表的字段 ADOQuery1.Open ; ADOQuery1.Close ; ADOTable1.TableName :='table2'; ADOTable1.Open ; ADOTable1.First ; j:=1; while not ADOTable1.Eof do begin//1 ADOTable1.Edit ; ADOTable1.FieldByName('paixuid').AsInteger :=j; inc(j); ADOTable1.Open ; ADOTable1.Next ; end;//1 ADOTable1.Close ; datasource1.DataSet :=ADOTable1; ADOTable1.Open ; end; ----------------------------------------------  
|
|||||
| 作者： |
|
2004/2/9 19:06:21 | ||||
| 2楼： | 谢谢！研究一下！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/9 20:00:01 | ||||
| 3楼： | 不行啊 bios ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/9 20:04:00 | ||||
| 4楼： | var s:string; j:LOngint; begin ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select top '+sortc+' * from book1 order by '+sortb+' '+sorta ); ADOQuery1.Close; j:=1; while not ADOQuery1.Eof do begin//1 ADOQuery1.Edit; ADOQuery1.FieldByName('现价排名').AsInteger :=j; inc(j); ADOQuery1.Open ; ADOQuery1.Next; end;//1 ADOQuery1.Close ; datasource1.DataSet :=ADOQuery1; ADOQuery1.Open; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/14 12:07:26 | ||||
| 5楼： | 偶都可以啊 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/14 12:08:03 | ||||
| 6楼： | datasource1.DataSet :=ADOTable1; 注意这句！ ----------------------------------------------
|
|||||
| 信息 |
| 登陆以后才能回复 |
