SQL查询语句做成EXE文件

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

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

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

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

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

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

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

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

查询按钮代码为：

adoquery1.active:=False //表示关闭查询分析器

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

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

调用代码：

if savedialog1.execute then //执行保存文件对话框

DBtoExcel(adoquery1,savedialog1.filename) //保存文件到EXCEL

函数：

Function TfrmMain.DbtoExcel(FromDb:TDataSettoExcelFileName:string):boolean

var

eclApp,WorkBook:Variant

xlsFileName:string

i,j:integer

begin

result:=true

xlsFileName:=toExcelFilename

try

//创建OLE对象Excel Application与 WorkBook

eclApp:=CreateOleObject('Excel.Application')

WorkBook:=CreateOleobject('Excel.Sheet')

except

Result:=false

Exit

end

try

workBook:=eclApp.workBooks.Add

eclapp.cells.select

eclapp.Selection.NumberFormatLocal := '@'

for i:=0 to fromdb.fields.Count -1 do

begin

eclApp.Cells(1,i+1):=fromdb.fields[i].DisplayName

eclApp.Columns[i+1].ColumnWidth:=12

end

fromdb.First

j:=2

while not fromdb.Eof do

begin

for i:=0 to fromdb.FieldCount -1 do

if i>=9 then

eclApp.Cells(j,i+1):=ConvertTime(fromdb.Fields[i].AsInteger)

else

eclApp.Cells(j,i+1):=fromdb.Fields[i].AsString

j:=j+1

fromdb.Next

end

if FileExists(xlsFileName) then DeleteFile(xlsFileName)

WorkBook.saveas(xlsFileName)

WorkBook.close

eclApp.Quit

except

eclApp.Quit

result:=false

end

end

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

可以运行的，建议你开发时用ADO访问数据库(SQL)，假如用BDE访问数据库那就有可能不能运行了，因为要该电脑要安装BDE!

数据库服务器(如MS

Sql

Server)不一定要跟可执行程序(exe文件)放在同一电脑上的，可以通过网络访问数据库服务器的!

---