SQL查询语句做成EXE文件

SQL不能制作exe文件，我可能跟你说一下原理：

用编程语言编写软件，可编译成EXE文件

例如:delphi 编写，先制作一个窗体：

放入数据库控件adoconnection1，设置服务器IP地址及登陆用户名和这密码。

放入数据库控件adoquery1，设置connection=adoconnection1;SQL=你的SQL句语句

放入数据库控件DataSource1，设置DataSet=adoquery1

放入数据库控件DBGrid1，设置DataSource=DataSource1

放两个按钮：一个“查询”一个“导出EXCEL”

查询按钮代码为：

adoquery1active:=False; //表示关闭查询分析器

adoquery1active:=True; //表示激活查询分析器，这时会显示数据出来。

导出EXCEL代码为（先建一个函数，再调用）：

调用代码：

if savedialog1execute then //执行保存文件对话框

DBtoExcel(adoquery1,savedialog1filename) //保存文件到EXCEL

函数：

Function TfrmMainDbtoExcel(FromDb:TDataSet;toExcelFileName:string):boolean;

var

eclApp,WorkBook:Variant;

xlsFileName:string;

i,j:integer;

begin

result:=true;

xlsFileName:=toExcelFilename;

try

//创建OLE对象Excel Application与 WorkBook

eclApp:=CreateOleObject('ExcelApplication');

WorkBook:=CreateOleobject('ExcelSheet');

except

Result:=false;

Exit;

end;

try

workBook:=eclAppworkBooksAdd;

eclappcellsselect;

eclappSelectionNumberFormatLocal := '@';

for i:=0 to fromdbfieldsCount -1 do

begin

eclAppCells(1,i+1):=fromdbfields[i]DisplayName;

eclAppColumns[i+1]ColumnWidth:=12;

end;

fromdbFirst ;

j:=2;

while not fromdbEof do

begin

for i:=0 to fromdbFieldCount -1 do

if i>=9 then

eclAppCells(j,i+1):=ConvertTime(fromdbFields[i]AsInteger)

else

eclAppCells(j,i+1):=fromdbFields[i]AsString;

j:=j+1;

fromdbNext ;

end;

if FileExists(xlsFileName) then DeleteFile(xlsFileName);

WorkBooksaveas(xlsFileName);

WorkBookclose;

eclAppQuit;

except

eclAppQuit;

result:=false;

end;

end;

编译之后，就可以得到一个exe文件！ 这已经是最简化的你想得到的答案了！

楼上回答的是asp。。。

你的程序虽然可生成exe文件，但还需要vb系统的一些文件，比如ocx、dll等文件的支持才能运行。所以要将你的应用程序制作成安装程序，才能在脱离vb系统的windows环境下运行。（你的系统中有vb，另一台电脑没有安装vb）。

通过vb60下的“Package&Deployment”把你的程序“打包”然后“展开”才能在脱离vb系统的windows环境下安装运行啊。

以上就是关于SQL查询语句做成EXE文件全部的内容，包括:SQL查询语句做成EXE文件、VB利用DATA控件连接ACCESS数据库，生成EXE文件之后。。。、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！