|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
ADOｿｽﾅパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾉ空文趣ｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
KMT 2005/04/20(ｿｽｿｽ) 13:52:26
ｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽﾄ。
Delphi7EntｿｽｿｽADOｿｽｿｽgｿｽpｿｽｿｽｿｽﾄデｿｽ[ｿｽ^ｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽMS-Access2002(XP)ｿｽﾅゑｿｽｿｽB
withADOQuery1do
begin
SQL.Clear;
SQL.Add('INSERTINTOtest_table');
SQL.Add('(key,value)');
SQL.Add('VALUES');
SQL.Add('(:key,:value)');
Parameters.FindParam('key').Value:='AAA';
Parameters.FindParam('value').Value:='';ｿｽ@//ｿｽ文趣ｿｽｿｽｿｽwｿｽｿｽ
ExecSQL;
end;
ｿｽﾅデｿｽ[ｿｽ^ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
[Microsoft][ODBCMicrosoftAccessDriver]ｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ値ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽh"value"ｿｽﾍ値ｿｽvｿｽｿｽｿｽｿｽ"ｿｽｿｽｿｽｿｽｿｽｿｽ"ｿｽﾆゑｿｽｿｽｿｽNULLｿｽﾂにゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾝにパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^"value"ｿｽﾉ値ｿｽｿｽｿｽｿｽｿｽｿｽﾆ追会ｿｽｿｽoｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽANULLｿｽlｿｽﾌ追会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽNULLｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
HOta 2005/04/20(ｿｽｿｽ) 14:54:25
ｿｽpｿｽｿｽｿｽｿｽｿｽ^ｿｽ[ｿｽｿｽDataTypeｿｽｿｽwｿｽ閧ｵｿｽﾄ、
Parameters.ParamByName('value').Value:=NULL;
ｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
D7ｿｽﾌ場合ｿｽANULLｿｽｿｽVariantsｿｽﾉ有ｿｽｿｽﾜゑｿｽｿｽB
KMT 2005/04/20(ｿｽｿｽ) 18:15:53
HOtaｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽwｿｽEｿｽﾊゑｿｽ
Parameters.ParamByName('value').DataType:=ftString;
Parameters.ParamByName('value').Value:=NULL;
ｿｽﾆゑｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
withParameters.ParamByName('value')do
Attributes:=Attributes+[paNullable];
ｿｽﾆ托ｿｽｿｽｿｽｿｽｿｽNULLｿｽﾂゑｿｽtｿｽ^ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛでゑｿｽｿｽｿｽｿｽB
MS-Accessｿｽｿｽｿｽﾌ厄ｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
HOta 2005/04/20(ｿｽｿｽ) 21:47:15
key,valueｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾚの厄ｿｽｿｽOｿｽﾍ予ｿｽｿｽｿｽﾅ、
ｿｽｿｽｿｽﾌ厄ｿｽｿｽOｿｽﾉ変ゑｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
KMT 2005/04/21(ｿｽｿｽ) 10:01:03
HOtaｿｽｿｽｿｽｿｽAｿｽxｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
withParameters.ParamByName('user_id')do
begin
DataType:=ftString;
Value:='AAA';
end;
withParameters.ParamByName('user_name')do
begin
DataType:=ftString;
Value:=NULL;
end;
ｿｽｿｽLｿｽﾌ様ｿｽﾉフｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾅゑｿｽｿｽｿｽｿｽB
DataTypeｿｽｿｽwｿｽ閧ｵｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽ
ParameterｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽKｿｽﾘに抵ｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽﾍ不ｿｽｿｽｿｽSｿｽﾈ擾ｿｽが提供ゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ADOｿｽﾅはデｿｽ[ｿｽ^ｿｽｿｽNULLｿｽiｿｽ文趣ｿｽｿｽjｿｽﾍ設抵ｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Basser 2005/04/21(ｿｽｿｽ) 11:14:56
ｿｽｿｽｿｽLｿｽTｿｽCｿｽgｿｽｿｽDelphiｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽXｿｽgｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽLｿｽｿｽｿｽﾔ搾ｿｽ49956ｿｽｿｽ
SizeｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽwｿｽ閧ｷｿｽ驍ｱｿｽﾆにゑｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
http://www2.big.or.jp/‾osamu/Delphi/
HOta 2005/04/21(ｿｽｿｽ) 14:44:16
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。AccessｿｽｿｽKeyA,AAAAAｿｽﾌ２ｿｽﾂの搾ｿｽｿｽﾚゑｿｽｿｽｿｽﾂテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾌパｿｽｿｽｿｽｿｽｿｽ^ｿｽ[ｿｽﾉゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
withADOQuery2do
begin
Close;
Parameters.ParamByName('KeyA').Value:=Edit1.Text;
Parameters.ParamByName('AAAAA').DataType:=ftString;
Parameters.ParamByName('AAAAA').Value:=NULL;
ExecSQL;
end;
ｿｽｿｽｿｽｿｽﾅ厄ｿｽｿｽﾈゑｿｽｿｽoｿｽ^ｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
KMT 2005/04/21(ｿｽｿｽ) 15:40:22
BasserｿｽｿｽｿｽｿｽAHOtaｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Basserｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽXｿｽgｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽ竄ｪｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌサｿｽCｿｽgｿｽｿｽｿｽｿｽﾗゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾜでは鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB
withParameters.ParamByName('user_name')do
begin
DataType:=ftString;
Size:=255;
Value:=NULL;
end;
ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽ}ｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAHOtaｿｽｿｽｿｽｿｽﾍサｿｽCｿｽYｿｽｿｽwｿｽ閧ｵｿｽﾈゑｿｽｿｽﾄゑｿｽNULLｿｽlｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ？
ｿｽｿｽｿｽｿｽMS-Access2002(XP)ｿｽｿｽNULLｿｽlｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽﾚゑｿｽ
ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽFuser_name
ｿｽfｿｽ[ｿｽ^ｿｽ^ｿｽFｿｽeｿｽLｿｽXｿｽgｿｽ^
ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽTｿｽCｿｽYｿｽF255
ｿｽlｿｽvｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ文趣ｿｽｿｽｿｽﾌ具ｿｽｿｽﾂ：ｿｽﾍゑｿｽ
ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
HOta 2005/04/21(ｿｽｿｽ) 16:13:06
MS-Access2000ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽTｿｽCｿｽYｿｽﾍ指ｿｽ閧ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽが、ｿｽ¥ｿｽｿｽｿｽｿｽ50ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽFuser_name
ｿｽfｿｽ[ｿｽ^ｿｽ^ｿｽFｿｽeｿｽLｿｽXｿｽgｿｽ^
ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽTｿｽCｿｽYｿｽF50
ｿｽlｿｽvｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ文趣ｿｽｿｽｿｽﾌ具ｿｽｿｽﾂ：ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽHｿｽﾅゑｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ変でゑｿｽｿｽｿｽｿｽAｿｽOｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽB
KMT 2005/04/21(ｿｽｿｽ) 17:45:45
HOtaｿｽｿｽｿｽｿｽ
ｿｽ文趣ｿｽｿｽｿｽﾌ具ｿｽｿｽﾂ：ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾌ場合ｿｽA
Parameters.ParamByName('user_name').Value:=NULL;
ｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽ
Parameters.ParamByName('user_name').Value:='';
ｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ？
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽTｿｽCｿｽYｿｽwｿｽｿｽﾈゑｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
MS-Accessｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾉゑｿｽ閧ｯｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽTｿｽCｿｽYｿｽｿｽ齬･"255"ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽFｿｽXｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
