uniDBGrid导入数据库(转红鱼儿)

简介: 有朋友问如何将excel导入数据库,这是我做的uniGUI项目中代码,实现uniDBGrid导入数据库的函数,因为用了kbmMW,所以你看到是将uniDBGrid导入kbmMWClientQuery,然后提交的ClientQuery到数据库。

有朋友问如何将excel导入数据库,这是我做的uniGUI项目中代码,实现uniDBGrid导入数据库的函数,因为用了kbmMW,所以你看到是将uniDBGrid导入kbmMWClientQuery,然后提交的ClientQuery到数据库。共享了!
function ImportFromFile(aDataSet: TkbmMWClientQuery; aGrid: TUniDBGrid; aFileName: string): Boolean;
var
 

r, c, i: integer;
  // v: TCellValue;
  xls: TExcelfile;
begin
  aDataSet.DisableControls;
  xls := TXlsFile.Create(False);
  try
    xls.Open(aFileName);
    xls.ActiveSheet := 1;

    for r := 2 to xls.RowCount do
    begin
      if not IsBlankRow(xls, r) then // 不是空行则填加
      begin
        aDataSet.Append;
        for i := 0 to aGrid.Columns.Count - 1 do
        begin
          c := GetColByName(xls, aGrid.Columns[i].Title.Caption);
          if c <> -1 then
          begin
            case aDataSet.FieldByName(aGrid.Columns[i].FieldName).DataType of
              ftDateTime, ftDate:
                aDataSet.FieldByName(aGrid.Columns[i].FieldName).AsDateTime := xls.GetCellValue(r, c).ToDateTime(False);
            else
              aDataSet.FieldByName(aGrid.Columns[i].FieldName).AsString := xls.GetCellValue(r, c)
                .ToString.Replace(' ', '').Replace('''', '');
            end;
          end;
        end;

        aDataSet.Post;
      end;
    end;
    result := aDataSet.Resolve;

  finally
    aDataSet.EnableControls;
    xls.Free;
  end;
end;
目录
相关文章
|
1月前
SPSS导入数据 错误号 105
SPSS导入数据 错误号 105
19 0
|
存储 SQL 运维
100万数据,如何快速的导入数据库?
数据导出、导入是非常常见的开发操作,但在这个过程中,很多开发者都会遇到诸如数据乱码、数据格式不支持、数据量太大等问题。NineData 最新发布的数据导入功能,帮助用户在保障数据完整和准确的同时,轻松地将大量的数据从文件中导入到目标数据库中。
146 0
100万数据,如何快速的导入数据库?
|
SQL 存储 关系型数据库
mysql 导入数据太慢,来教你实用干货
还在等什么,快来关注我,以及公众号【八点半技术站】,加入社群一起讨论吧
|
JavaScript Java
实战:第十七章:xlsx文件导入数据入库
实战:第十七章:xlsx文件导入数据入库
192 0
|
SQL 关系型数据库 MySQL
深聊MySQL,从入门到入坟之:如何优化数据导入?
深聊MySQL,从入门到入坟之:如何优化数据导入?
168 0
深聊MySQL,从入门到入坟之:如何优化数据导入?
|
SQL 数据挖掘 Python
Excel查询函数终结者
Excel查询函数终结者
103 0
Excel查询函数终结者
|
JavaScript 关系型数据库 MySQL
给你 2 万条数据,怎么快速导入到 MySQL?写得太好了!
给你 2 万条数据,怎么快速导入到 MySQL?写得太好了!
给你 2 万条数据,怎么快速导入到 MySQL?写得太好了!
|
存储 SQL 安全
Python案例教学之Mysql数据库的数据导入与导出 -CSV文件【第九课】
将csv数据导入数据库时出现‘The used command is not allowed with this MySQL version’错误,网上说是从本地导入文件的参数没有打开,在mysql.data升级之后,为了安全考虑,默认不允许加载本地文件数据。查找了好几个方法嫌麻烦,突然想起了老师原来讲过! 只需在连接数据库时添加local_infile:1就可以解决。
644 1
Python案例教学之Mysql数据库的数据导入与导出 -CSV文件【第九课】
|
SQL 关系型数据库 MySQL
给你 2 万条数据,怎么快速导入到 MySQL?写得太好了...
给你 2 万条数据,怎么快速导入到 MySQL?写得太好了...
121 0
|
SQL 存储 关系型数据库
关于数据导入,教你几招
我们知道,数据库是存放数据的仓库。日常我们使用数据库也是为了存储数据,和数据库打交道总免不了要进行数据导入工作。工作中也可能遇到各种不同的数据导入需求,本篇文章主要分享下数据导入相关的小技巧,希望你能学到几招。
326 0
关于数据导入,教你几招