我的数据库是Sql server2000我有远程数据模块中有一个TADOConnection,TDataSetProvider与TADOQuery(100分)

  • 主题发起人 主题发起人 zhucp
  • 开始时间 开始时间
Z

zhucp

Unregistered / Unconfirmed
GUEST, unregistred user!
我的数据库是Sql server2000我有远程数据模块中有一个TADOConnection,TDataSetProvider与TADOQuery
连接,TADOQuery的sql语句为selelect * from table1(其中有照片字段及text字段)
我的客户端为TClientDataSet连接,我能添加记录并更新回数据库,但就是不能修改记录 更新回数据库
为什么?,是否需要哪里设置一下。帮帮我啊。时间不哆噢。
 
你相片之段的问题
相片这段是BLOB型的,
 
我的照片字段是image类型的,那我该如何解决。??
 
吧程序发来看看。abcun@263.net
 
用流来操作
 
你是怎么修改相片字段的呢?是否使用类似于如下的代码:
Dataset.edit;
//or Append
TBlobField(Dataset.fieldByName('imageField')).LoadFromFile(FileName);
//or LoadFromStream
Dataset.post;
 
报什么错
 
服务器端过程。
procedure TSrv_Teacher.Srv_OpenTeacherTableR0ByID(const RequireID: WideString;
TID: Integer);
var
sql:String;
begin
if RequireID='True' then
begin
sql:='SELECT * FROM teacher_info WHERE Retire_Flag='+#39+'0'+#39+' AND ID='+IntToStr(TID);
end;
if RequireID='False' then
begin
sql:='SELECT ID,Number,Sex,RealName,UserName,UserPass,Email,BirthDay,PersonNum,ToSchoolDay,';
sql:=sql+'WorkClass,WorkGroup,RetainInfo,JobName,Contact,Address,LastLearn,Graduate,Pic,Memo,Retire_Flag ';
sql:=sql+'FROM teacher_info';// WHERE ID='+inttostr(1);
end;
self.ADOQuery_Info.Close;

self.ADOQuery_Info.Connection:=self.ADOConnection_M;
self.ADOQuery_Info.SQL.Clear;
self.ADOQuery_Info.SQL.Add(sql);
self.ADOQuery_Info.Open;
end;

客户端:图片是可以载入的,如果是jpg的存入数据库就太大,有没有更好的办法来存图片
function TInfoManForm.ZCP_LoadPictureTo_Box():boolean;
var
OPenPictureDialog_tmp:TOpenPictureDialog;
jpg:TJpegImage;
bmp:TBitmap;
begin
//如果数据体没有打开,则跳出
if self.ClientDataSet_Info.Active=false then
begin
Result:=false;
exit;
end;
//Windows.GetCursorPos(Point_P);
//self.PopupMenu_Pic.Popup(Point_P.X,Point_P.Y);
OPenPictureDialog_tmp:=TOpenPictureDialog.Create(self);
OPenPictureDialog_tmp.Filter:='*.bmp|*.bmp;*.jpg|*.jpg|*.jpg|所有文件(*.*)|*.*';
if OPenPictureDialog_tmp.Execute then
begin
if OpenPictureDialog_tmp.FileName<>'' then
begin
self.ClientDataSet_Info.Edit;
self.E_DBImage_Pic.Picture.LoadFromFile(OPenPictureDialog_tmp.FileName);
//将jpg转化为bmp
if self.E_DBImage_Pic.Picture.Graphic is TjpegImage then
begin
jpg:=TJpegImage.Create;
bmp:=TBitmap.Create;
jpg.Assign(self.E_DBImage_Pic.Picture);
//jpg.Compress;
bmp.Assign(jpg);
//self.St_Image.Picture.Assign(bmp);
self.ClientDataSet_Info.FieldByName('Pic').Assign(bmp);
jpg.Free;
bmp.Free;
end;
//self.ClientDataSet_Info.Post;
end;
end;
OPenPictureDialog_tmp.Free;
Result:=true;
end;


 
把照片存到数据库?不是好办法,应该存文件名,把图片拷到指定路径下,这样就不用转化
JPG文件了,什么文件都可以存取。
 
发过来liuyj@cbn.com.cn
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部