access資料新增 |
答題得分者是:xxiaowang
|
rabinson
一般會員 發表:19 回覆:7 積分:5 註冊:2004-02-18 發送簡訊給我 |
|
roger128
初階會員 發表:27 回覆:45 積分:25 註冊:2002-08-29 發送簡訊給我 |
在插入CLICK 事件加入
1.改目前ㄉrecord
with Adatasource.DataSet do begin
edit;
FieldByName('filepath').AsString := ExtractFilePath(Edit1.text);
post;
end;
2.整個都更新ㄉ話
用SQL :Update Set 指令
sSql:='Update TableName set filepath =''' ExtractFilePath(Edit1.text) '''';
執行SQL 發表人 - roger128 於 2005/06/30 11:33:27
|
xxiaowang
中階會員 發表:51 回覆:75 積分:55 註冊:2005-01-26 發送簡訊給我 |
Hi,rabinson,
可以不用再加上Edit及button元件,会更简洁些。
(假设你show资料用的是dbgrid元件)
将filepath这个column的Buttonstyle属性设为:cbsEllipsis,再在dbgrid的OnEditButtonClick事件写代码如下: if (Uppercase(DBGrid1.SelectedField.FieldName)='FILEPATH') then
if Opendialog1.Execute then
begin
dataset.Edit; //dataset为取资料元件
dataset.FieldByName('FILEPATH').AsString:=extractfilepath(Opendialog1.FileName); //假设column FilePath对应的field是FILEPATH
dataset.Post;
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |