Delphi的EXE文件导出数据库
delphi中导入与导出
Excel文件
SELECT * into newtablename FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="C:\b.xls";Extended Properties="Excel 8.0;HDR=Yes; ";Persist Security Info=False')...sheet1$
SELECT * into newtablename FROM
OPENROWSET('Microsoft.Jet.OLEDB.4.0','c:\db1.mdb';'admin';'', 表名或查询语句)
delphi语句：
ADOQuery1.sql.Add('SELECT * into newtablename FROM
Access到Dbf
ADOQuery.sql.Add('SELECT * INTO aa in ''c:\'' ''dbase 5.0;'' FROM aa');
Access到EXcel
ADOQuery3.sql.Add('SELECT * INTO sheet表名 in ''c:\文件.xls'' ''EXCEL 5.0;'' FROM 表名');
/*动态文件名
declare @fn varchar(20),@s varchar(1000)
set @fn = 'c:\test.xls'
DELPHI将EXCEL数据导入到数据库中源码
DELPHI将EXCEL数据导入到数据库中源码以下是一个使用DELPHI将EXCEL数据导入到数据库的示例源码：```pascalunit Unit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,Data.Win.ADODB,Vcl.Grids,Vcl.DBGrids,Vcl.ExtCtrls,Excel97,ActiveX;typeTForm1 = class(TForm)Label1: TLabel;Button1: TButton;DataSource1: TDataSource;DBGrid1: TDBGrid;procedure Button1Click(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }procedure ImportExcelData(const AFileName, ASheetName: string);public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);varOpenFileDialog: TOpenDialog;beginOpenFileDialog := TOpenDialog.Create(nil);tryOpenFileDialog.Filter := 'Excel Files (*.xls, *.xlsx)，*.xls;*.xlsx';if OpenFileDialog.Execute thenbeginImportExcelData(OpenFileDialog.FileName, 'Sheet1');ShowMessage('Data imported successfully!');end;finallyOpenFileDialog.Free;end;end;procedure TForm1.FormCreate(Sender: TObject);beginDataSource1.DataSet := ADOQuery1;end;procedure TForm1.ImportExcelData(const AFileName, ASheetName: string);varExcelApp: TExcelApplication;Workbook: TExcelWorkbook;Worksheet: TExcelWorksheet;Range: Variant;I, J, StartRow, LastRow, StartColumn, LastColumn: Integer;FieldNames: TStringList;FieldValues: TStringList;beginExcelApp := TExcelApplication.Create(nil);tryExcelApp.Connect;Workbook := ExcelApp.Workbooks.Open(AFileName);Worksheet := Workbook.Sheets.Item[ASheetName] as TExcelWorksheet;Range := edRange;StartRow := Range.Row;LastRow := Range.Row + Range.Rows.Count - 1;StartColumn := Range.Column;LastColumn := Range.Column + Range.Columns.Count - 1;FieldNames := TStringList.Create;FieldValues := TStringList.Create;tryfor J := StartColumn to LastColumn dobeginFieldNames.Add(VarToStr(Worksheet.Cells[StartRow, J].Value));end;for I := StartRow + 1 to LastRow dobeginFieldValues.Clear;for J := StartColumn to LastColumn dobeginFieldValues.Add(VarToStr(Worksheet.Cells[I, J].Value)); end;//将数据插入数据库中ADOQuery1.ExecSQL;end;finallyFieldNames.Free;FieldValues.Free;end;Workbook.Close;finallyExcelApp.Disconnect;ExcelApp.Free;end;end;end.```上述示例中，需要使用到 `TExcelApplication` 和`TExcelWorkbook` 组件，这需要引入 `Excel97` 单元。
用Delphi进行数据库之间转换
用Delphi进行数据库之间转换在实际应用中,可能会遇到将一种数据库转为另一种数据库的情况,而Delphi可以完成这种功能。
尤其是需要将以前的dbase 数据库结构及内容转换成其它数据库结构时,采用此方法简单、快速且安全。
Delphi是一种Windows应用程序开发软件。
它速度快,具有强大且容易使用的可视化开发环境,并采用了具有弹性和可重用的完整的面向对象程序语言。
由于以上的这些特点,Delphi可以让我们快速地建立起主从结构的应用程序,可产生单一可执行文件与动态链接库以及从单机、网络到主从结构的应用程序。
使用Delhpi可以方便而快速地建立强大的数据库应用程序,可以和Paradox、dbase、Lo cal InterBase Server、Foxpro及ODBC数据源等多种桌面型数据库直接配合使用。
数据库转换方法1.所使用的控件2.TBatchMove控件的使用TBatchMove允许在一组记录或是整个数据表中执行特种作业, 这个控件的主要用途在于把数据从服务器中卸到本地的数据源供分析或进行其他操作。
TBatchMove可以在目的地建立对应于原数据表内容的数据表,自动将列名及数据类型进行适当的对应操作。
TBatchMove两个特性指明批量移动(Batch Move)操作的源表及目的表。
Source指定一个对应于已有的源数据表的数据集(一个Tquery或Ttable控件),Destination指明对应于一个数据库数据表的Ttable控件,目的数据表可以是已经存在的也可以是不存在的。
Mode特性指明TBatchMove对象所要做的事情:我们可以根据batCopy模式,对数据库类型进行适当的转换,以下是从dBASE类型到其它类型之间的转换结果:数据库转换举例现有用Foxbase开发的财务程序中的会计科目数据库(kjkmk.dbf),系统将升级到Window s环境下开发,数据库将采用Paradox语言。
Delphi将excel数据导入到数据库中源码
Delphi将excel数据导入到数据库中源码：procedure TFrm_Drsj.Button1Click(Sender: TObject);const BeginRow= 1; BeginCol= 2;variRE:Integer;iRow,iCol :Integer; //列、行MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant;beginTryOpenDialog1.FileName:='*.xls';if not OpenDialog1.Execute thenbeginExit;end;if ExtractFileExt(OpenDialog1.FileName) <> '.xls' thenbeginMessageBox(0, '请选择正确的excel文件',PChar('提示'),MB_OK or MB_ICONW ARNING);Exit;end;MsExcel:=CreateOleObject('Excel.Application');MsExcel.visible:=true;MsExcelWorkBook:=MsExcel.WorkBooks.Open(OpenDialog1.FileName);ExceptExit;end;//开始从EXCEL文件读取相关信息,并导入数据库中的users表TryApplication.ProcessMessages;//防止进程阻塞iRow:=BeginRow;iCol:=BeginCol;while trim(msExcel.WorkSheets['sheet1'].Cells[iCol,iRow].value) <> '' dobeginwith adoquery1 dobeginClose;SQL.Clear;SQl.Add('INSERT INTO users(id,mm,lxfs,yhsf,xm,xb,szxmc,nj) values(:id,:mm,:lxfs,:yhsf,:xm,:xb,:szxmc,:nj)');parameters.ParamByName('id').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow].value);parameters.ParamByName('mm').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow].value);parameters.ParamByName('lxfs').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+1].value) ;parameters.ParamByName('yhsf').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+2].value );parameters.ParamByName('xm').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+3].value) ;parameters.ParamByName('xb').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+4].value);parameters.ParamByName('szxmc').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+5].val ue);parameters.ParamByName('nj').Value:=Trim(msExcel.WorkSheets[1].Cells[iCol,iRow+6].value);ExecSQL;end;iCol:=iCol+1;end;MsExcel.Quit;ExceptMessageBox(self.Handle,'数据导入失败！','系统提示',0);;MsExcel.Quit;Exit;end;//end tryMessageBox(self.Handle,'数据导入成功！','系统提示',0);Frm_Drsj.Close;end;。
delphi导出数据至Excel的几种方法及比较
delphi导出数据至E xcel的几种方法及比较一、delphi快速导出ex celuses ComObj,clipbr d;functi on ToExce l(sfilen ame:string; ADOQue ry:TADOQu ery):boolea n;constxlNorm al=-4143;vary : intege r;tsList : TStrin gList;s,filena me :string;aSheet :Varian t;excel:OleVar iant;savedi alog :tsaved ialog;beginResult := true;trye xcel:=Create OleOb ject('Excel.Applic ation');e xcel.workbo oks.add;except//screen.cursor:=crDefa ult;showme ssage('无法调用Ex cel！');exit;end;savedi alog:=tsaved ialog.Create(nil);savedi alog.FileName:=sfilen ame; //存入文件savedi alog.Filter:='Excel文件(*.xls)|*.xls';if savedi alog.Execut e thenbegini f FileEx ists(savedi alog.FileNa me) thentryif application.messag ebox('该文件已经存在，要覆盖吗？','询问',mb_yesno+mb_iconquestion)=idyesthenDelete File(PChar(savedi alog.FileNa me))elsebeginExcel.Quit;savedi alog.free;//screen.cursor:=crDefa ult;Exit;end;exceptExcel.Quit;screen.cursor:=crDefa ult;Exit;end;f ilena me:=savedi alog.FileNa me;end;savedi alog.free;if filena me='' thenbeginresult:=true;Excel.Quit;//screen.cursor:=crDefa ult;exit;end;aSheet:=excel.Worksh eets.Item[1];tsList:=TStrin gList.Create;//tsList.Add('查询结果'); //加入标题s:=''; //加入字段名for y := 0 to adoque ry.fieldC ount- 1 dobegins:=s+adoQue ry.Fields.Fields[y].FieldN ame+#9 ; Applic ation.Proces sMess ages;end;tsList.Add(s);trytryA DOQue ry.First;WhileNot ADOQue ry.Eof dob egins:='';for y:=0 to ADOQue ry.FieldC ount-1 dobegins:=s+ADOQue ry.Fields[y].AsStri ng+#9;Applic ation.Proces sMess ages;end;tsList.Add(s);ADOQue ry.next;end;C lipbo ard.AsText:=tsList.Text;e xceptr esult:=false;end;finall yt sList.Free;aSheet.Paste;Messag eBox(A pplica tion.Handle,'数据导出完毕！','系统提示',MB_ICO NINFO RMA TION or MB_OK);tryi f copy(FileNa me,length(FileNa me)-3,4)<>'.xls' thenFileNa me:=FileNa me+'.xls';E xcel.Active Workb ook.SaveAs(FileNa me, xlNorm al, '', '', False, False);exceptExcel.Quit;s creen.cursor:=crDefa ult;exit;end;Excel.V isibl e := false; //true会自动打开已经保存的ex celExcel.Quit;Excel:= UnAssi gned;end;调用:ToExcel('D:\a.xsl',QueryT oExcel);//路径可以自定义-------------------------------------------------------------------------------------------------******************************************************************************************* ******二、delphi如何导出E XCEL，代码。
delphi查询数据库表及导出数据代码
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Clipbrd,Controls, Forms,Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables, Mask, DBCtrls,ComCtrls, ADODB,comobj;typeTForm5 = class(TForm)DBGrid1: TDBGrid;BitBtn1: TBitBtn;Label1: TLabel;Edit1: TEdit;Button1: TButton;Label2: TLabel;Label3: TLabel;Edit2: TEdit;Edit3: TEdit;ADOConnection1: TADOConnection;ADOQuery1: TADOQuery;DataSource1: TDataSource;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm5: TForm5;implementation{$R *.dfm}procedure TForm5.Button1Click(Sender: TObject); beginif (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') thenwith ADOQuery1 dobeginclose;SQL.Clear;SQL.Add('select MB001 AS 品号,MB002 AS 品名,MB003 AS 规格, INVMC.MC007 AS 库存数量, CMSMC.MC002 AS 仓库, MB004 AS 库存单位,MB148 AS 采购单位FROM INVMB,INVMC,CMSMC where (MB109=''Y'') and (MB001=INVMC.MC001) and (CMSMC.MC001=INVMC.MC002) and(MB001 like ''%'+(Edit1.Text)+'%'') and (MB002 like ''%'+(Edit2.Text)+'%'') and (MB003 like ''%'+(Edit3.Text)+'%'') order by MB001') ;openendelse if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text='') thenwith ADOQuery1 dobeginclose;SQL.Clear;SQL.Add('select MB001 AS 品号,MB002 AS 品名,MB003 AS 规格,INVMC.MC007 AS 库存数量, CMSMC.MC002 AS 仓库, MB004 AS 库存单位,MB148 AS 采购单位FROM INVMB,INVMC,CMSMC where (MB109=''Y'') and (MB001=INVMC.MC001) and (CMSMC.MC001=INVMC.MC002) and (MB001 like ''%'+(Edit1.Text)+'%'') and (MB002 like ''%'+(Edit2.Text)+'%'') order by MB001') ;openendelse if (Edit1.Text<>'') and (Edit2.Text='') and (Edit3.Text<>'') thenwith ADOQuery1 dobeginclose;SQL.Clear;SQL.Add('select MB001 AS 品号,MB002 AS 品名,MB003 AS 规格, INVMC.MC007 AS 库存数量, CMSMC.MC002 AS 仓库, MB004 AS 库存单位,MB148 AS 采购单位FROM INVMB,INVMC,CMSMC where (MB109=''Y'') and (MB001=INVMC.MC001) and (CMSMC.MC001=INVMC.MC002) and (MB001 like ''%'+(Edit1.Text)+'%'') and (MB003 like ''%'+(Edit3.Text)+'%'') order by MB001') ;openendelse if (Edit1.Text='') and (Edit2.Text<>'') and (Edit3.Text<>'') thenwith ADOQuery1 dobeginclose;SQL.Clear;SQL.Add('select MB001 AS 品号,MB002 AS 品名,MB003 AS 规格, INVMC.MC007 AS 库存数量, CMSMC.MC002 AS 仓库, MB004 AS 库存单位,MB148 AS 采购单位FROM INVMB,INVMC,CMSMC where (MB109=''Y'') and (MB001=INVMC.MC001) and (CMSMC.MC001=INVMC.MC002) and (MB003 like ''%'+(Edit3.Text)+'%'') and (MB002 like ''%'+(Edit2.Text)+'%'') order by MB001') ;openendelse if (Edit1.Text<>'') and (Edit2.Text='') and (Edit3.Text='') thenwith ADOQuery1 dobeginclose;SQL.Clear;SQL.Add('select MB001 AS 品号,MB002 AS 品名,MB003 AS 规格, INVMC.MC007 AS 库存数量, CMSMC.MC002 AS 仓库, MB004 AS 库存单位,MB148 AS 采购单位FROM INVMB,INVMC,CMSMC where (MB109=''Y'') and (MB001=INVMC.MC001) and (CMSMC.MC001=INVMC.MC002) and (MB001 like ''%'+(Edit1.Text)+'%'') order by MB001') ;openendelse if (Edit1.Text='') and (Edit2.Text<>'') and (Edit3.Text='') thenwith ADOQuery1 dobeginclose;SQL.Clear;SQL.Add('select MB001 AS 品号,MB002 AS 品名,MB003 AS 规格, INVMC.MC007 AS 库存数量, CMSMC.MC002 AS 仓库, MB004 AS 库存单位,MB148 AS 采购单位FROM INVMB,INVMC,CMSMC where (MB109=''Y'') and (MB001=INVMC.MC001) and (CMSMC.MC001=INVMC.MC002) and (MB002 like ''%'+(Edit2.Text)+'%'') order by MB001') ;openendelse if (Edit1.Text='') and (Edit2.Text='') and (Edit3.Text<>'') thenwith ADOQuery1 dobeginclose;SQL.Clear;SQL.Add('select MB001 AS 品号,MB002 AS 品名,MB003 AS 规格, INVMC.MC007 AS 库存数量, CMSMC.MC002 AS 仓库, MB004 AS 库存单位,MB148 AS 采购单位FROM INVMB,INVMC,CMSMC where (MB109=''Y'') and (MB001=INVMC.MC001) and (CMSMC.MC001=INVMC.MC002) and (MB003 like ''%'+(Edit3.Text)+'%'') order by MB001') ;openendend;procedure TForm5.Button2Click(Sender: TObject);varstr:string;i:Integer;excelapp,sheet:Variant;begin// lbl2.Caption:=DateTimeToStr(Now);str:='';dbgrid1.DataSource.DataSet.DisableControls;for i:=0 to dbgrid1.DataSource.DataSet.FieldCount-1 dostr:=str+dbgrid1.DataSource.DataSet.fields[i].DisplayLabel+char(9);str:=str+#13;dbgrid1.DataSource.DataSet.First;while not(dbgrid1.DataSource.DataSet.eof) do beginfor i:=0 to dbgrid1.DataSource.DataSet.FieldCount-1 dostr:=str+dbgrid1.DataSource.DataSet.Fields[i].AsString+char(9);str:=str+#13;dbgrid1.DataSource.DataSet.next;label1.Caption:=IntToStr(dbgrid1.DataSource.DataSet.RecNo);Application.ProcessMessages;end;//end whiledbgrid1.DataSource.DataSet.EnableControls;clipboard.Clear;Clipboard.Open;Clipboard.AsText:=str;Clipboard.Close;excelapp:=createoleobject('excel.application');excelapp.workbooks.add(1); // excelapp.workbooks.add(-4167);sheet:=excelapp.workbooks[1].worksheets[1];:='sheet1';sheet.paste;Clipboard.Clear;// :='宋体';// sheet.columns.font.size:=9;// sheet.Columns.AutoFit;excelapp.visible:=true;// lbl3.Caption:=DateTimeToStr(Now);end; end.。
用Delphi进行数据库之间转换
用Ｄｅｌｐｈｉ进行数据库之间转换 在实际应用中，可能会遇到将一种数据库转为另一种数据库的情况，而Ｄｅｌｐｈｉ可以完成这种功能。
尤其是需要将以前的ｄｂａｓｅ数据库结构及内容转换成其它数据库结构时，采用此方法简单、快速且安全。
Ｄｅｌｐｈｉ是一种Ｗｉｎｄｏｗｓ应用程序开发软件。
它速度快，具有强大且容易使用的可视化开发环境，并采用了具有弹性和可重用的完整的面向对象程序语言。
由于以上的这些特点，Ｄｅｌｐｈｉ可以让我们快速地建立起主从结构的应用程序，可产生单一可执行文件与动态链接库以及从单机、网络到主从结构的应用程序。
使用Ｄｅｌｈｐｉ可以方便而快速地建立强大的数据库应用程序，可以和Ｐａｒａｄｏｘ、ｄｂａｓｅ、Ｌｏ ｃａｌ ＩｎｔｅｒＢａｓｅ Ｓｅｒｖｅｒ、Ｆｏｘｐｒｏ及ＯＤＢＣ数据源等多种桌面型数据库直接配合使用。
数据库转换方法 １．所使用的控件 ２．ＴＢａｔｃｈＭｏｖｅ控件的使用 ＴＢａｔｃｈＭｏｖｅ允许在一组记录或是整个数据表中执行特种作业，这个控件的主要用途在于把数据从服务器中卸到本地的数据源供分析或进行其他操作。
ＴＢａｔｃｈＭｏｖｅ可以在目的地建立对应于原数据表内容的数据表，自动将列名及数据类型进行适当的对应操作。
ＴＢａｔｃｈＭｏｖｅ两个特性指明批量移动（Ｂａｔｃｈ Ｍｏｖｅ）操作的源表及目的表。
Ｓｏｕｒｃｅ指定一个对应于已有的源数据表的数据集（一个Ｔｑｕｅｒｙ或Ｔｔａｂｌｅ控件），Ｄｅｓｔｉｎａｔｉｏｎ指明对应于一个数据库数据表的Ｔｔａｂｌｅ控件，目的数据表可以是已经存在的也可以是不存在的。
Ｍｏｄｅ特性指明ＴＢａｔｃｈＭｏｖｅ对象所要做的事情： 我们可以根据ｂａｔＣｏｐｙ模式，对数据库类型进行适当的转换，以下是从ｄＢＡＳＥ类型到其它类型之间的转换结果： 数据库转换举例 现有用Ｆｏｘｂａｓｅ开发的财务程序中的会计科目数据库（ｋｊｋｍｋ．ｄｂｆ），系统将升级到Ｗｉｎｄｏｗ ｓ环境下开发，数据库将采用Ｐａｒａｄｏｘ语言。
VB与Delphi的简易数据库操作教程
数据库VB与delphi篇简易教程Author：lizhiliang06 Email :lizhiliang06@为什么我想花点时间给大家做一个数据库的简易教程呢？因为数据库方面的设计是比较容易学的,尽管如此，但是到现在为止，我感觉计算机的学生好像能真正写点程序的人也不多。
刚开始学习计算机时，我真的连键盘都还不会敲，以前几乎都没有碰过计算机，我相信大学以前这种人并不少。
记得大一刚开始时，我还没有计算机，开始学习自己写程序时，第一个VC程序是我花了整个晚上在同学的机上完成的，后来聪仔回忆起来说，那晚我吵死他了。
但是时间一晃，就过去了2年，我真的后悔我现在是大3了，要是大1或者大2那该多好啊，眼前看着我的师兄一个个地走出去，有时心里还真不是滋味。
想想大学里我得到了什么，在时间悄然溜走时，我得到了很多真诚相对，勤奋努力的人的帮助，他们让我提高了很多，这种真诚没有一丝一毫的虚假成分，我信赖他们，欣赏他们，一直当做自己的榜样。
然而我在校的时间也不多了，想尽自己的一点微薄之力帮助大家。
在这里我选择了VB和Delphi来操作数据库，因为我觉得数据库的编程用这两个工具还是比较方便的，界面的设计也比较容易，还有一个原因是我看了很多公司设计数据库方面的软件几乎都是这两种。
当然也有MFC的，但是在设计数据库方面，从开发速度上来说比不上VB和Delphi的，这点我们必须承认。
现在我跟兄弟们正在搞windows下的驱动程序，我可能就要多花时间在接下来的一个程序里面了，我们用的是VC，其实底层的东西是比较难学的。
当然要设计好数据库软件也绝对不是一件容易的事情。
很多需求分析和用户的生产流程等等也会让你很头痛。
编码只占20%,老师这样对我说过，事实也是这样。
希望有兴趣的后来者多多努力。
目录VB篇第一节 熟悉单机下VB如何操作数据库 (1)○1设计数据库○2连接数据库○3如何实现数据库的添加、查找、修改、删除功能○4实现数据库的导入、备份与恢复○5报表的设计○6VB如何导出数据到Excel文档○7总结第二节C/S模式下VB如何操作数据库 (30)○1介绍VB+SQL2000下C/S模式数据库的建立○2实现C/S模式需要用的控件。