怎么像SQLServer里面加入图片记录?

cutepage 2003-09-09 10:03:02
我把照片字段设成了image类型了,但是我该怎么样在这个字段里面加入图片呢?
...全文
41 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
yczyk 2003-09-09
  • 打赏
  • 举报
回复
//by CoolSlob, 2002/7
unit StoreBlob;

interface

uses DB, Classes, Sysutils, ADOdb, Forms;

function SaveBlobField(Field: TField; const FileName: String): Boolean;
function LoadBlobField(Field: TField): String;

implementation

function SaveBlobField(Field: TField; const FileName: String): Boolean;
begin
Result := True;
try
TBlobField(Field).LoadFromFile(FileName);
except
Result := False;
end;
end;

function LoadBlobField(Field: TField): String;
var
BS: TADOBlobStream;
begin
BS := TADOBlobStream.Create(TBlobField(Field), bmRead);
try
Result := ExtractFilePath(Application.ExeName) + 'tmpBlob';
BS.SaveToFile(Result);
finally
BS.Free;
end
end;

end.
cutepage 2003-09-09
  • 打赏
  • 举报
回复
哇~~~~~~~看不懂了~~~
图片不能像写入文字一样直接写进去嘛?
litf 2003-09-09
  • 打赏
  • 举报
回复
不错!
pengdali 2003-09-09
  • 打赏
  • 举报
回复
用image类型

方法:
1、建立过程
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

2、建表和初始化数据
create table 表名 (编号 int,image列名 image)
go
insert 表名 values(1,0x)
insert 表名 values(2,0x)
go

3、读入
sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\图片.bmp','where 编号=1','I' --注意条件是 编号=1

sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\bb.doc','where 编号=2','I' --注意条件是 编号=2

go

4、读出成文件
sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\图片.bmp','where 编号=1','O' --注意条件是 编号=1

sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\bb.doc','where 编号=2','O' --注意条件是 编号=2
go
ManagerMan 2003-09-09
  • 打赏
  • 举报
回复
我也用Delphi实现的
cxz7531 2003-09-09
  • 打赏
  • 举报
回复
delphi,可以在前台程序运行中把图片插入数据库
cutepage 2003-09-09
  • 打赏
  • 举报
回复
请问楼上的你这是什么语言啊?
VC++?不像,SQL?不像,C也不像,VB还是不像。

34,874

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧