|
ｿｽ@ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽX ｿｽNｿｽGｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽEｿｽXｿｽVｿｽEｿｽ除ｿｽEｿｽﾇ会ｿｽ
|
ｿｽ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
ｿｽｿｽｿｽ 2009/12/23(ｿｽｿｽ) 23:50:30
ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾉつなゑｿｽｿｽﾅ、ｿｽNｿｽGｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄテｿｽ[ｿｽuｿｽｿｽｿｽﾌ削除ｿｽEｿｽXｿｽVｿｽEｿｽﾇ会ｿｽｿｽEｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽｿｽﾟ包ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽﾂ具ｿｽｿｽｿｽDelphi4ｿｽﾅゑｿｽｿｽB
HOta 2009/12/24(ｿｽｿｽ) 03:28:48
ｿｽﾚ托ｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽ[ｿｽxｿｽ[ｿｽXｿｽﾍ会ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Delphi4ｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ 2009/12/24(ｿｽｿｽ) 22:32:36
delphi4ｿｽｿｽservice pack 3ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽoracle 8iｿｽ@ｿｽﾅゑｿｽｿｽBｿｽ@ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
HOta 2009/12/25(ｿｽｿｽ) 10:12:19
ｿｽﾜゑｿｽｿｽABDEAdministratorｿｽｿｽOracleｿｽﾉ対ゑｿｽｿｽｿｽAliasｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
BDEｿｽﾍバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽ5.2ｿｽﾅ止ｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾅ新ｿｽﾌゑｿｽﾌゑｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Oracle8.0.5ｿｽﾜで対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
Delphi4ｿｽｿｽEnterPriseｿｽﾌ場合ｿｽﾈゑｿｽﾎ、ConfigrationｿｽｿｽDriversｿｽｿｽ
Nativeｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽOracleｿｽｿｽｿｽLｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽIｿｽﾔと右ｿｽｿｽｿｽﾉ難ｿｽeｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Oracle8ｿｽｿｽgｿｽｿｽｿｽﾌなゑｿｽAｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽDLL32ｿｽｿｽhｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽｿｽ
SQLORA8.DLLｿｽｿｽIｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
VenderInitｿｽｿｽOCI.DLLｿｽﾉ変更ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
DataBaseｿｽﾌタｿｽuｿｽｿｽJｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽ[Object][New]ｿｽｿｽ
NewDatabaseAliasｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅドｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽ[Oracle]ｿｽｿｽIｿｽﾑまゑｿｽｿｽB
ｿｽEｿｽｿｽｿｽﾉ設定がｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽAServerNameｿｽAUserNameｿｽｿｽｿｽﾌ設抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAliasｿｽﾍ托ｿｽｿｽｿｽOracel1ｿｽﾌ様ｿｽﾈ厄ｿｽｿｽOｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、
ｿｽKｿｽｿｽｿｽﾉ変更ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ接托ｿｽｿｽﾅゑｿｽｿｽｿｽﾎゑｿｽｿｽﾌ設抵ｿｽﾍ終ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾛ托ｿｽｿｽｿｽｿｽﾄ終ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Delphiｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽ[ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽVCLｿｽｿｽTDatabaseｿｽｿｽzｿｽuｿｽｿｽｿｽﾄ、Aliasｿｽｿｽﾝ定しｿｽｿｽConnectedｿｽｿｽTrueｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽﾚ托ｿｽｿｽﾅゑｿｽｿｽｿｽﾎ、OK
ｿｽｿｽｿｽﾉ、SQLｿｽｿｽgｿｽｿｽｿｽ鼾ｿｽｿｽTQueryｿｽｿｽzｿｽuｿｽｿｽｿｽﾄ、DatabaseNameｿｽｿｽTDatabaseｿｽﾌ厄ｿｽｿｽOｿｽｿｽﾝ定しｿｽﾜゑｿｽｿｽBSQLｿｽrｿｽｿｽｿｽ_ｿｽｿｽgｿｽｿｽｿｽﾎ、ｿｽLｿｽｿｽｿｽｿｽxｿｽｿｽSQLｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
TQueryｿｽｿｽActiveｿｽｿｽTrueｿｽﾉゑｿｽｿｽﾄエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾈゑｿｽｿｽｿｽﾎ接托ｿｽｿｽｿｽOKｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ抵ｿｽｿｽxｿｽﾅ鯉ｿｽﾍ費ｿｽｿｽｿｽﾜゑｿｽｿｽﾋ。
ｿｽｿｽｿｽ 2009/12/27(ｿｽｿｽ) 00:32:39
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBSQLｿｽrｿｽｿｽｿｽ_ｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽﾄ暦ｿｽｿｽpｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽ@ｿｽﾜゑｿｽｿｽAｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ削除ｿｽEｿｽXｿｽVｿｽEｿｽﾇ会ｿｽｿｽEｿｽｿｽｿｽｿｽｿｽiｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽﾅ）ｿｽﾌ厄ｿｽｿｽﾟ包ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽfｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｼｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽiｿｽ除DELETEｿｽEｿｽXｿｽVUPDATEｿｽEｿｽﾇ会ｿｽAPPENDｿｽEｿｽｿｽｿｽｿｽSELECTｿｽjｿｽﾉつゑｿｽｿｽﾄ、ｿｽｿｽｿｽﾛの暦ｿｽｿｽLｿｽqｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾆ幸ｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽiｿｽKｿｽﾅは、PARAMSｿｽ利用ｿｽｿｽｿｽﾄ、SELECTｿｽｿｽｿｽｿｽ1ｿｽﾂの擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅソｿｽ[ｿｽgｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽSELECT * FROM TABLE WHERE AA =: VALUEｿｽBｿｽｿｽｿｽｿｽｿｽﾍまゑｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽSｿｽﾒなので、ｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽXｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
HOta 2009/12/27(ｿｽｿｽ) 02:48:52
ｿｽIｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆは、ｿｽﾚ托ｿｽｿｽｿｽOKｿｽﾅゑｿｽｿｽﾋ。
SQLｿｽrｿｽｿｽｿｽ_ｿｽﾍ、TQueryｿｽｿｽAliasｿｽｿｽﾝ抵ｿｽｿｽﾉ、TQueryｿｽﾌ擾ｿｽﾉマｿｽEｿｽXｿｽｿｽuｿｽｿｽｿｽA
ｿｽEｿｽ{ｿｽ^ｿｽｿｽｿｽﾅ出ｿｽｿｽTｿｽuｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽSQLｿｽrｿｽｿｽｿｽ_ｿｽｿｽIｿｽﾑまゑｿｽｿｽB
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾈテｿｽ[ｿｽuｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽﾌ場合ｿｽﾍ茨ｿｽﾂゑｿｽｿｽﾂ選ｿｽﾗば、ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾆ搾ｿｽｿｽﾚゑｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽAliasｿｽｿｽﾝ定すｿｽｿｽ鼾ｿｽﾍ、ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽﾅ右ｿｽNｿｽｿｽｿｽbｿｽN->
ｿｽeｿｽ[ｿｽuｿｽｿｽAliasｿｽﾌ設抵ｿｽﾅ変更ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾌままでゑｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽKｿｽvｿｽﾈ搾ｿｽｿｽﾚにチｿｽFｿｽbｿｽNｿｽｿｽtｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽﾌ場合ｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚゑｿｽhｿｽｿｽｿｽbｿｽOｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽｿｽﾎ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽoｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
SQLｿｽｿｽｿｽﾍ、ｿｽｿｽ{ｿｽIｿｽﾉゑｿｽ
ｿｽIｿｽｿｽ
Select ｿｽｿｽｿｽﾚ厄ｿｽｿｽP,ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ,ｿｽｿｽｿｽﾚ厄ｿｽｿｽR /*ｿｽIｿｽｿｽｿｽｿｽﾚ指ｿｽｿｽ*/
From ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽ ｿｽAｿｽｿｽｿｽAｿｽXｿｽｿｽ /*ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽwｿｽｿｽ*/
where ｿｽｿｽｿｽﾚ厄ｿｽｿｽP = Value4 and ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ = Value5 /*ｿｽｿｽｿｽｿｽwｿｽｿｽ*/
Order by ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ,ｿｽｿｽｿｽﾚ厄ｿｽｿｽR /* ｿｽ¥ｿｽ[ｿｽgｿｽwｿｽｿｽ */
ｿｽXｿｽVｿｽｿｽ
Update ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽ set
ｿｽｿｽｿｽﾚ厄ｿｽｿｽP=Value1,
ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ=Value2,
ｿｽｿｽｿｽﾚ厄ｿｽｿｽR=Value3
where ｿｽｿｽｿｽﾚ厄ｿｽｿｽP = Value4 and ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ = Value5 /*ｿｽｿｽｿｽｿｽwｿｽｿｽ*/
ｿｽ除ｿｽｿｽ
Delete ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽ
where ｿｽｿｽｿｽﾚ厄ｿｽｿｽP = "2" and ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ = 5 /*ｿｽｿｽｿｽｿｽwｿｽｿｽ*/
ｿｽﾇ会ｿｽｿｽｿｽ
insert into ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽ
(ｿｽｿｽｿｽﾚ厄ｿｽｿｽP,ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ,ｿｽｿｽｿｽﾚ厄ｿｽｿｽR)
values
(Value1, Value2, Value3)
ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽIｿｽ文は、Active=Trueｿｽ@ｿｽｿｽｿｽ@Openｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈ外ｿｽﾍ、ExecSQLｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽB
ParamsｿｽﾍゑｿｽｿｽｿｽValueｿｽﾉ対ゑｿｽｿｽﾄ設定しｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽsｿｽOｿｽｿｽSQLｿｽ直接設定すｿｽ驍ｱｿｽﾆゑｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽB
with Query1 do begin
Close;
with SQL do
begin
Clear;
Add('Select ｿｽｿｽｿｽﾚ厄ｿｽｿｽP,ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ,ｿｽｿｽｿｽﾚ厄ｿｽｿｽR /*ｿｽIｿｽｿｽｿｽｿｽﾚ指ｿｽｿｽ*/');
Add('From ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽ ｿｽAｿｽｿｽｿｽAｿｽXｿｽｿｽ /*ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽwｿｽｿｽ*/');
Add('where ｿｽｿｽｿｽﾚ厄ｿｽｿｽP = Value4 and ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ = Value5 /*ｿｽｿｽｿｽｿｽwｿｽｿｽ*/');
Add('Order by ｿｽｿｽｿｽﾚ厄ｿｽｿｽQ,ｿｽｿｽｿｽﾚ厄ｿｽｿｽR /* ｿｽ¥ｿｽ[ｿｽgｿｽwｿｽｿｽ */');
end;
Active := True;
end;
ｿｽｿｽｿｽ 2009/12/27(ｿｽｿｽ) 14:04:52
ｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾈミｿｽXｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽ黷ｼｿｽｿｽﾌ構ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾌ確ｿｽFｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽA
(ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽ:a ,ｿｽｿｽｿｽｿｽ1: aID(NUMBERｿｽ^), ｿｽｿｽｿｽｿｽ2:aNAME(ｿｽｿｽｿｽｿｽｿｽ^ｿｽj, ｿｽｿｽｿｽｿｽ3:aADDRESS(ｿｽｿｽｿｽｿｽｿｽ^ｿｽj ｿｽ@ｿｽ@/// ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽteditｿｽﾌ厄ｿｽｿｽOｿｽｿｽｿｽｿｽ黷ｼｿｽｿｽedit_ID, edit_NAME, edit_ADDRESSｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽ )
SELECTｿｽｿｽｿｽﾌ場合
procedure
var
ival : integer;
sval1 : string;
sval2 : string;
begin
ival := StrToInt(edit_ID.Text);
sval1 := edit_NAME;
sval2 := edit_ADDRESS;
with query1 do
begin
close;
with sql do
begin
clear;
add('select * from a where aID = :value1 and
aNAME = :value2 and aADDRESS = :value3');
prepare;
params[0].AsInteger := ival;
params[1].AsString := sval1;
params[2].AsString := sval2;
end;
open;
end
end;
UPDATEｿｽｿｽｿｽﾌ場合
close;
with sql do
begin
add('update a set aID = :value1, aNAME =:value2, aADDRESS = :value
where aID = :value1')
prepare;
params ｿｽｿｽｿｽselectｿｽｿｽｿｽﾌ趣ｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽ)
DELETEｿｽｿｽｿｽﾌ場合
close;
with sql do
begin
add('delete from a where aID = :value1');
prepare;
params ｿｽｿｽｿｽselectｿｽｿｽｿｽﾌ趣ｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽ)
insertｿｽｿｽｿｽﾌ場合
close;
with sql do
begin
add('insert into a (aID, aNAME, aADDRESS) values (value1, value2, value3);
ｿｽｿｽｿｽﾆゑｿｽselectｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽ
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ擾ｿｽLｿｽﾅ托ｿｽｿｽvｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽEvalue1ｿｽﾌ前ｿｽﾉは、ｿｽRｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽEwhereｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ包ｿｽｿｽｿｽｿｽｿｽｿｽﾉ抵ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽsｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌまま行ｿｽｿｽｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾆコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBｿｽsｿｽｿｽﾏゑｿｽｿｽｿｽ鼾ｿｽﾉは、&_ｿｽ@ｿｽｿｽ@+ｿｽ@ｿｽﾌようｿｽﾈ記ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽEaNAMEｿｽｿｽaADDRESSｿｽﾌようｿｽﾈ擾ｿｽｿｽﾟゑｿｽｿｽｿｽstringｿｽ^ｿｽｿｽedit.TEXTｿｽﾌ形ｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽ
ｿｽ@ｿｽKｿｽvｿｽﾌなゑｿｽｿｽｿｽﾌは、ｿｽｿｽLｿｽﾌようｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅ托ｿｽｿｽvｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽEｿｽﾅ鯉ｿｽｿｽSELECTｿｽｿｽｿｽﾅ、ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉめるたｿｽﾟゑｿｽlikeｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽkｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ轤ｯｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
HOta 2009/12/28(ｿｽｿｽ) 07:21:28
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽﾅゑｿｽ¥ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAAdd()ｿｽｿｽSQLｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅ、ｿｽPｿｽsｿｽﾅ擾ｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾆ、
ｿｽｿｽｿｽsｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉスｿｽyｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽYｿｽｿｽ骼厄ｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾓゑｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
add('select * from a where aID = :value1 and ' +
'aNAME = :value2 and aADDRESS = :value3');
ｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、SQLｿｽｿｽ
select * from a where aID = :value1 and aNAME = :value2 and aADDRESS = :value3
ｿｽｿｽ1ｿｽsｿｽﾉ設定さｿｽｿｽﾜゑｿｽｿｽB
add('select * ');
add(' from a');
add('where aID = :value1');
add(' and aNAME = :value2');
add(' and aADDRESS = :value3');
ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾎ、
select *
from a
where aID = :value1
and aNAME = :value2
and aADDRESS = :value3
ｿｽﾌ様ｿｽﾉ会ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽsｿｽﾉ設定さｿｽｿｽﾜゑｿｽｿｽB
ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽsｿｽﾚゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽoｿｽﾄ費ｿｽｿｽｿｽ竄ｷｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
Parametaｿｽｿｽﾝ定すｿｽｿｽ鼾ｿｽﾍ、ｿｽﾏ撰ｿｽｿｽｿｽｿｽﾌ前ｿｽﾉコｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ行ｿｽｿｽﾏゑｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽ分ゑｿｽｿｽｿｽﾌで「+ｿｽvｿｽｿｽgｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽB
TQueryｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾌ抵ｿｽｿｽｿｽSQLｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾈ前ｿｽｿｽSQLｿｽｿｽｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽﾄ、
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽSQLｿｽﾌ設抵ｿｽｿｽｿｽｿｽｿｽｿｽﾉ、
params[0].AsInteger := ival;
params[1].AsString := sval1;
params[2].AsString := sval2;
ｿｽｿｽｿｽｿｽｿｽｿｽeｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾍ費ｿｽｿｽｿｽ竄ｷｿｽｿｽ
ParamByName('Value1').AsInteger := ival;
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾉ変撰ｿｽｿｽｿｽｿｽﾅ参ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽLｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ場合ｿｽﾍ、ｿｽﾏ撰ｿｽｿｽｿｽｿｽﾌ型ｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾅ設定しｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽﾏ撰ｿｽｿｽﾌ型ｿｽﾉは抵ｿｽｿｽﾓゑｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
Likeｿｽｿｽｿｽﾍデｿｽ[ｿｽ^ｿｽ[ｿｽxｿｽ[ｿｽXｿｽﾉゑｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽASQLｿｽｿｽｿｽﾅゑｿｽ
where aNAME Like 'a%'
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
Add('where aNAME Like ''a%''');
ｿｽﾌ様ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾍ、OracleｿｽｿｽSQLｿｽﾅゑｿｽｿｽｿｽｿｽｿｽA
http://www.iceprobe.net/database/oracle/oraorasql/sql_command_like.php
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽQｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽﾜゑｿｽｿｽB
DelphiｿｽｿｽOracleｿｽﾈどのデｿｽ[ｿｽ^ｿｽ[ｿｽxｿｽ[ｿｽXｿｽ@ｿｽ¥ｿｽｿｽUIｿｽﾆゑｿｽｿｽﾄ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾌで、
ｿｽﾇのようｿｽﾉ組ｿｽﾝ搾ｿｽｿｽさｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽlｿｽｿｽｿｽﾈゑｿｽｿｽｿｽProgramｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽ 2009/12/29(ｿｽｿｽ) 06:24:36
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽsｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽJｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ 2010/01/13(ｿｽｿｽ) 11:04:29
HOtaｿｽｿｽｿｽｿｽAｿｽﾚゑｿｽｿｽｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽIDｿｽﾍ包ｿｽｿｽｿｽｿｽ^ｿｽﾅゑｿｽｿｽBｿｽﾜゑｿｽｿｽASELECT TRUNCｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾊは、ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽけゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽROWNUMｿｽﾅ指ｿｽ閧ｵｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽiROWNUM<=3ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽA8,7,7ｿｽﾈど）ｿｽB
ｿｽﾜゑｿｽｿｽAHotaｿｽｿｽｿｽｿｽﾉ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾊのクｿｽGｿｽｿｽｿｽｿｽupdateｿｽｿｽｿｽ髀茨ｿｽｿｽｿｽﾉつゑｿｽｿｽﾄは、ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽSQLｿｽRｿｽ}ｿｽｿｽｿｽhｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBWHEREｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ@ｿｽ¥ｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌではなゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
UPDATESQLｿｽﾉつゑｿｽｿｽﾄは、ｿｽｿｽｿｽﾍテｿｽ[ｿｽuｿｽｿｽTTABLEｿｽｿｽﾂゑｿｽｿｽずｿｽAｿｽNｿｽGｿｽｿｽｿｽﾌみで擾ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽVｿｽｿｽｿｽｿｽTTABLEｿｽｿｽﾝ置ｿｽｿｽｿｽAUPDATESQLｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽIｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽﾅテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽDATASOURCEｿｽｿｽｿｽｿｽｿｽNｿｽGｿｽｿｽｿｽﾌみゑｿｽｿｽｿｽｿｽwｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽ理ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽFｿｽｿｽｿｽｿｽｿｽ黷ｸｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽxｿｽｿｽ¥ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
