Sql 及Sql Server

sql server 2000里ldf损坏，只有mdf的恢复

木子的blog — Wed, 18 Apr 2007 01:28:00 GMT

昨天碰到了数据库的mdf 和ldf文件不一致，进行attach database时，总时提示 can not assciated file wiht deferent database. 按照如下做法. 我的mdf文件是在本机上以前备份的。进行第8步就可以了!

1.）先及时把原来的数据库文件（如test.mdf)备份到其他地方
2）停掉服务器
3）删除这个test.mdf
4) 重新建立一个test同名数据库
5）删除这个新建立的test数据库的test.ldf文件，并用开始备份好的test.mdf文件覆盖这个新建立的test.mdf文件
6）启动数据库服务器。此时会看到数据库test的状态为“置疑”。这时候不能对此数据库进行任何操作。

.设置数据库允许直接操作系统表。此操作可以在SQL Server Enterprise Manager里面选择数据库服务器，按右键，选择“属性”，在“服务器设置”页面中将“允许对系统目录直接修改”
7）设置test为紧急修复模式

　　update sysdatabases set status=-32768 where dbid=DB_ID('test')

　　此时可以在SQL Server Enterprise Manager里面看到该数据库处于“只读\置疑\脱机\紧急模式”可以看到数据库里面的表，但是仅仅有系统表

8 下面执行真正的恢复操作，重建数据库日志文件

　　dbcc rebuild_log('test','C:\Program Files\Microsoft SQL Server\MSSQL\Data\test_log.ldf')

　　执行过程中，如果遇到下列提示信息：

　　服务器: 消息 5030，级别 16，状态 1，行 1

　　未能排它地锁定数据库以执行该操作。

　　DBCC 执行完毕。如果 DBCC 输出了错误信息，请与系统管理员联系。

　　说明您的其他程序正在使用该数据库，如果刚才您在F步骤中使用SQL Server Enterprise Manager打开了test库的系统表，那么退出SQL Server Enterprise Manager就可以了。

　　正确执行完成的提示应该类似于：

　　警告: 数据库 'test' 的日志已重建。已失去事务的一致性。应运行 DBCC CHECKDB 以验证物理一致性。将必须重置数据库选项，并且可能需要删除多余的日志文件。

　　DBCC 执行完毕。如果 DBCC 输出了错误信息，请与系统管理员联系。

　　此时打开在SQL Server Enterprise Manager里面会看到数据库的状态为“只供DBO使用”。此时可以访问数据库里面的用户表了。

9 .验证数据库一致性
　　dbcc checkdb('test')
10 .设置数据库为正常状态

　　sp_dboption 'test','dbo use only','false'

　　如果没有出错，那么恭喜，现在就可以正常的使用恢复后的数据库啦。

11 最后一步，我们要将步骤E中设置的“允许对系统目录直接修改”一项恢复

asp调用存储过程！

木子的blog — Sat, 31 Mar 2007 00:29:00 GMT

1.调用存储过程的一般方法
先假设在sql server中有一存储过程dt_users：
CREATE PROCEDURE [dbo].[dt_users]
AS
select * from users
return
GO
第一种方法是不利用command对象，直接用recordset对象
set rs=server.createobject("adodb.recordset")
sql="exec dt_users"
rs.open sql,conn,1,1 这样就可
第二种方法是利用command对象
set comm=server.createobject("adodb.command")
comm.commantype=4
set comm.activeconnection=conn
comm.commandtext="dbo.dt_users"
set rs=server.createobject("adodb.recordset")
rs.open comm,,1,1

2.给存储过程传递参数
如果存储过程中不用参数，而是单一的sql语句，还显示不出调用存储过程的优势！
比如说一bbs的查询，可以按作者和主题查询！则可以建立存储过程如下：
参数keyword为关键字，choose是选择查询的方法。
CREATE PROCEDURE [dbo].[dt_bbs]
@keyword varchar(20)=null,
@choose int=null
as
if @choose=1
select * from bbs where name like @keyword
else
select * from bbs where subject like @keyword
return
go
这样我们调用存储过程时只需将参数传递过去就行了，而省去在asp中来写一段程序
用第一种方法：
set rs=server.createobject("adodb.recordset")
sql="exec dt_bbs '"&keyword&"',"&choose&""
rs.open sql,conn,1,1
用第二种方法:
set comm=server.createobject("adodb.command")
comm.commantype=4
comm.Parameters.append comm.CreateParameter("@keyword",adChar,adParamInput,50,keyword)
comm.Parameters.append comm.CreateParameter("@keyword",adInteger,adParamInput,,choose)
set comm.activeconnection=conn
comm.commandtext="dbo.dt_bbs"
set rs=server.createobject("adodb.recordset")
rs.CursorType=3
rs.open comm,,1,1

3.进一步讨论
比较上面我所说的两种在asp种调用存储过程的方法，
第一种方法需要对象少，但recordset对象支持的属性少了很多，比如说:rs.recordcount,rs.pagecount,rs.absolutepage这些属性
都不支持，所以用第一种方法就有局限，比如说要分页显示纪录时,就必须要用到第二种方法。
我们用sql server中的存储过程目的是为了加快速度，但一个存储过程中sql语句有很多时，它的优势特别明显。如果sql语句不是很多，
而我们用第二种方法就必须多创建一个command对象，可能还会减慢速度!所以我们要均衡各方面的利益来使用存储过程。
不过我觉得不过速度怎样，使用存储过程可以使程序更加模块化，便于修改，和调试（可以直接在sql server下调试，而不用在ie下看asp
的结果）。

转贴: http://industry.ccidnet.com/art/1111/20050312/673539_1.html

SQL SERVER 与ACCESS、EXCEL的数据转换

木子的blog — Sat, 27 Jan 2007 00:57:00 GMT

<转自http://www.cnblogs.com/forrest_lu/archive/2004/04/21/6966.aspx
>

熟悉SQL SERVER 2000的数据库管理员都知道，其DTS可以进行数据的导入导出，其实，我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中，我们主要使用OpenDataSource函数、OPENROWSET 函数，关于函数的详细说明，请参考SQL联机帮助。利用下述方法，可以十分容易地实现SQL SERVER、ACCESS、EXCEL数据转换，详细说明如下：

一、 SQL SERVER 和ACCESS的数据导入导出

常规的数据导入导出：

使用DTS向导迁移你的Access数据到SQL Server，你可以使用这些步骤:

　　1在SQL SERVER企业管理器中的Tools（工具）菜单上，选择Data Transformation

　　2Services（数据转换服务），然后选择 czdImport Data（导入数据）。

　　3在Choose a Data Source（选择数据源）对话框中选择Microsoft Access as the Source，然后键入你的.mdb数据库(.mdb文件扩展名)的文件名或通过浏览寻找该文件。

　　4在Choose a Destination（选择目标）对话框中，选择Microsoft OLE　DB Prov ider for SQL　Server，选择数据库服务器，然后单击必要的验证方式。

　　5在Specify Table Copy（指定表格复制）或Query（查询）对话框中，单击Copy tables（复制表格）。

6在Select Source Tables（选择源表格）对话框中，单击Select All（全部选定）。下一步，完成。

Transact-SQL语句进行导入导出：

1. 在SQL SERVER里查询access数据:

-- ======================================================

SELECT *

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\DB.mdb";User ID=Admin;Password=')...表名

-------------------------------------------------------------------------------------------------

2. 将access导入SQL server

-- ======================================================

在SQL SERVER 里运行:

SELECT *

INTO newtable

FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\DB.mdb";User ID=Admin;Password=' )...表名

-------------------------------------------------------------------------------------------------

3. 将SQL SERVER表里的数据插入到Access表中

-- ======================================================

在SQL SERVER 里运行：

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source=" c:\DB.mdb";User ID=Admin;Password=')...表名

(列名1,列名2)

select 列名1,列名2 from sql表

实例：

insert into OPENROWSET('Microsoft.Jet.OLEDB.4.0',

'C:\db.mdb';'admin';'', Test)

select id,name from Test

INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'c:\trade.mdb'; 'admin'; '', 表名)

SELECT *

FROM sqltablename

-------------------------------------------------------------------------------------------------

二、 SQL SERVER 和EXCEL的数据导入导出

1、在SQL SERVER里查询Excel数据:

-- ======================================================

SELECT *

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

下面是个查询的示例，它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。

SELECT *

FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',

  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

-------------------------------------------------------------------------------------------------

2、将Excel的数据导入SQL server :

-- ======================================================

SELECT * into newtable

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

实例:

SELECT * into newtable

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

-------------------------------------------------------------------------------------------------

3、将SQL SERVER中查询到的数据导成一个Excel文件

-- ======================================================

T-SQL代码：

EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'

参数：S 是SQL服务器名；U是用户；P是密码

说明：还可以导出文本文件等多种格式

实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'

EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'

在VB6中应用ADO导出EXCEL文件代码：

Dim cn As New ADODB.Connection

cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"

cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

-------------------------------------------------------------------------------------------------

4、在SQL SERVER里往Excel插入数据:

-- ======================================================

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)

T-SQL代码：

INSERT INTO

OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',

'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]

(bestand, produkt) VALUES (20, 'Test')

-------------------------------------------------------------------------------------------------

总结：利用以上语句，我们可以方便地将SQL SERVER、ACCESS和EXCEL电子表格软件中的数据进行转换，为我们提供了极大方便！

Sql 查询实例归结

木子的blog — Fri, 05 Jan 2007 08:09:00 GMT

1.Sql 行转列(分组实例)
现有数据如下(每一季度的数据明细):
季度 Fitem 数量
1    A      20
2    B      80
3    A      50
4    B      50

想得到的结果如下(单一ITEM的每季的数量)：

FITEM 1   2 3    4
A     20     50
B         80     50

Select Fitem,
sum(case id when 1 then qty else 0 end) as A1,
sum(case id when 2 then qty else 0 end) as A2,
sum(case id when 3 then qty else 0 end) as A3,
sum(case id when 4 then qty else 0 end) as A4
From BB
Group by Fitem

2.Sql 返回某字段相同两条最小（最新）记录实例
CREATE TABLE A(ID INT IDENTITY(1,1),ITEM NVARCHAR(20))
INSERT A(ITEM) SELECT 'AB'
INSERT A(ITEM) SELECT 'AB'
INSERT A(ITEM) SELECT 'BC'
INSERT A(ITEM) SELECT 'AB'

CREATE TABLE B(ITEM NVARCHAR(20),QTY INT)
INSERT B SELECT 'AB',190
INSERT B SELECT 'BC',100
--SELECT * FROM B

-- 我要得到
-- 同ITEM的只需ID最小的那条记录对应出B表的QTY
-- 如结果中：ITEM=AB的，ID=1的QTY_2=190，ID=2和ID=4的QTY_2=0
方法如下:
--对表A进行分组查询(若相同Item只取最小一条)
--将上个查询和表b进行联接

Select aa.*,B.Qty From A aa
Left join B
ON aa.item=B.item
where id =(Select top 1 id from A Where item=aa.item order by id)

3.将一列多长字符串，拆分成多个记录
-- 将此表和生成只有一列且递增临时表进行结合，找出分隔号",'来进行查询
/*
表 t1,有个字段aaa
ID   aaa
1    a1,a2
2    a2,a4
3    a8
4
5    a9,a1

需得到结果：
a1
a2
a4
a8
a9
*/
if exists(Select name From sysobjects where [Name]='AA')
Drop table AA

create TABLE AA(id int,title nvarchar(100))
Insert AA values(3456,'601988,600028,HK3988,HK0386')
Insert AA values(3457,'601988,600028')

-- 生成只有一列且自动递增临时表
select top 8000 id=IDENTITY(int,1,1)
into #T FROM syscolumns a,syscolumns b

Select * From #T

SELECT
AA.ID, title=SUBSTRING(AA.title, #T.ID, CHARINDEX(',', AA.title + ',', #T.ID) - #T.ID)
FROM AA, #T
WHERE SUBSTRING(',' + AA.title, #T.id, 1) = ','
ORDER BY 1,2

Drop table AA
Drop Table #T

4.从主从表中返回数据，子表数据合并例子
----- 返回 main_id main_name item_name
------ 1 报纸南方报,日报,深圳报

create table main(main_id int primary key,main_name nvarchar(20))
create table Item(Item_id int, main_id int references main(main_id),Item_name nvarchar(20))

insert into main values(1,'报纸')
insert into main values(2,'读物')
insert into main values(3,'玩具')

insert into Item values(1,1,'南方报')
insert into Item values(2,1,'日报')
insert into Item values(3,2,'少年读')
insert into Item values(4,2,'中年读')
insert into Item values(5,3,'深圳报')

方法一：采用建立自定义function
/*
create function fsum(@COL2 nvarchar(100))
returns nvarchar(100)
as
begin
   declare @var varchar(100)
   set @var=''
   select @var=@var+'/'+Item_name From Item Where main_id=@COL2

return (stuff(@var, 1, 1, ''))
end
*/

select main.main_id,main_name,Item_name
From main
Left join
(
Select Main_id,Item_name=dbo.fsum(Main_id)
From Item
Group by Main_id
)
as BB

ON (main.main_id=BB.main_id)
Order by main.main_id

方法二:采用存取过程loop合并

create table #tab (main_id int,names text)

declare @main_id int,@item_name nvarchar(20),@main_id_old int
declare @item_names nvarchar(1000)

declare cur cursor for
select main_id,item_name from item ORDER BY main_id

open cur

FETCH NEXT FROM cur into @main_id,@item_name
SET @main_id_old=@main_id
SET @item_names=''

WHILE (@@fetch_status=0)
BEGIN
    if (@main_id_old=@main_id)
        begin
         set @item_names=@item_names+@item_name+','
        end
    else
       begin
         Insert #tab values (@main_id_old,@item_names)
         SET @main_id_old=@main_id
         SET @item_names=@item_name+','
       end
     print @item_name
    FETCH NEXT FROM cur into @main_id,@item_name
END

Insert #tab values (@main_id_old,@item_names)

close cur
deallocate cur

--SELECT * FROM #TAB
Select A.*,B.names
From main A LEFT JOIN #tab B ON A.main_id=B.main_id

drop table #tab

工作中或网友常用SQ典解例子？

木子的blog — Fri, 24 Nov 2006 12:31:00 GMT

Q: dic_set 有两个字段groupid,setid
                     A,A001
                     A,A002
                     A,A003
                     B,B001
setid保存的为真实的表名。

A001表有两个字段A0000,A0001
                001,abc
                001,bcd
A002表有两个字段A0000,A0001
                001,abEEEEEE
A003表有两个字段A0000,A0001
                001,sdfsdf

条件是A0000='001'
最要我需要的查询如果是
A001，2
A002，1
A003，1
A: 中间用到表名作为变量，一句可能难搞定！:)
create table tt(na varchar(10),num int)
declare @sql varchar(100) declare @tab varchar(10)
declare cur cursor for
Select setid from Dic_set
open cur
FETCH NEXT FROM cur INTO @tab
while @@fetch_status=0
begin
SET @sql='Insert into tt select '''+@tab+''',count(1) from '+@tab+' where A0001=''001'''
exec (@sql)
--print @sql FETCH NEXT FROM cur INTO @tab
end
select * from tt
drop table tt
close cur
deallocate cur

常用SQL语句详解

木子的blog — Fri, 03 Mar 2006 09:02:00 GMT

常用SQL语句详解

SQL分类：
DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE)
DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT)
DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK)

首先,简要介绍基础语句：
1、说明：创建数据库
CREATE DATABASE database-name
2、说明：删除数据库
drop database dbname
3、说明：备份sql server
--- 创建备份数据的 device
USE master
EXEC sp_addumpdevice 'disk', 'testBack', 'c:\mssql7backup\MyNwind_1.dat'
--- 开始备份
BACKUP DATABASE pubs TO testBack
4、说明：创建新表
create table tabname(col1 type1 [not null] [primary key],col2 type2 [not null],..)
根据已有的表创建新表：
 A：create table tab_new like tab_old (使用旧表创建新表)
 B：create table tab_new as select col1,col2… from tab_old definition only
5、说明：删除新表drop table tabname
6、说明：增加一个列
Alter table tabname add column col type
注：列增加后将不能删除。DB2中列加上后数据类型也不能改变，唯一能改变的是增加varchar类型的长度。
7、说明：添加主键： Alter table tabname add primary key(col)
说明：删除主键： Alter table tabname drop primary key(col)
8、说明：创建索引：create [unique] index idxname on tabname(col….)
删除索引：drop index idxname
注：索引是不可更改的，想更改必须删除重新建。
9、说明：创建视图：create view viewname as select statement
删除视图：drop view viewname
10、说明：几个简单的基本的sql语句
选择：select * from table1 where 范围
插入：insert into table1(field1,field2) values(value1,value2)
删除：delete from table1 where 范围
更新：update table1 set field1=value1 where 范围
查找：select * from table1 where field1 like ’%value1%’ ---like的语法很精妙，查资料!
排序：select * from table1 order by field1,field2 [desc]
总数：select count(*) as totalcount from table1
求和：select sum(field1) as sumvalue from table1
平均：select avg(field1) as avgvalue from table1
最大：select max(field1) as maxvalue from table1
最小：select min(field1) as minvalue from table1
11、说明：几个高级查询运算词
A： UNION 运算符
UNION 运算符通过组合其他两个结果表（例如 TABLE1 和 TABLE2）并消去表中任何重复行而派生出一个结果表。当 ALL 随 UNION 一起使用时（即 UNION ALL），不消除重复行。两种情况下，派生表的每一行不是来自 TABLE1 就是来自 TABLE2。
B： EXCEPT 运算符
EXCEPT 运算符通过包括所有在 TABLE1 中但不在 TABLE2 中的行并消除所有重复行而派生出一个结果表。当 ALL 随 EXCEPT 一起使用时 (EXCEPT ALL)，不消除重复行。
C： INTERSECT 运算符
INTERSECT 运算符通过只包括 TABLE1 和 TABLE2 中都有的行并消除所有重复行而派生出一个结果表。当 ALL 随 INTERSECT 一起使用时 (INTERSECT ALL)，不消除重复行。
注：使用运算词的几个查询结果行必须是一致的。
12、说明：使用外连接
A、left outer join：
左外连接（左连接）：结果集几包括连接表的匹配行，也包括左连接表的所有行。
B：right outer join:
右外连接(右连接)：结果集既包括连接表的匹配连接行，也包括右连接表的所有行。
C：full outer join：
全外连接：不仅包括符号连接表的匹配行，还包括两个连接表中的所有记录。


其次，大家来看一些不错的sql语句
1、说明：复制表(只复制结构,源表名：a 新表名：b) (Access可用)
法一：select * into b from a where 1<>1
法二：select top 0 * into b from a

2、说明：拷贝表(拷贝数据,源表名：a 目标表名：b) (Access可用)
insert into b(a, b, c) select d,e,f from b;

3、说明：跨数据库之间表的拷贝(具体数据使用绝对路径) (Access可用)
insert into b(a, b, c) select d,e,f from b in ‘具体数据库’ where 条件
例子：..from b in '"&Server.MapPath(".")&"\data.mdb" &"' where..

4、说明：子查询(表名1：a 表名2：b)
select a,b,c from a where a IN (select d from b ) 或者: select a,b,c from a where a IN (1,2,3)

5、说明：显示文章、提交人和最后回复时间
select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b

6、说明：外连接查询(表名1：a 表名2：b)
select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c

7、说明：在线视图查询(表名1：a )
select * from (SELECT a,b,c FROM a) T where t.a > 1;

8、说明：between的用法,between限制查询数据范围时包括了边界值,not between不包括
select * from table1 where time between time1 and time2
select a,b,c, from table1 where a not between 数值1 and 数值2

9、说明：in 的使用方法
select * from table1 where a [not] in (‘值1’,’值2’,’值4’,’值6’)

10、说明：两张关联表，删除主表中已经在副表中没有的信息
delete from table1 where not exists ( select * from table2 where table1.field1=table2.field1 )

11、说明：四表联查问题：
select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where .....

12、说明：日程安排提前五分钟提醒
SQL: select * from 日程安排 where datediff('minute',f开始时间,getdate())>5

13、说明：一条sql 语句搞定数据库分页
select top 10 b.* from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a,表名 b where b.主键字段 = a.主键字段 order by a.排序字段

14、说明：前10条记录
select top 10 * form table1 where 范围

15、说明：选择在每一组b值相同的数据中对应的a最大的记录的所有信息(类似这样的用法可以用于论坛每月排行榜,每月热销产品分析,按科目成绩排名,等等.)
select a,b,c from tablename ta where a=(select max(a) from tablename tb where tb.b=ta.b)

16、说明：包括所有在 TableA 中但不在 TableB和TableC 中的行并消除所有重复行而派生出一个结果表
(select a from tableA ) except (select a from tableB) except (select a from tableC)

17、说明：随机取出10条数据
select top 10 * from tablename order by newid()

18、说明：随机选择记录
select newid()

19、说明：删除重复记录
Delete from tablename where id not in (select max(id) from tablename group by col1,col2,...)

20、说明：列出数据库里所有的表名
select name from sysobjects where type='U'

21、说明：列出表里的所有的
select name from syscolumns where id=object_id('TableName')

22、说明：列示type、vender、pcs字段，以type字段排列，case可以方便地实现多重选择，类似select 中的case。
select type,sum(case vender when 'A' then pcs else 0 end),sum(case vender when 'C' then pcs else 0 end),sum(case vender when 'B' then pcs else 0 end) FROM tablename group by type
显示结果：
type vender pcs
电脑 A 1
电脑 A 1
光盘 B 2
光盘 A 2
手机 B 3
手机 C 3

23、说明：初始化表table1
TRUNCATE TABLE table1

24、说明：选择从10到15的记录
select top 5 * from (select top 15 * from table order by id asc) table_别名 order by id desc

记录集导向Excel的方法1

木子的blog — Fri, 02 Dec 2005 02:05:00 GMT

Public Function ExporToExcel(Rs_Data As ADODB.Recordset)
'*********************************************************
'* 名称：ExporToExcel
'* 功能：通过调用Sheets中QueryTable方式将记录集导到其相应格式中
'* Input: rs_data 是个记录集
'* Output: 空
'*********************************************************
Dim Irowcount As Integer
Dim Icolcount As Integer

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable

With Rs_Data
If .RecordCount < 1 Then
MsgBox ("出错")
Exit Function
End If
'记录总数
Irowcount = .RecordCount
'字段总数
Icolcount = .Fields.Count
End With

Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = xlApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets("sheet1")
xlApp.Visible = True

'添加查询语句，导入EXCEL数据
Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))

With xlQuery
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
End With

xlQuery.FieldNames = True '显示字段名
xlQuery.Refresh

With xlSheet
.Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = "黑体"
'设标题为黑体字
.Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = True
'标题字体加粗
.Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous
'设表格边框样式
End With

' With xlSheet.PageSetup
' .LeftHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10公司名称：" ' & Gsmc
' .CenterHeader = "&""楷体_GB2312,常规""公司人员情况表&""宋体,常规""" & Chr(10) & "&""楷体_GB2312,常规""&10日期："
' .RightHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10单位："
' .LeftFooter = "&""楷体_GB2312,常规""&10制表人："
' .CenterFooter = "&""楷体_GB2312,常规""&10制表日期："
' .RightFooter = "&""楷体_GB2312,常规""&10第&P页共&N页"
' End With

xlApp.Application.Visible = True
On Error Resume Next
xlBook.SaveAs
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
xlApp.Quit
End Function

BCP之妙用(数据库 )

木子的blog — Fri, 25 Nov 2005 02:17:00 GMT

BCP语句的作用：
   BCP是SQL提供的进行数据传输的实用程序，这种语句提供了非常快的数据导入的方法。（当然7。0也有BCP的替代方法就是DTS，但是我们还是要来讲讲BCP。因为个人觉得它导入导出的速度非常的快。而且系统开销小，因为BCP是基于命令行的）
   BCP支持的文件类型是ASCII文本文件，本地的SQL格式文件和UNICODE文件。所以大家不用考虑用BCP来导入EXCEL或者ACCESS。

执行了BCP后的语法如下：
Microsoft(R) Windows 98
   (C)Copyright Microsoft Corp 1981-1999.
C:\>bcp
usage: C:\MSSQL7\BINN\BCP.EXE {database.owner.dbtable | query} {in | out | queryout | format} datafile
  [-m maxerrors]            [-f formatfile]       [-e errfile]
  [-F firstrow]             [-L lastrow]          [-b batchsize]
  [-n native type]          [-c character type]   [-w wide character type]
  [-N keep non-text native] [-6 6x file format]   [-q quoted identifier]
  [-C code page specifier]  [-t field terminator] [-r row terminator]
  [-i inputfile]            [-o outfile]          [-a packetsize]
  [-S server name]          [-U username]         [-P password]
  [-T trusted connection]   [-v version]          [-R regional enable]
  [-k keep null values]     [-E keep identity values]
  [-h "load hints"]
语法说明如下：
database  需要访问的数据库名字
owner    所访问表或者视图的用户名字
dbtable   所访问的表或者视图
query    产生一个结果集的SQL语句，当然语句要用双引号引起来
in out queryout format 数据传输的方向。In表示导入，out表示导出。
Datafile  导入时的源数据文件名或者是导出生成的文件名字。
上面是BCP的语法说明，下面讲讲一些经常使用到的参数
[-f formatfile]   用来输入输出格式的文件名字，可以包含有路径
[-U username]  登陆数据库的表示符
[-P password]  登陆数据库的口令
[-S server name]  数据库的名字，如果是两台服务器之间导入导出必须要填写
[-c character type]  字符数据模式，在使用了该模式以后就不需要使用-f这个参数
其他的参数可以在SQL的帮助中找到，我就不详细介绍了。
操作的模式：
   在使用BCP导入数据时，有两种模式：快速和慢速模式。快速模式绕过事务日志，慢速模式将所有数据都记录在事务日志中。
   在使用BCP之前为了能够运行在快速模式下，你首先需要把数据库的SELECT INTO/BULK COPY设置成TURE。
   通过BCP直接向数据库导入数据时，需要考虑你的导入的表中的触发器，规则，索引等。BCP对触发器和规则是不强制处理的。

开发者俱乐部: http://www.dev-club.com

如何恢复sql server 系统数据库？

木子的blog — Fri, 04 Nov 2005 02:16:00 GMT

关于系统数据库的恢复总结如下:
　　在SQL Server数据库中，系统信息存储在系统数据库中，主要的系统数据库包括：
　　master-从整体上控制用户数据库和SQL Server操作，在创建了任何用户定义的对象后，都要备份它
　　model-为新数据库提供模版和原型
　　msdb-包含了有关作业、报警及操作员等信息如果包含系统数据库的介质变了，那么必须重建系统数据库，如果你仍然
可以启动SQL Server服务，则可以通过RESTORE语句从系统数据库的备份中恢复数据库。
　　如果master坏了，不能启动系统,可以按照下面步骤进行恢复
1 重建系统数据库运行c:\mssql7\binn\rebuildm.exe，按照提示进行即可，过

程中需要系统数据库样本的路径，可在安装光盘中找到；

2 重建系统数据库后，启动SQL Server服务，用系统数据库的备份恢复数据库就

行了通常恢复顺序为master->msdb->model
在恢复master的备份时要注意：必须在single user模式下进行，有以下几种方法

进入单用户模式：
1 可以在命令行模式下输入sqlservr -c -f -m或者输入sqlservr -m
  其中：-c 可以缩短启动时间，SQL Server 不作为Windows NT的服务启动
        -f 用最小配置启动SQL Server
        -m 单用户模式启动SQL Server
2 可以在控制面板-服务-MSSQLServer的启动参数中输入-c -f -m或者输入-m,点

击开始

3 还有一种更灵活的启动方法：用存在注册表里的启动参数启动
  在MSSQLServer项下添加项SingleUser,具体内容如下所示：
  HKEY_LOCAL_MACHINE
    \Software
       \ Microsoft
          \MSSQLServer
            \SingleUser
              \Parameters
                   SQLArg0 : REG_SZ : -dC:\MSSQL7\DATA\MASTER.DAT
                   SQLArg1 : REG_SZ : -eC:\MSSQL7\LOG\ERRORLOG
                   SQLArg2 : REG_SZ : -lC:\MSSQL7\DATA\MASTLOG.DAT
                   SQLArg3 : REG_SZ : -m
在命令行下输入SQLServr -c -sSingleUser,注意：必须是在命令行下进入单用户模式后启动 Query Analyzer执行语句：
RESTORE DATABASE master form disk='c:\(具体的备份文件名）<

SQL数据库的事务日志意外增大或充满的处理方法

木子的blog — Fri, 04 Nov 2005 02:11:00 GMT

事务日志文件Transaction Log File是用来记录数据库更新情况的文件，扩展名为ldf。
在 SQL Server 7.0 和 SQL Server 2000 中，如果设置了自动增长功能，事务日志文件将会自动扩展。
一般情况下，在能够容纳两次事务日志截断之间发生的最大数量的事务时，事务日志的大小是稳定的，事务日志截断由检查点或者事务日志备份触发。
然而，在某些情况下，事务日志可能会变得非常大，以致用尽空间或变满。通常，在事务日志文件占尽可用磁盘空间且不能再扩展时，您将收到如下错误消息：
Error:9002, Severity:17, State:2
The log file for database ''%.*ls'' is full.
除了出现此错误消息之外，SQL Server 还可能因为缺少事务日志扩展空间而将数据库标记为 SUSPECT。有关如何从此情形中恢复的其他信息，请参见 SQL Server 联机帮助中的“磁盘空间不足”主题。

另外，事务日志扩展可能导致下列情形：
· 非常大的事务日志文件。
· 事务可能会失败并可能开始回滚。
· 事务可能会用很长时间才能完成。
· 可能发生性能问题。
· 可能发生阻塞现象。

原因
事务日志扩展可能由于以下原因或情形而发生：
· 未提交的事务
· 非常大的事务
· 操作：DBCC DBREINDEX 和 CREATE INDEX
· 在从事务日志备份还原时
· 客户端应用程序不处理所有结果
· 查询在事务日志完成扩展之前超时，您收到假的“Log Full”错误消息
· 未复制的事务

解决方法
日志文件满而造成SQL数据库无法写入文件时，可用两种方法：
一种方法：清空日志。
1．打开查询分析器，输入命令
DUMP TRANSACTION 数据库名 WITH NO_LOG
2.再打开企业管理器--右键你要压缩的数据库--所有任务--收缩数据库--收缩文件--选择日志文件--在收缩方式里选择收缩至XXM,这里会给出一个允许收缩到的最小M数,直接输入这个数,确定就可以了。

另一种方法有一定的风险性，因为SQL SERVER的日志文件不是即时写入数据库主文件的，如处理不当，会造成数据的损失。
1: 删除LOG
分离数据库企业管理器－＞服务器－＞数据库－＞右键－＞分离数据库
2：删除LOG文件
附加数据库企业管理器－＞服务器－＞数据库－＞右键－＞附加数据库
此法生成新的LOG，大小只有500多K。

注意：建议使用第一种方法。

如果以后,不想要它变大。
SQL2000下使用：
在数据库上点右键->属性->选项->故障恢复-模型-选择-简单模型。
或用SQL语句：
alter database 数据库名 set recovery simple

另外，数据库属性有两个选项，与事务日志的增长有关：
Truncate log on checkpoint
(此选项用于SQL7.0，SQL 2000中即故障恢复模型选择为简单模型)
当执行CHECKPOINT 命令时如果事务日志文件超过其大小的70% 则将其内容清除在开发数据库时时常将此选项设置为True
Auto shrink
定期对数据库进行检查当数据库文件或日志文件的未用空间超过其大小的25%时，系统将会自动缩减文件使其未用空间等于25% 当文件大小没有超过其建立时的初始大小时不会缩减文件缩减后的文件也必须大于或等于其初始大小对事务日志文件的缩减只有在对其作备份时或将Truncate log on checkpoint 选项设为True 时才能进行。
补充一点，将数据库设为简单模式，你有作INSERT和UPDATE时将不记录数据库日志，也就是不能通过日志来还原数据库，只能每天做整个数据库的备份
[来源：青岛数字人网络科技]