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

Question

用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)
go3、读入
sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\图片.bmp','where 编号=1','I' --注意条件是 编号=1sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\bb.doc','where 编号=2','I' --注意条件是 编号=2go4、读出成文件
sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\图片.bmp','where 编号=1','O' --注意条件是 编号=1sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\bb.doc','where 编号=2','O' --注意条件是 编号=2
go

Answer 1

//by CoolSlob, 2002/7
unit StoreBlob;interfaceuses DB, Classes, Sysutils, ADOdb, Forms;function SaveBlobField(Field: TField; const FileName: String): Boolean;
function LoadBlobField(Field: TField): String;implementationfunction 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.

Answer 2

请问楼上的你这是什么语言啊？
VC++？不像，SQL？不像，C也不像，VB还是不像。

Answer 3

delphi，可以在前台程序运行中把图片插入数据库