DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: ZMskyuza
今日帖子: 27
在线用户: 14
导航: 论坛 -> 未知:1 斑竹:  
作者:
女 老妖 ▲△△△△ -
2003/4/22 20:51:22
标题:
关于数据库内容导入导出 浏览:3054
加入我的收藏
楼主: 我想把文本文件里的内容导入到数据库中去,还有把已经查询好了的结果导出到文本文件中去。 请问各位大哥怎样弄
----------------------------------------------
作者:
女 123 (猪猪) ★☆☆☆☆ -
盒子活跃会员
2003/4/22 22:19:04
1楼: 用微软的Office Access就可以了.
如果用程序,参考:
procedure Tfrm_main.SetCardList(id:Integer;s:string);
//这个例子是分离,分隔的6个字段.
const
  SEP=',';
var
  i,j:Integer;
  ss:string;
  cs:array[0..6]of string;

  li: TListItem;
begin
  ss:=s;
  for i:=0 to 5 do
  begin
    j:=Pos(SEP,ss);
    cs[i]:=Copy(ss,1,j-1);
    Delete(ss,1,j);
  end;
  cs[6]:=ss;
  cs[0]:=ss;

  if id=-1 then
  begin
    li := ListView_Card.Items.Add;
    li.Caption := cs[0];
    for i:=1 to 6 do
      li.SubItems.Add(cs[i]);
  end else
  begin
    ListView_Card.Items[id].Caption:=cs[0];
    for i:=1 to 6 do
    begin
      ListView_Card.Items[id].SubItems.Strings[i-1]:=cs[i];
      showmessage(cs[i]);
    end;
  end;
end;
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS