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
相关文档：
create PROCEDURE pagelist
@tablename nvarchar(50),
@fieldname nvarchar(50)='*',
@pagesize int output,--每页显示记录条数
@currentpage int output,--第几页
@orderid nvarchar(50),--主键排序
@sort int,--排序方式，1表示升序，0表示降序排列
......
SELECT * from user WHERE name LIKE '%三%';
将会把name为“张三”，“三脚猫”，“唐三藏”等等有“三”的全找出来；
在进行数据库查询时，有完整查询和模糊查询之分。
一般模糊语句如下：
SELECT 字段 from 表 WHERE 某字段 Like 条件
其中关于条件，SQL提供了四种匹配模� ......
发布一个实用小工具，可以很方便的在数据库中找到包含指定字符串的数据表名及相应记录：
/*
功能：查询数据库中包含指定字符串的数据表名及相应记录
作者：陈加鹏 chjpeng#163.com
日期：2009-08-17
*/
declare @key varchar(30)
set @key = 'test' --替换为要查找的字符串
DECLARE @ ......
select ID,Item1,Item2,Item3,Item4
into #Temp
from (
select ID='200910',Item1='A',Item2='B',Item3='C',Item4='T1'
union all
select ID='200910',Item1='',Item2='B',Item3='C' ,Item4='G2'
union all
select ID='200910',Item1='A',Item2='D',Item3='C' ,Item4='T3'
union all
select ID='200910',Item ......
