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创建表格

WPF应用 - 自动表格创建

根据行数,列数自动创建表格,使用WPF中的Grid很容易实现,并且容易实现单元格的合并拆分。主要需要解决两个问题: 单元格的定位,那一行,那一列,占几行,占几列 单元格的边框 行,列,占行,占列该问题...

js 实现 表格自动下移

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

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

Delphi实现网页表单数据的自动提交

本文介绍Delphi是任何实现网页表单数据的自动提交功能的,给初代码参考。 MSHTML是微软公司的一个COM组件,该组件封装了HTML语言中的所有元素及其属性,通过...

Acess创建数据库

  • 2011-07-25 11:01
  • 818KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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