|
ｿｽ@ｿｽｿｽDBGridｿｽﾅ包ｿｽｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ場合ｿｽﾉ更ｿｽVｿｽｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾘゑｿｽﾘんたろう 2011/06/04(ｿｽy) 21:30:37
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ。
ｿｽ^ｿｽCｿｽgｿｽｿｽｿｽﾌ通ゑｿｽADBGridｿｽ複撰ｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽUpdateｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾉつゑｿｽｿｽﾄ趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽﾂのテｿｽ[ｿｽuｿｽｿｽｿｽｿｽUpdateｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉは厄ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽASQLｿｽﾅテｿｽ[ｿｽuｿｽｿｽｿｽｿｽJoinｿｽｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽXｿｽVｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
SQLｿｽﾉ関ゑｿｽｿｽﾄシｿｽｿｽｿｽEｿｽgｿｽﾈので，Updateｿｽｿｽwｿｽ閧ｷｿｽｿｽSQLｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ¥ｿｽzｿｽﾍつゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽCｿｽｿｽUpdateｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾔ違いｿｽﾅ、ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽﾂ茨ｿｽﾂアｿｽbｿｽvｿｽfｿｽ[ｿｽgｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽxJoinｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽH
ｿｽ皷橸ｿｽｿｽｿｽLｿｽﾉソｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽﾂなゑｿｽｿｽﾄゑｿｽｿｽｿｽ¥ｿｽ[ｿｽX
select test01."StudentName",test02."Class"
from test01,test02
Where test01."Studentid" = test02."Student_ID"
UpdateSQLｿｽﾉは、ｿｽﾈ会ｿｽｿｽﾌようｿｽﾈソｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
update test01,test02
set
test01."StudentName" = :"StudentName",
test02."Class" = :"Class"
where
test01."StudentName" = :"OLD_StudentName" and
test02."Class" = :"OLD_Class"
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
HOta 2011/06/05(ｿｽｿｽ) 07:58:59
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽ2ｿｽﾂなゑｿｽUpdateSQLｿｽｿｽ2ｿｽﾂ必ｿｽvｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽ黷ｼｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽﾉ対ゑｿｽｿｽﾄ作成ｿｽｿｽｿｽﾜゑｿｽｿｽB
Ex)
UpdateSQL1
Update Test01
Set
StudentName = :StudentName
where StudentName = :OLD_StudentName
UpdateSQL2
Update Test02
Set
Class = :Class
where Class = :OLD_Class
Query1.UpdateSQLｿｽｿｽUpdateSQL1;UpdateSQL2
ｿｽﾈどとゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌではと思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽLｿｽ[ｿｽﾆデｿｽ[ｿｽ^ｿｽ[ｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾆ使ｿｽｿｽｿｽ竄ｷｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽABDEｿｽﾍ開ｿｽｿｽｿｽｿｽｿｽｿｽ‾ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌ。
ｿｽﾘゑｿｽﾘんたろう 2011/06/05(ｿｽｿｽ) 15:38:41
HOtaｿｽｿｽｿｽｿｽAｿｽﾔ信ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌではと思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽ[ｿｽﾆデｿｽ[ｿｽ^ｿｽ[ｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾆ使ｿｽｿｽｿｽ竄ｷｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽﾛに、ｿｽLｿｽ[ｿｽﾆデｿｽ[ｿｽ^ｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾜゑｿｽｿｽABDEｿｽﾍ開ｿｽｿｽｿｽｿｽｿｽｿｽ‾ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽﾋ。ｿｽB
ｿｽwｿｽZｿｽﾅの宿ｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾅ托ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾈ課托ｿｽｿｽﾛゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽB
ｿｽｿｽｿｽｿｽｿｽ答ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾊり試ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽxｿｽﾚはゑｿｽｿｽﾜゑｿｽUpdateｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽQｿｽxｿｽﾚ以降ｿｽｿｽｿｽﾜゑｿｽｿｽuｿｽAｿｽbｿｽvｿｽfｿｽ[ｿｽgｿｽｿｽｿｽsｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅて、Updateｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽﾜゑｿｽｿｽAｿｽFｿｽXｿｽﾆ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽUpdateｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAClassｿｽｿｽｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾅゑｿｽUpdateｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾉ関係ｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽﾈソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾄてゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽB
ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽQueryｿｽﾌソｿｽ[ｿｽX
procedure TDataModule1.Query2UpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
DataModule1.UpdateSQL2.Apply(UpdateKind);
DataModule1.UpdateSQL3.Apply(UpdateKind);
UpdateAction := uaApplied ;
end;
procedure TDataModule1.Query2UpdateError(DataSet: TDataSet;
E: EDatabaseError; UpdateKind: TUpdateKind;
var UpdateAction: TUpdateAction);
begin
Query2.CancelUpdates ;
end;
ｿｽｿｽUnitｿｽﾅのソｿｽ[ｿｽX
procedure TForm3.FormCreate(Sender: TObject);
begin
DataModule1.UpdateSQL2.DataSet := DataModule1.Query2 ;
DataModule1.UpdateSQL3.DataSet := DataModule1.Query2 ;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
with DataModule1.Query2 do begin
ApplyUpdates ;
CommitUpdates ;
Close ;
Active := True ;
end;
end;
ｿｽｿｽｿｽ關費ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
HOta 2011/06/05(ｿｽｿｽ) 20:03:52
ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ考ｿｽｿｽｿｽﾈゑｿｽｿｽﾌは、ｿｽlｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
Updateｿｽﾍテｿｽ[ｿｽuｿｽｿｽｿｽﾌ搾ｿｽｿｽﾚゑｿｽXｿｽVｿｽｿｽｿｽ驍ｽｿｽﾟで、Classｿｽﾌデｿｽ[ｿｽ^ｿｽ[ｿｽﾆは別でゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
HOta 2011/06/06(ｿｽｿｽ) 05:18:21
TUpdateSQLｿｽﾌ各ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾆ、ｿｽﾎ象テｿｽ[ｿｽuｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽだｿｽｿｽｿｽﾅは費ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾘゑｿｽﾘんたろう 2011/06/06(ｿｽｿｽ) 23:20:29
ｿｽﾔ信ｿｽxｿｽｿｽﾄゑｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾍででゑｿｽｿｽｿｽｿｽｿｽｿｽ謦｣ｿｽｿｽｿｽﾄみてまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽAｿｽｿｽﾍゑｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽB
ｿｽmｿｽｿｽｿｽAUpdateｿｽﾌ搾ｿｽｿｽﾚは擾ｿｽLｿｽﾅ上げｿｽｿｽ黷ｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽLｿｽﾌ通ゑｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
UpdateSQL2
update test01
set
test01."StudentName" = :"StudentName"
where
test01."StudentName" = :"OLD_StudentName"
UpdateSQL3
update test02
set
test02."class" = :"class"
where
test02."class" = :"OLD_class"
ｿｽﾎ象テｿｽ[ｿｽuｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽ謔ｭｿｽかｿｽｿｽﾜゑｿｽｿｽが、Paradox7ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾍゑｿｽｿｽﾗて包ｿｽｿｽｿｽｿｽだゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAQueryｿｽｿｽUpdateObjectｿｽｿｽUpdateSQL1;UpdateSQL2ｿｽﾆゑｿｽｿｽﾄゑｿｽAｿｽsｿｽｿｽｿｽﾈプｿｽｿｽｿｽpｿｽfｿｽBｿｽﾆ出ｿｽﾄ、Updateｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌで、QueryｿｽｿｽUpdateObjectｿｽﾍ具ｿｽﾌままにゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾍ、ｿｽ}ｿｽｿｽｿｽﾙで本ｿｽ調べてゑｿｽｿｽﾄゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽLｿｽﾌようｿｽﾈコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで真ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽB
ｿｽﾜゑｿｽｿｽAｿｽuClassｿｽﾌデｿｽ[ｿｽ^ｿｽ[ｿｽﾆは別」ｿｽﾆゑｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽCｿｽ}ｿｽCｿｽ`ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽB
Classｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝ更ｿｽVｿｽｿｽｿｽ驍ｽｿｽﾟには、ｿｽｿｽｿｽｿｽﾆ違うｿｽ闡ｱｿｽｿｽｿｽ踏まなゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽH
HOta 2011/06/07(ｿｽｿｽ) 08:39:46
TUpdateSQLｿｽｿｽTQueryｿｽﾅ作成ｿｽｿｽｿｽｿｽSQLｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾ｿｽﾈどに、ｿｽﾎゑｿｽｿｽﾄ適ｿｽpｿｽｿｽｿｽAｿｽﾇのテｿｽ[ｿｽuｿｽｿｽｿｽﾌどのフｿｽBｿｽ[ｿｽｿｽｿｽhｿｽﾉ対ゑｿｽｿｽﾄ更ｿｽVｿｽｿｽｿｽ驍ｩｿｽｿｽwｿｽ閧ｵｿｽﾜゑｿｽｿｽB
TQueryｿｽｿｽRequestLiveｿｽｿｽTrueｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽBUpdateObjectｿｽﾉ対象の包ｿｽｿｽｿｽｿｽｿｽTUpdateSQLｿｽｿｽGｿｽﾅ具ｿｽﾘゑｿｽｿｽﾄ指ｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽATUpdateSQLｿｽﾍ茨ｿｽﾂゑｿｽｿｽｿｽTQueryｿｽｿｽUpdateObjectｿｽﾉ指ｿｽ閧ｷｿｽｿｽﾆ、TUpdateSQLｿｽﾉマｿｽEｿｽXｿｽｿｽuｿｽｿｽｿｽﾄ、ｿｽEｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽuUpdateSQLｿｽﾌ設抵ｿｽvｿｽﾅ対象テｿｽ[ｿｽuｿｽｿｽｿｽEｿｽLｿｽ[Field,ｿｽXｿｽVFieldｿｽﾌ設抵ｿｽｿｽｿｽｿｽｿｽﾆ、ModifySQLｿｽEInsertSQLｿｽEDeleteSQLｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB1ｿｽﾂのテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾉ搾ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾆゑｿｽUpdateObjectｿｽﾉ包ｿｽｿｽｿｽｿｽﾝ定すｿｽｿｽﾎ良ゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽﾆ、ｿｽﾓ厄ｿｽｿｽｿｽｿｽかｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾆは、ｿｽfｿｽ[ｿｽ^ｿｽ[ｿｽxｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽﾅ抵ｿｽｿｽｿｽmｿｽｿｽﾈゑｿｽｿｽﾆ会ｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾆは、ｿｽﾇのようｿｽﾈ厄ｿｽｿｽﾌゑｿｽFieldｿｽｿｽｿｽLｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌ型ｿｽﾍ包ｿｽｿｽｿｽｿｽﾈのゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾈのゑｿｽSmallIntｿｽﾈのゑｿｽｿｽｿｽｿｽｿｽﾟてゑｿｽｿｽｿｽﾒでゑｿｽｿｽBParadox7ｿｽﾈゑｿｽADataBaseDesktopｿｽﾅ確ｿｽFｿｽﾅゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽ{ｿｽﾌまねゑｿｽｿｽｿｽｿｽｿｽﾆのゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ様ｿｽﾉ極一部ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾍ、ｿｽｿｽｿｽﾈゑｿｽﾌ撰ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾉ、ｿｽﾗ具ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽﾍ大事ｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾆ駄目でゑｿｽｿｽB
ｿｽﾘゑｿｽﾘんたろう 2011/06/07(ｿｽｿｽ) 21:45:26
ｿｽｿｽｿｽﾔ信ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
TQueryｿｽｿｽUpdateObjectｿｽｿｽ;ｿｽﾅ具ｿｽﾘゑｿｽﾆ、ｿｽuｿｽvｿｽｿｽｿｽpｿｽfｿｽBｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾍゑｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾆゑｿｽﾆ、UpdateObjectｿｽｿｽTUpdateSQL1ｿｽｿｽwｿｽ閧ｵｿｽﾄ、test01ｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽIｿｽｿｽﾅ、SQLｿｽｿｽｿｽ生撰ｿｽｿｽｿｽｿｽﾄ、ｿｽﾜゑｿｽUpdateObjectｿｽｿｽTUpdateSQL2ｿｽｿｽwｿｽ閧ｵｿｽﾄ、ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ使ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
QueryｿｽﾌプｿｽｿｽｿｽpｿｽfｿｽBｿｽﾈどは過具ｿｽｿｽｿｽｿｽOｿｽｿｽQｿｽﾆにゑｿｽｿｽﾈゑｿｽｿｽｿｽATQueryｿｽｿｽRequestLiveｿｽｿｽCachedUpdateｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ禁止ｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅゑｿｽｿｽﾌの、ｿｽｿｽｿｽﾜゑｿｽUpdateｿｽﾅゑｿｽｿｽ骼橸ｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽ皷橸ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆにゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍで頑張ｿｽｿｽｿｽﾄみまゑｿｽｿｽBｿｽB
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾍ、Fieldｿｽ^ｿｽATypeｿｽASizeｿｽAKeyｿｽﾌゑｿｽｿｽﾆなどゑｿｽwｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽ竦費ｿｽｿｽｿｽﾈ外ｿｽﾉゑｿｽAｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ{ｿｽｿｽｿｽ^ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗ具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
HOta 2011/06/08(ｿｽｿｽ) 11:57:28
TQueryｿｽｿｽUpdateObjectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉ包ｿｽｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽﾝ定すｿｽｿｽﾌは、FormｿｽｿｽOnCreateｿｽｿｽｿｽｿｽ
UpdateSQL1.DataSet=Query1;
UpdateSQL2.DataSet=Query1;
ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
