|
ｿｽ@ｿｽｿｽADOｿｽｿｽParameterｿｽｿｽwｿｽ閧ｷｿｽｿｽﾉは？
|
ｿｽ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/06/21(ｿｽｿｽ) 12:58:15
ｿｽﾂ具ｿｽｿｽｿｽVisual Basic6ｿｽﾅゑｿｽｿｽB
ADOｿｽｿｽSQLｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾅ値ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾆゑｿｽｿｽﾍ「?ｿｽvｿｽｿｽ
ｿｽnｿｽｿｽｿｽﾆ擾ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽLｿｽ¥ｿｽ[ｿｽXｿｽﾌようｿｽﾉ固定さｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽ
m_AdoComm(col1) = "1"
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ搾ｿｽｿｽﾚ厄ｿｽｿｽﾆ対会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾍ、cmd.CreateParameter("col1", adVarChar, adParamInput, 10)
ｿｽﾌようｿｽｿｽDBｿｽﾌ型ｿｽ竰ｷｿｽｿｽｿｽﾌ指ｿｽ閧ｪｿｽKｿｽvｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽ^ｿｽｿｽwｿｽ閧ｵｿｽﾈゑｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
Dim m_AdoCn As ADODB.Connection
Dim m_AdoComm As ADODB.Command
Set m_AdoCn = New ADODB.Connection
m_AdoCn.Open ("DSN=test;")
Set m_AdoComm = New ADODB.Command
m_AdoComm.ActiveConnection = m_AdoCn
Dim strSQL As String
strSQL = "SELECT * FROM test1 where col1 = ?"
m_AdoComm.CommandText = strSQL
m_AdoComm.CommandType = 1
m_AdoComm(0) = "1"
ｿｽIｿｽVｿｽｿｽｿｽE 2009/06/21(ｿｽｿｽ) 23:00:29
http://www.accessclub.jp/ado/createparameter.html
ｿｽﾈ擾ｿｽBｿｽQｿｽlｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽ 2009/06/23(ｿｽｿｽ) 02:15:58
ｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽ
Set param = cmd.CreateParameter("ｿｽｿｽｿｽｿｽ", adVarChar, adParamInput, 10)
ｿｽﾅ、adVarCharｿｽｿｽ10ｿｽｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/06/23(ｿｽｿｽ) 09:29:32
> m_AdoComm.CommandType = 1
ｿｽ}ｿｽWｿｽbｿｽNｿｽiｿｽｿｽｿｽoｿｽ[ｿｽﾌ使ｿｽpｿｽﾍ費ｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽﾌ場合ｿｽﾍ、adCmdText ｿｽ關費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽﾅゑｿｽｿｽB
> ｿｽｿｽｿｽｿｽｿｽｿｽ^ｿｽｿｽwｿｽ閧ｵｿｽﾈゑｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽgｿｽpｿｽｿｽｿｽｿｽ Provider ｿｽﾉゑｿｽｿｽｿｽﾄ、ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽﾉてパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽ`ｿｽﾅゑｿｽｿｽｿｽｿｽﾌとでゑｿｽｿｽﾈゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
(ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ)
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、Oracle ｿｽﾅゑｿｽｿｽｿｽｿｽ WHERE col1 = :varName ｿｽﾌ構ｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽA
JET ｿｽﾅゑｿｽｿｽｿｽｿｽ PARAMETERS `varName` Text; ｿｽﾌ構ｿｽｿｽｿｽﾆなゑｿｽﾜゑｿｽｿｽｿｽｿｽA
ODBC ｿｽﾅは、ｿｽoｿｽｿｽｿｽｿｽｿｽﾌみに依托ｿｽｿｽｿｽｿｽｿｽ WHERE col1 = ? ｿｽﾌ構ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽ ADO ｿｽﾅは、Parameter ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾊゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽ^ｿｽ明趣ｿｽｿｽIｿｽﾉ与ｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
> Set param = cmd.CreateParameter("ｿｽｿｽｿｽｿｽ", adVarChar, adParamInput, 10)
> ｿｽﾅ、adVarCharｿｽｿｽ10ｿｽｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽﾅ変撰ｿｽｿｽｿｽｿｽﾆ型ｿｽｿｽwｿｽｿｽﾅゑｿｽｿｽｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽﾌ場合ｿｽﾉゑｿｽｿｽｿｽｿｽﾄは、
.Parameters.Refresh ｿｽｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾆで、ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽARefresh ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽﾄび出ｿｽｿｽｿｽOｿｽﾉ、Command ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ
ActiveConnection/CommandText/CommandType ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽAｿｽｿｽｿｽ黷ｼｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ SQL Server ｿｽﾌ場合ｿｽAｿｽXｿｽgｿｽAｿｽhｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽｿｽOｿｽﾆ型ｿｽｿｽｿｽ`ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌ場合ｿｽAｿｽｿｽｿｽｿｽ Refresh ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽpｿｽｿｽｿｽ驍ｱｿｽﾆで、CreateParameter ｿｽｿｽｿｽｿｽｿｽｿｽ
Parameter ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽ利用ｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍ開ｿｽｿｽｿｽｿｽｿｽﾉは便暦ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Refresh ｿｽｿｽﾄび出ｿｽｿｽｿｽﾌは、ｿｽｿｽｿｽLｿｽｿｽ 2 ｿｽ_ｿｽｿｽｿｽｿｽDｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆの意鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
(1) Refresh ｿｽｿｽｿｽｿｽｿｽ供ゑｿｽｿｽﾈゑｿｽ(ｿｽｿｽｿｽｿｽｿｽｿｽﾍ擾ｿｽｿｽ供ゑｿｽｿｽsｿｽｿｽｿｽSｿｽｿｽ)ｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽｿｽｿｽｿｽﾝゑｿｽｿｽ驍ｽｿｽﾟ、ｿｽﾚ植ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽB
(2) ｿｽｿｽｿｽｿｽｿｽﾌプｿｽｿｽｿｽoｿｽCｿｽ_ｿｽﾅは、Refresh ｿｽｿｽｿｽｿｽﾌ最適ｿｽｿｽｿｽﾍ行ｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟ、
ｿｽ@CreateParameter ｿｽｿｽpｿｽｿｽｿｽﾄ厄ｿｽｿｽｿｽｿｽIｿｽﾉ擾ｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽ@cmd.CommandText = SQL
ｿｽ@Set cmd.ActiveConnection = con
ｿｽ@Set rs = cmd.Execute( , "ｿｽjｿｽｿｽ")ｿｽ@ｿｽ@'ｿｽｿｽ
ｿｽ@Set cmd.ActiveConnection = Nothing
ｿｽ@Do Until rs.EOF
ｿｽ@ｿｽ@Debug.Print rs.Collect(0)
ｿｽ@ｿｽ@rs.MoveNext
ｿｽ@Loop
ｿｽﾌようｿｽﾉ、Execute ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽｿｽﾉパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ値ｿｽｿｽwｿｽ閧ｷｿｽｿｽｿｽｿｽ@ｿｽﾅは、
ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽﾌ提供ゑｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽﾉ具ｿｽｿｽﾟるこｿｽﾆにはなゑｿｽﾈゑｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽtｿｽHｿｽ[ｿｽ}ｿｽｿｽｿｽXｿｽｿｽ^ｿｽﾚ植ｿｽｿｽｿｽﾌ厄ｿｽｿｽﾍ撰ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
(ｿｽｿｽｿｽｿｽｿｽﾌパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽwｿｽ閧ｷｿｽｿｽ鼾ｿｽﾍ、ｿｽzｿｽｿｽﾆゑｿｽｿｽﾄ渡ｿｽｿｽｿｽﾜゑｿｽ)
ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅゑｿｽ Parameter ｿｽｿｽ Direction ｿｽｿｽ adParamInput ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｳｿｽｿｽ驍ｽｿｽﾟ、ｿｽoｿｽﾍパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽ伴ゑｿｽｿｽRｿｽ}ｿｽｿｽｿｽhｿｽﾌ趣ｿｽｿｽsｿｽﾉは鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽけゑｿｽﾇゑｿｽB
ｿｽｿｽｿｽｿｽ 2009/06/23(ｿｽｿｽ) 23:22:31
>ｿｽ}ｿｽWｿｽbｿｽNｿｽiｿｽｿｽｿｽoｿｽ[ｿｽﾌ使ｿｽpｿｽﾍ費ｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
>ｿｽｿｽｿｽﾌ場合ｿｽﾍ、adCmdText ｿｽ關費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽwｿｽEｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽkｿｽﾉ載ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽかｿｽｿｽﾃらくｿｽﾈゑｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
>ActiveConnection/CommandText/CommandType ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽAｿｽｿｽｿｽ黷ｼｿｽｿｽ
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄる理ｿｽRｿｽｿｽｿｽ謔ｭｿｽかｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
Refreshｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽﾄんだ場合ｿｽﾍ、cmd.Parameters(0)ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽzｿｽｿｽﾌ番搾ｿｽｿｽ数趣ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾄべなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽLｿｽﾌソｿｽ[ｿｽXｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽm_AdoComm("col1")ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽﾅ托ｿｽｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽB
strSQL = "SELECT * FROM test1 where col1 = ?"
m_AdoComm.CommandText = strSQL
m_AdoComm.CommandType = adCmdText
m_AdoComm.Parameters.Refresh 'ｿｽﾇ会ｿｽ
m_AdoComm("col1") = "1" 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽ
RefreshｿｽﾉつゑｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽｿｽｿｽHPｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
http://www.accessclub.jp/ado/refresh.html
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/06/24(ｿｽｿｽ) 20:16:08
test1 where col1 = ? ｿｽ¥ｿｽｿｽｿｽﾌ場合ｿｽAｿｽｿｽｿｽOｿｽｿｽwｿｽ閧ｷｿｽｿｽﾉゑｿｽ
Parameter ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾅ組ｿｽﾝ暦ｿｽｿｽﾄるしｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽOｿｽtｿｽｿｽｿｽﾌパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽ¥ｿｽｿｽｿｽｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾎ、
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾉ変更ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽA? ｿｽﾌ構ｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽA
Refresh ｿｽﾅ使ｿｽｿｽｿｽ鼾ｿｽAｿｽｿｽ{ｿｽIｿｽﾉは番搾ｿｽｿｽﾅ指ｿｽ閧ｷｿｽ驍ｩｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Refresh ｿｽｿｽgｿｽずｿｽAParameter ｿｽｿｽｿｽｿｽOｿｽﾅ組ｿｽﾝ暦ｿｽｿｽﾄてゑｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
> ｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽ
> ｿｽｿｽｿｽｿｽﾅ托ｿｽｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽB
ｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽﾉゑｿｽｿｽｿｽﾄは、ｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ厄ｿｽｿｽOｿｽｿｽｿｽﾇのようｿｽﾈゑｿｽﾌになゑｿｽﾌゑｿｽｿｽﾍ、
ｿｽ@Dim p As ADODB.Parameter
ｿｽ@For Each p In cmd.Parameters
ｿｽ@ｿｽ@Debug.Print p.Name
ｿｽ@Next
ｿｽﾈどの構ｿｽｿｽｿｽﾅ確ｿｽFｿｽﾅゑｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ厄ｿｽｿｽOｿｽｿｽgｿｽｿｽｿｽｿｽ
ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽﾄび出ｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾍ、ｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽﾉ依托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
> m_AdoComm("col1") = "1" 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽ
ｿｽﾔ搾ｿｽｿｽﾅ指ｿｽ閧ｷｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽOｿｽﾅ指ｿｽ閧ｷｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽA
ｿｽ@m_AdoComm(x) = ｿｽl
ｿｽﾅはなゑｿｽｿｽA
ｿｽ@m_AdoComm(x).Value = ｿｽl
ｿｽﾌ構ｿｽｿｽｿｽ利用ｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ Parameter ｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽAField ｿｽﾌ場合ｿｽｿｽｿｽｿｽlｿｽﾅ、
ｿｽ@rs.Fields("Col1").Value = ｿｽl
ｿｽ@rs.Collect("Col1") = ｿｽl
ｿｽﾈどの構ｿｽｿｽｿｽﾍ良ゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽ@rs.Fields("Col1") = ｿｽl
ｿｽﾍ費ｿｽｿｽｿｽｿｽﾗゑｿｽｿｽﾆゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAADO ｿｽﾌ場合ｿｽｿｽ Value ｿｽｿｽYｿｽｿｽﾄゑｿｽｿｽｿｽﾍ擾ｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
Value ｿｽｿｽwｿｽ閧ｵｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽsｿｽｿｽｿｽxｿｽﾍ鯉ｿｽｿｽ繧ｵｿｽﾜゑｿｽｿｽB
(ｿｽｿｽｿｽ黷ｪ oo4o ｿｽｿｽｿｽﾆ、.Value ｿｽｿｽYｿｽｿｽﾄ誤動ｿｽすｿｽｿｽPｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾎ…)
ｿｽｿｽｿｽｿｽ 2009/06/24(ｿｽｿｽ) 23:44:02
ｿｽﾔ信ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽxｿｽｿｽﾇまゑｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆてゑｿｽﾗ具ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾚゑｿｽｿｽｿｽｿｽﾔ信ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ 2009/06/28(ｿｽｿｽ) 23:40:44
>ｿｽｿｽｿｽｿｽA? ｿｽﾌ構ｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽA
>Refresh ｿｽﾅ使ｿｽｿｽｿｽ鼾ｿｽAｿｽｿｽ{ｿｽIｿｽﾉは番搾ｿｽｿｽﾅ指ｿｽ閧ｷｿｽ驍ｩｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
>Refresh ｿｽｿｽgｿｽずｿｽAParameter ｿｽｿｽｿｽｿｽOｿｽﾅ組ｿｽﾝ暦ｿｽｿｽﾄてゑｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
?ｿｽﾈ外ｿｽｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾉつゑｿｽｿｽﾄゑｿｽDBｿｽﾌ影ｿｽｿｽｿｽｿｽけゑｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽﾟでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽADOｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽAccessｿｽｿｽSQLServerｿｽﾉなゑｿｽｿｽHｿｽH
ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽｿｽﾐ介しｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで・ｿｽEｿｽB
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾂ具ｿｽｿｽｿｽSQLServer2005ｿｽﾅゑｿｽｿｽB
>ｿｽ@Dim p As ADODB.Parameter
>ｿｽ@For Each p In cmd.Parameters
>ｿｽ@ｿｽ@Debug.Print p.Name
>ｿｽ@Next
ｿｽgｿｽせｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽParam1,Param2ｿｽEｿｽEｿｽｿｽ
ｿｽoｿｽﾍゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>m_AdoComm(x).Value = ｿｽl
>ｿｽﾌ構ｿｽｿｽｿｽ利用ｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽwｿｽEｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽXｿｽﾈゑｿｽｿｽｿｽAｿｽFｿｽXｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾉコｿｽｿｽｿｽｿｽｿｽgｿｽｿｽUｿｽｿｽﾈゑｿｽｿｽｿｽﾐとつひとつの意厄ｿｽｿｽｿｽ
ｿｽかｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾉ修ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ 2009/06/28(ｿｽｿｽ) 23:41:54
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽEｿｽEｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽLｿｽﾌ疑ｿｽ竄ｪｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽADOｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽAccessｿｽｿｽSQLServerｿｽﾉなゑｿｽｿｽHｿｽH
ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽｿｽﾐ介しｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで・ｿｽEｿｽB
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾂ具ｿｽｿｽｿｽSQLServer2005ｿｽﾅゑｿｽｿｽB
