|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
Queryｿｽfｿｽ[ｿｽ^ｿｽｿｽDBGridｿｽｿｽｿｽｿｽﾒ集
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
KK 2008/07/15(ｿｽｿｽ) 21:13:14
ｿｽｿｽｿｽxｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB
WindowsXP+Delphi7
ｿｽｿｽｿｽﾝ、ｿｽｿｽｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽQueryｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDBGridｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
SELECT
"SHOHIN.DB".SHOHINNO,"SHOHIN.DB".NAME,
"BARCODE.DB".CODE
FROM
"SHOHIN.DB","BARCODE.DB"
WHERE
"SHOHIN.DB".SHOHINNO="BARCODE.DB".SHOHINNO
ｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽDBGridｿｽｿｽｿｽｿｽﾒ集ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾒ集ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟ、
ｿｽｿｽｿｽいｿｽ調ｿｽﾗゑｿｽｿｽﾆゑｿｽｿｽｿｽAUpdateSQLｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜでは包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
UpdateSQLｿｽﾌ設抵ｿｽｿｽsｿｽｿｽｿｽﾆ、ModifySQLｿｽﾌとゑｿｽｿｽｿｽｿｽ
update"SHOHINNO.DB"
set
SHOHINNO=:SHOHINNO,
NAME=:NAME,
CODE=:CODE
where
SHOHINNO=:OLD_SHOHINNO
ｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾛに、DBGridｿｽｿｽﾒ集ｿｽｿｽｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽﾉ奇ｿｽｿｽ闢厄ｿｽﾄゑｿｽｿｽuQuery1.ApplyUpdatesｿｽvｿｽｿｽsｿｽｿｽｿｽｿｽ
ｿｽuｿｽｿｽｿｽﾚ（ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽjｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽuCODEｿｽvｿｽvｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ModifySQｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆは思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇのようｿｽﾉ修ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB
HOta 2008/07/16(ｿｽｿｽ) 08:37:09
2ｿｽﾂのテｿｽ[ｿｽuｿｽｿｽｿｽｿｽPostｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽATUpdateSQLｿｽｿｽQｿｽﾂ用ｿｽﾓゑｿｽｿｽﾜゑｿｽｿｽB
//UpdateSQL1
update"SHOHINNO.DB"
set
SHOHINNO=:SHOHINNO,
NAME=:NAME
where
SHOHINNO=:OLD_SHOHINNO
//UpdateSQL2
update"BARCODE.DB"
set
CODE=:CODE
where
SHOHINNO=:OLD_SHOHINNO
ｿｽｿｽpｿｽﾓゑｿｽｿｽﾄ、TQueryｿｽｿｽUpdateSQLｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ
UpdateSQL1;UpdateSQL2
ｿｽﾆセｿｽbｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽB
KK 2008/07/16(ｿｽｿｽ) 14:14:06
HOtaｿｽｿｽｿｽ早急ｿｽﾈｿｽｿｽXｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>2ｿｽﾂのテｿｽ[ｿｽuｿｽｿｽｿｽｿｽPostｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽATUpdateSQLｿｽｿｽQｿｽﾂ用ｿｽﾓゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾍゑｿｽｿｽAFormｿｽﾉ２ｿｽﾂ置ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>//UpdateSQL1
>update"SHOHINNO.DB"
>set
>SHOHINNO=:SHOHINNO,
>NAME=:NAME
>where
>SHOHINNO=:OLD_SHOHINNO
>//UpdateSQL2
>update"BARCODE.DB"
>set
>CODE=:CODE
>where
>SHOHINNO=:OLD_SHOHINNO
ｿｽｿｽｿｽｿｽﾍ、UpdateSQL1,UpdateSQL2ｿｽｿｽModifySQLｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ
ｿｽｿｽｿｽ黷ｼｿｽ齒托ｿｽｿｽｿｽｿｽｿｽﾞとゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
>ｿｽｿｽpｿｽﾓゑｿｽｿｽﾄ、TQueryｿｽｿｽUpdateSQLｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ
>UpdateSQL1;UpdateSQL2
>ｿｽﾆセｿｽbｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽB
Query1ｿｽｿｽUpdateObjectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
UpdateObjectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾍ１ｿｽﾂゑｿｽｿｽｿｽｿｽZｿｽbｿｽgｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽiｿｽhｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽPｿｽﾂ選ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽj
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾄ度ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB
HOta 2008/07/17(ｿｽｿｽ) 09:34:29
ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾈどはでゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
UpdateObjectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾍ１ｿｽﾂゑｿｽｿｽｿｽｿｽZｿｽbｿｽgｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
TQueryｿｽｿｽUpdateObjectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉ包ｿｽｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽﾝ定すｿｽｿｽﾌは、FormｿｽｿｽOnCreateｿｽｿｽｿｽｿｽ
UpdateSQL1.DataSet=Query1;
UpdateSQL2.DataSet=Query1;
ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
TUpdateSQLｿｽﾌ茨ｿｽｿｽｿｽｿｽﾎ象のテｿｽ[ｿｽuｿｽｿｽｿｽﾍ茨ｿｽﾂでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾉ包ｿｽｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆはでゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽATUpdateSQLｿｽｿｽﾅマｿｽEｿｽXｿｽﾌ右ｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽﾆ出ｿｽﾄゑｿｽｿｽｿｽTｿｽuｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽUpdateSQLｿｽﾌ設抵ｿｽｿｽIｿｽﾔと、SQLｿｽﾌ設抵ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ抵ｿｽｿｽﾅ、ｿｽIｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾑまゑｿｽｿｽB
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾚの取得ｿｽﾅ、ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ搾ｿｽｿｽﾚゑｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽCｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽｿｽIｿｽｿｽﾅ、ｿｽLｿｽ[ｿｽｿｽｿｽﾚゑｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽXｿｽVｿｽｿｽｿｽ骰ｿｽﾚを反転ｿｽｿｽｿｽｿｽｿｽﾄ、SQLｿｽｿｽｿｽ生撰ｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾚ厄ｿｽｿｽｿｽ"ｿｽｿｽｿｽKｿｽvｿｽﾈ場合ｿｽﾍ、ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
SQLｿｽｿｽｿｽ^ｿｽuｿｽﾅ各SQLｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽﾜゑｿｽｿｽB
OKｿｽ{ｿｽ^ｿｽｿｽｿｽﾅ、TUpdateSQLｿｽｿｽDeleteSQL,InsertSQL,ModifySQL,RefreshSQLｿｽｿｽSQLｿｽｿｽｿｽｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ黷ｼｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽTQueryｿｽｿｽUpdateObjectｿｽﾉ茨ｿｽﾂゑｿｽｿｽﾂセｿｽbｿｽgｿｽｿｽｿｽｿｽSQLｿｽｿｽｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
