delphi实现自动创建Acess的表格

原创 2006年05月21日 11:36:00

 try

    ADC_tbnv.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + extractfiledir(application.exename) + '/tbnv_image.mdb' + ';Persist Security Info=False';
    ADC_tbnv.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + extractfiledir(application.exename) + '/tbnv_image.mdb' + ';Persist Security Info=False';

    with ADC_tbnv do
    begin
      close;
      commandText := 'CREATE TABLE  pgycs  (guiydh char (12) , yngyjg char (10))';
      Execute;
      close;
    end;


    datamodule1.cds_ceb_sw.close;
    datamodule1.cds_ceb_sw.commandtext := 'select guiydh,yngyjg from pgycs where yngyjg  in (select yngyjg from pjgcs where yinhdm=''' + gbranchno + ''') ';
    datamodule1.cds_ceb_sw.open;
    while not datamodule1.cds_ceb_sw.eof do
    begin
      adq_image.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + extractfiledir(application.exename) + '/tbnv_image.mdb' + ';Persist Security Info=False';

      adq_image.close;
      adq_image.sql.text := 'select * from pgycs where guiydh=''' + datamodule1.cds_ceb_sw.fieldbyname('guiydh').AsString + '''';
      adq_image.open;
      if adq_image.RecordCount = 0 then
      begin
        adq_image.edit;
        adq_image.FieldValues['guiydh'] := datamodule1.cds_ceb_sw.fieldbyname('guiydh').AsString;
        adq_image.FieldValues['yngyjg'] := datamodule1.cds_ceb_sw.fieldbyname('yngyjg').AsString;
        try
          adq_image.post;
        except
        end;
      end;
      datamodule1.cds_ceb_sw.next;

    end;

  except
  end;

delphi7创建表格

  • 2011年10月28日 18:25
  • 4KB
  • 下载

extjs 实现自动创建表格,多行编辑

/**  * Created by IntelliJ IDEA.  * User: Administrator  * Date: 14-9-23  * Time: 下午4:04  * To ...

用vc6.0创建acess数据库的问题

  • 2014年03月20日 11:31
  • 5KB
  • 下载

Delphi中实现DBGrid列宽度自动调整

      发现一些ERP的软件的查询,查询出来结果之后,有的字段列宽过大,这时候要通过右键--初始化表格设置 这样的方式来调整表格的列宽。这样操作让人觉得麻烦,突然在网上看到这样的一篇文章,记下来备...

Acess创建数据库

  • 2011年07月25日 11:01
  • 819KB
  • 下载

Delphi实现通用的定时自动关机程序

一、问题的提出:运行某任务的计算机,尤其是服务器,如果能实现在无人职守的情况下,到达指定时间时自动关机,那么将极大地减轻系统管理员的负担,也会给我们的日常工作带来很大方便。    笔者用Delp...
  • my98800
  • my98800
  • 2016年08月29日 09:12
  • 913
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi实现自动创建Acess的表格
举报原因:
原因补充:

(最多只允许输入30个字)