最近在写一个升级程序，其中要求将一个旧数据库里面的所有的照片都转到新数据库。暂且把旧数据库叫OldDB,新数据库叫NewDB,新数据库里面的字段为【Photo】,旧数据库叫【Picture】 。开始我是这样做的，先读出旧数据库里的数据，然后用insert into插入：
insert
into
[
table1
]
values
("
&
rs("Picture")
&
")
后来发现不行，我以为数据类型搞错了，改了下代码，如下：
insert
into
[
table1
]
values
(‘"
&
rs("Picture")
&
"’)
多加了一对单引号，系统还是提示错误。我没有办法了，立即到CSDN上找到了两条存储过程。
if
exists
(
select
*
from
dbo.sysobjects
where
id
=
object_id
(N
'
[dbo].[sp_textcopy]
'
)
and
OBJECTPROPERTY
(id, N
'
IsProcedure
'
)
=
1
)
drop
procedure
[
dbo
]
.
[
sp_textcopy
]
GO
SET
QUOTED_IDENTIFIER
OFF
GO
SET
ANSI_NULLS
OFF
GO
CREATE
PROCEDURE
sp_textcopy (
@srvname
varchar
(
30
),
@login
varchar
(
30
),
@password
varchar
(
30
),
@dbname
varchar
(
30
),
@tbname
varchar
(
30
),
@colname
varchar
(
30
),
@filename
varchar
(
30
),
@whereclause
varchar
(
40
),
@direction
char
(
1
))
AS
DECLARE
@exec_str
varchar
(
255
)
SELECT
@exec_str
=
'
textcopy /S
'
+
@srvname
+
'
/U
'
+
@login
+
'
/P
'
+
@password
+
'
/D
'
+
@dbname
+
'
/T
'
+
@tbname
+
'
/C
'
+
@colname
+
'
/W "
'
+
@whereclause
+
'
" /F
'
+
@filename
+
'
/
'
+
@direction
EXEC
master..xp_cmdshell
@exec_str
GO
SET
QUOTED_IDENTIFIER
OFF
GO
SET
ANSI_NULLS
ON
GO
这是调用textcopy将图片数据导入和导出的语句，我原打算新旧数据库调用同一个存储过程，旧数据库先将数据导出到硬盘，新数据库在导入。在测试以后，发现不成功，页面显示不出数据，单独用textcopy测试还是可以导出数据的，但在程序中调用，没有成功。我接下来换成下面的存储过程：
if
exists
(
select
*
from
dbo.sysobjects
where
id
=
object_id
(N
'
[dbo].[sp_imageio]
'
)
and
OBJECTPROPERTY
(id, N
'
IsProcedure
'
)
=
1
)
drop
procedure
[
dbo
]
.
[
sp_imageio
]
GO
SET
QUOTED_IDENTIFIER
OFF
GO
SET
ANSI_NULLS
OFF
GO
Create
proc
p_binaryIO
@servename
varchar
(
30
),
--
服务器名称
@username
varchar
(
30
),
--
用户名
@password
varchar
(
30
),
--
密码
@tbname
varchar
(
500
),
--
数据库..表名
@fdname
varchar
(
30
),
--
字段名
@fname
varchar
(
1000
),
--
目录+文件名,处理过程中要使用/覆盖:@filename+_temp
@tj
varchar
(
1000
)
=
''
,
--
处理条件.对于数据导入,如果条件中包含@fdname,请指定表名前缀
@isout
bit
=
1
--
1导出((默认),0导入
AS
declare
@fname_in
varchar
(
1000
)
--
bcp处理应答文件名
,
@fsize
varchar
(
20
)
--
要处理的文件的大小
,
@m_tbname
varchar
(
50
)
--
临时表名
,
@sql
varchar
(
8000
)
--
则取得导入文件的大小
if
@isout
=
1
set
@fsize
=
'
0
'
else
begin
create
table
#tb(可选名
varchar
(
20
),大小
int
,创建日期
varchar
(
10
),创建时间
varchar
(
20
) ,上次写操作日期
varchar
(
10
),上次写操作时间
varchar
(
20
) ,上次访问日期
varchar
(
10
),上次访问时间
varchar
(
20
),特性
int
)
insert
into
#tb
exec
master..xp_getfiledetails
@fname
select
@fsize
=
大小
from
#tb
drop
table
#tb
if
@fsize
is
null
begin
print
'
文件未找到
'
return
end
end
--
生成数据处理应答文件
set
@m_tbname
=
'
[##temp
'
+
cast
(
newid
()
as
varchar
(
40
))
+
'
]
'
set
@sql
=
'
select * into
'
+
@m_tbname
+
'
from( select null as 类型 union all select 0 as 前缀 union all select
'
+
@fsize
+
'
as 长度 union all select null as 结束 union all select null as 格式 ) a
'
exec
(
@sql
)
select
@fname_in
=
@fname
+
'
_temp
'
,
@sql
=
'
bcp "
'
+
@m_tbname
+
'
" out "
'
+
@fname_in
+
'
" /S"
'
+
@servename
+
case
when
isnull
(
@username
,
''
)
=
''
then
''
else
'
" /U"
'
+
@username
end
+
'
" /P"
'
+
isnull
(
@password
,
''
)
+
'
" /c
'
exec
master..xp_cmdshell
@sql
--
删除临时表
set
@sql
=
'
drop table
'
+
@m_tbname
exec
(
@sql
)
if
@isout
=
1
begin
set
@sql
=
'
bcp "select top 1
'
+
@fdname
+
'
from
'
+
@tbname
+
case
isnull
(
@tj
,
''
)
when
''
then
''
else
'
where
'
+
@tj
end
+
'
" queryout "
'
+
@fname
+
'
" /S"
'
+
@servename
+
case
when
isnull
(
@username
,
''
)
=
''
then
''
else
'
" /U"
'
+
@username
end
+
'
" /P"
'
+
isnull
(
@password
,
''
)
+
'
" /i"
'
+
@fname_in
+
'
"
'
exec
master..xp_cmdshell
@sql
end
else
begin
--
为数据导入准备临时表
set
@sql
=
'
select top 0
'
+
@fdname
+
'
into
'
+
@m_tbname
+
'
from
'
+
@tbname
exec
(
@sql
)
--
将数据导入到临时表
set
@sql
=
'
bcp "
'
+
@m_tbname
+
'
" in "
'
+
@fname
+
'
" /S"
'
+
@servename
+
case
when
isnull
(
@username
,
''
)
=
''
then
''
else
'
" /U"
'
+
@username
end
+
'
" /P"
'
+
isnull
(
@password
,
''
)
+
'
" /i"
'
+
@fname_in
+
'
"
'
exec
master..xp_cmdshell
@sql
--
将数据导入到正式表中
set
@sql
=
'
update
'
+
@tbname
+
'
set
'
+
@fdname
+
'
=b.
'
+
@fdname
+
'
from
'
+
@tbname
+
'
a,
'
+
@m_tbname
+
'
b
'
+
case
isnull
(
@tj
,
''
)
when
''
then
''
else
'
where
'
+
@tj
end
exec
(
@sql
)
--
删除数据处理临时表
set
@sql
=
'
drop table
'
+
@m_tbname
end
--
删除数据处理应答文件
set
@sql
=
'
del
'
+
@fname_in
exec
master..xp_cmdshell
@sql
GO
SET
QUOTED_IDENTIFIER
OFF
GO
SET
ANSI_NULLS
ON
GO
这个存储过程，基本原理其实和上面的是一样的。我先测试导出，在程序中运行后，不断刷新保存导出图片的文件夹，发现系统确实产生了数据，以文件+tmp的命名方式存放，但不知道为什么，系统运行完毕，所有的图片还是没有。这条路看来不通。
没折了，到CSDN发帖子吧，地址：http://community.csdn.net/Expert/topic/5618/5618139.xml?temp=.6252252
帖子发出来以后，很快有人回复。但是回复的答案就是我找到的两个存储过程的。看来问题可能无法解决。
但是任务还是的完成，最后万般无奈之下，我给认识的一位大侠发了求救信，他只是提供了一条思路，用流的方式写入。我按照这个思路，抱着试试看的心情，将代码改成如下的样式：
set
rs2
=
Server.CreateObject(
"
Adodb.Recordset
"
) sql2
=
"
select top 1 * from [User] order by UserID desc
"
rs2.open sql2,cn,
1
,
3
rs2(
"
Photo
"
).AppendChunk rs(
"
Picture1
"
) rs2.update rs2.close
set
rs2
=
nothing
871
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
