求教:如何用DELPHI动态创建一个SQL SERVER 库,并且将一张图片存入数据库中?

Question

最好给一些源程序,多谢各位大虾

Answer 1

with query1 do
begin
  close;
  sql.clear;
  sql.add('create database aa');
  execsql;
end;
--------------------------------------
看见了么，
那支蛾子，
正飞向太阳，
那就是我！
--------------------------------------

Answer 2

存入一张图片直接用tdbimage就可以了
--------------------------------------
看见了么，
那支蛾子，
正飞向太阳，
那就是我！
--------------------------------------

Answer 3

要说清楚
是创建库还是只创建一张表
这些都可以用SQL做到
建议多看帮助

Answer 4

procedure TAutoForm.Button1Click(Sender: TObject);
var
    MS_JpegStream1:TMemoryStream;
    M_Jpeg1:TJpegImage;
begin
    ms_jpegstream1:=tmemorystream.Create;
    m_jpeg1:=tjpegimage.Create;
    m_jpeg1.Assign(image1.Picture);
    m_jpeg1.SaveToStream(ms_jpegstream1);
    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('update ls_jcryjcxx set zp=:sfz1 where xm=:xh1');
      parameters.ParamByName('xh1').Value:='张月风';
      parameters.ParamByName('sfz1').LoadFromStream(ms_jpegstream1,ftblob);
      execsql;
    end;
    ms_jpegstream1.Free;
    m_jpeg1.Free;
    ShowMessage('Sucess!');
end;-----------------------------------------------------------
泡分了。

Answer 5

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[bm]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[bm]这是建表语句。

Answer 6

存到数据库
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;