Delphi Excel to Sql Server
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,comobj, OleServer,
ExcelXP;
type
TForm1 = class(TForm)
ADOConn: TADOConnection;
atblXlsToSql: TADOTable;
DBGrid1: TDBGrid;
Panel1: TPanel;
Button1: TButton;
opdExcel: TOpenDialog;
DataSource1: TDataSource;
Excel: TExcelApplication;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function ConnectDB:boolean; //连接数据库
function OpenTable(const Tablename:String):boolean; //打开指定数据表
function XlsToSqlTable(const xlsFileName,TableName:String):boolean; //将Excel数据导入Sql Server
public
{ Public declarations }
end;
var
Form1: TForm1;
serverIP,dbName,userid,passw:string; //服务器IP，数据库名称，用户名，密码
implementation
{$R *.dfm}
function TForm1.ConnectDB:boolean;
begin
Result:=false;
serverIP:='192.168.0.0';
dbName:='OnLine';
userid:='sa';
passw:='sa';
if not adoconn.Connected then
begin
adoconn.ConnectionString:='Provider=SQLOLEDB.1;Password=' + passw
+ ';Persist Security Info=True;User ID=' + userid
+ ';Initial Ca
相关文档：
系统环境：Windows 7
软件环境：Visual C++ 2008 SP1 +SQL Server 2005
本次目的：编写一个航空管理系统
这是数据库课程设计的成果，虽然成绩不佳，但是作为我用VC++ 以来编写的最大程序还是传到网上，以供参考。用VC++ 做数据库设计并不容易，但也不是不可能。以下是我的程序界面，后面 ......
select * from formtable_main_20
sp_help formtable_main_20
--drop view zcountQJ01
create view zcountQJ01
as
select appman ,year(startdata) as zyear,jb,cast(sum(num) as decimal(4,1) ) as num
from formtable_main_20
where year(getdate()) = year(startdata)
group by appman,jb,year(startdata) ......
SELECT * from user WHERE name LIKE '%三%';
将会把name为“张三”，“三脚猫”，“唐三藏”等等有“三”的全找出来；
在进行数据库查询时，有完整查询和模糊查询之分。
一般模糊语句如下：
SELECT 字段 from 表 WHERE 某字段 Like 条件
其中关于条件，SQL提供了四种匹配模� ......
在SQLServer的性能调优中，有一个不可比拟的问题：那就是如何在一段需要长时间的代码或被频繁调用的代码中处理临时数据集?表变量和临时表是两种选择。如何确定什么时候用临时表，什么时候用表变量呢？临时表和表变量都有特定的适用环境。
表变量
变量� ......
题目要求
阿里baba的面试题
有三个表
学生表 S
SID SNAME
教师课表 T
TID TNAME TCL
成绩表 SC &n ......
