|
ｿｽｿｽVBｿｽfｿｽｿｽｿｽｿｽ(VB2-VB6)
|
ADOｿｽｿｽdBASEｿｽfｿｽ[ｿｽ^ｿｽﾉアｿｽNｿｽZｿｽXｿｽｿｽｿｽｿｽﾉゑｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽﾒよきｿｽｿｽ 2003/03/03(ｿｽｿｽ) 15:09:13
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ。
VBｿｽｿｽSQLServerｿｽｿｽdBASEｿｽﾌデｿｽ[ｿｽ^ｿｽi*.dbfｿｽjｿｽｿｽADOｿｽﾅ使ｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAPCｿｽﾉゑｿｽｿｽｿｽﾄエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾍ、
ｿｽ@[ｿｽRｿｽlｿｽNｿｽVｿｽｿｽｿｽｿｽ].Open"Driver={MicrosoftdBASEDriver(*.dbf)};DriverID=277;Dbq=[dbfｿｽﾌフｿｽHｿｽｿｽｿｽ_];"
ｿｽ@[ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽZｿｽbｿｽg].Open[SQL],[ｿｽRｿｽlｿｽNｿｽVｿｽｿｽｿｽｿｽ].ConnectionString,adOpenKeyset,adLockReadOnly
ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽZｿｽbｿｽgｿｽｿｽOpenｿｽﾅ「ODBCｿｽhｿｽｿｽｿｽCｿｽoｿｽﾍ要ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽvｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽuadOpenKeyset,adLockReadOnlyｿｽvｿｽｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽuｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾍ、ｿｽ}ｿｽVｿｽｿｽ'(ｿｽｿｽｿｽｿｽ`)'ｿｽﾌｿｽｿｽ[ｿｽUｿｽ['(ｿｽｿｽｿｽｿｽ`)'ｿｽﾉゑｿｽｿｽｿｽﾄ使ｿｽpｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽbｿｽNｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽvｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ、ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊのシｿｽXｿｽeｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽdbfｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟと思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅゑｿｽﾇ趣ｿｽｿｽpｿｽｿｽOpenｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾉゑｿｽﾖゑｿｽ轤ｸｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾂ具ｿｽｿｽﾌ搾ｿｽｿｽﾆゑｿｽｿｽﾄは、
ｿｽyｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽz
ｿｽ@ｿｽ@Win2000SP3ｿｽ{Office2000SP1ｿｽ{SQLServer7SP4ｿｽiｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽj
ｿｽyｿｽｿｽｿｽ動ｿｽｿｽz
ｿｽ@ｿｽ@Win2000SP3ｿｽ{Office2000SP1ｿｽ{SQLServer7ｿｽiｿｽｿｽｿｽﾌ托ｿｽｿｽAｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽj
ｿｽ@ｿｽ@WIn2000SP3ｿｽ{Office2000SP1ｿｽ{SQLServer2000SP3ｿｽiｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽj
ｿｽﾅゑｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽEｿｽGｿｽｿｽｿｽ[ｿｽﾌ会ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽﾋゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2003/03/05(ｿｽｿｽ) 16:15:37
ｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾅは状況ゑｿｽｿｽﾍめなゑｿｽｿｽﾌで適ｿｽﾘな回答ゑｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽ`ｿｽcｿｽnｿｽｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
http://www.takonet.co.jp/‾pegasus/samples/AdoOperation.lzh
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2003/03/05(ｿｽｿｽ) 16:24:09
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽ[ｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰､ｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅ新ｿｽﾌマｿｽVｿｽｿｽｿｽﾂ具ｿｽｿｽﾅは新ｿｽｿｽｿｽｿｽｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、
ｿｽｿｽｿｽﾌｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽ他のマｿｽVｿｽｿｽｿｽﾅゑｿｽTｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽQｿｽﾆ設抵ｿｽﾌ「MicrosoftActiveXDataObjectsｿｽvｿｽﾌ２ｿｽDｿｽOｿｽｿｽIｿｽｿｽｿｽｿｽﾄみてはゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2003/03/05(ｿｽｿｽ) 16:28:05
ｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｲｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽLｿｽﾌ「ｿｽﾅ新ｿｽﾌマｿｽVｿｽｿｽｿｽEｿｽEｿｽEｿｽvｿｽﾍ「ｿｽJｿｽｿｽｿｽpｿｽﾌマｿｽVｿｽｿｽｿｽEｿｽEｿｽEｿｽvｿｽﾌ鯉ｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2003/03/05(ｿｽｿｽ) 17:50:36
ｿｽuｿｽQｿｽﾆ設抵ｿｽvｿｽｿｽgｿｽpｿｽｿｽｿｽﾈゑｿｽｿｽ`ｿｽcｿｽnｿｽｿｽｿｽｿｽﾉ変更ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで、ｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾒよきｿｽｿｽ 2003/03/06(ｿｽｿｽ) 13:15:33
ｿｽFｿｽXｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌは、ｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽVｿｽXｿｽeｿｽｿｽｿｽ他ゑｿｽPCｿｽﾉセｿｽbｿｽgｿｽAｿｽbｿｽvｿｽｿｽｿｽｿｽﾛに、ｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽﾅ使ｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽﾜめてコｿｽsｿｽ[ｿｽEｿｽｿｽｿｽWｿｽXｿｽgｿｽｿｽｿｽoｿｽ^ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾌ搾ｿｽｿｽﾍなゑｿｽｿｽﾍゑｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽc
ｿｽｿｽｿｽ黷ｩｿｽｿｽAｿｽﾅ鯉ｿｽﾉ変更ｿｽｿｽｿｽ黷ｽｿｽﾌは擾ｿｽｿｽLZHｿｽﾅゑｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽeｿｽXｿｽgｿｽﾂ具ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで難しｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽｿｽｿｽﾊゑｿｽ告ゑｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2003/03/06(ｿｽｿｽ) 13:50:18
ｿｽRｿｽsｿｽ[ｿｽEｿｽｿｽｿｽWｿｽXｿｽgｿｽｿｽｿｽoｿｽ^ｿｽﾌ趣ｿｽｿｽﾉＯｿｽcｿｽaｿｽbｿｽhｿｽｿｽｿｽCｿｽoｿｽ[ｿｽｿｽ齒擾ｿｽﾉゑｿｽｿｽﾄまゑｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽAｿｽeｿｽｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽpｿｽhｿｽｿｽｿｽCｿｽoｿｽ[ｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽRｿｽsｿｽ[ｿｽEｿｽｿｽｿｽWｿｽXｿｽgｿｽｿｽｿｽoｿｽ^ｿｽﾅ托ｿｽｿｽvｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾍ、MDACｿｽｿｽgｿｽｿｽｿｽﾄ托ｿｽｿｽﾌＰｿｽbｿｽﾆ難ｿｽｿｽｿｽﾂ具ｿｽｿｽ同ゑｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
MDACｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽ`ｿｽcｿｽnｿｽｿｽcｿｽ`ｿｽnｿｽAｿｽnｿｽcｿｽaｿｽbｿｽhｿｽｿｽｿｽCｿｽoｿｽｿｽｿｽAｿｽｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾌで・ｿｽEｿｽE
ｿｽﾚゑｿｽｿｽｿｽｿｽﾍ、http://www.microsoft.com/japan/msdn/data/download.asp
ｿｽﾉ載ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽmｿｽFｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAMDACｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽ調べゑｿｽcｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾌサｿｽCｿｽgｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾒよきｿｽｿｽ 2003/03/17(ｿｽｿｽ) 19:55:21
ｿｽhｿｽｿｽｿｽCｿｽoｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽADBｿｽﾚ托ｿｽｿｽｿｽｿｽ@ｿｽｿｽAｿｽﾅ擾ｿｽｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ抵ｿｽｿｽﾚパｿｽXｿｽwｿｽ閧ｷｿｽｿｽﾌではなゑｿｽｿｽAODBCｿｽfｿｽ[ｿｽ^ｿｽ¥ｿｽ[ｿｽXｿｽｿｽ成ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽﾄ使ｿｽpｿｽｿｽｿｽﾄゑｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾂゑｿｽｿｽﾝ擾ｿｽｿｽﾌ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ考ｿｽｿｽｿｽｿｽｿｽ骭ｴｿｽｿｽｿｽEｿｽﾎ擾ｿｽｿｽ@ｿｽが尽ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ確ｿｽFｿｽｿｽｿｽﾗゑｿｽｿｽ_ｿｽﾈどゑｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2003/03/18(ｿｽｿｽ) 01:16:55
dBASEｿｽﾍ厄ｿｽｿｽoｿｽｿｽｿｽﾈので、ｿｽ答にはなゑｿｽﾈゑｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽが…ｿｽBm(__)m
ｿｽﾜゑｿｽｿｽAMDAC2.1ｿｽﾈ擾ｿｽﾅは、dBASEｿｽﾌ更ｿｽVｿｽﾌゑｿｽｿｽﾟゑｿｽBDE(BorlandDatabaseEngine)ｿｽｿｽ
ｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍイｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽﾜゑｿｽｿｽAｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽQｿｽﾆ読み搾ｿｽｿｽﾝ撰ｿｽpｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽﾆなゑｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽ@SetRecordset=Connection.Execute(SQL)
ｿｽﾌ構ｿｽｿｽｿｽｿｽｿｽﾆどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
>ｿｽ@[ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽZｿｽbｿｽg].Open[SQL],[ｿｽRｿｽlｿｽNｿｽVｿｽｿｽｿｽｿｽ].ConnectionString,adOpenKeyset,adLockReadOnly
CursorLocation2ｿｽｿｽ,CursorType4ｿｽｿｽ,LockType4ｿｽｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽAｿｽv32ｿｽｿｽｿｽ
ｿｽgｿｽﾝ搾ｿｽｿｽせｿｽｿｽAｿｽｿｽｿｽﾗて趣ｿｽｿｽｿｽｿｽﾄみてはゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
OLEDBProvider(ｿｽｿｽｿｽ驍｢ｿｽﾍゑｿｽｿｽｿｽｿｽODBCｿｽﾌ組ｿｽﾝ搾ｿｽｿｽせ)ｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽｿｽｿｽ黷ｼｿｽｿｽA
ｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽﾌ組ｿｽﾝ搾ｿｽｿｽせｿｽｿｽｿｽﾙなゑｿｽﾜゑｿｽｿｽBｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽ
ｿｽgｿｽﾝ搾ｿｽｿｽせｿｽｿｽIｿｽだ場合ｿｽAｿｽKｿｽﾘなカｿｽ[ｿｽ¥ｿｽｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽIｿｽﾉ変更ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽｿｽｿｽｿｽｿｽﾎ、
ｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽvｿｽｿｽｿｽoｿｽCｿｽ_ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで。
