|
ｿｽ@ｿｽｿｽUpDateSQLｿｽﾉパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽnｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽｿｽｿｽｿｽｿｽ 2008/01/22(ｿｽｿｽ) 23:03:30
ｿｽｿｽｿｽﾜでは、QueryｿｽｿｽIBQueryｿｽｿｽInsertｿｽｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽﾄ、QueryｿｽｿｽｿｽﾌゑｿｽParamByNameｿｽﾅ変撰ｿｽｿｽｿｽnｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽsｿｽｿｽｿｽﾉゑｿｽｿｽUpDateSQLｿｽAIBUpDateSQLｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆにゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
UpDateSQLｿｽｿｽﾌ各SQLｿｽｿｽｿｽﾉ変撰ｿｽｿｽｿｽnｿｽｿｽｿｽﾉは、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
//Insert Into COMPANY (KEYCODE,COMNAME) Values(:KEYCODE,:COMNAME)
IBQuery.Add('SELECT * FROM COMPANY');
IBQuery.Open;
for cnt := 1 to EndCnt do
begin
//ｿｽｿｽｿｽｿｽｿｽﾅ繰ｿｽｿｽﾔゑｿｽｿｽﾅｿｽｿｽRｿｽ[ｿｽhｿｽｿｽﾇ会ｿｽ(orｿｽﾒ集)ｿｽ続ゑｿｽｿｽｿｽﾂゑｿｽｿｽ
IBUpDateSQL.Apply(ukInsert);
end;
IBQuery.Close;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、 2008/01/23(ｿｽｿｽ) 09:57:34
ｿｽSｿｽｿｽｿｽﾊのシｿｽXｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ...(ｿｽsｿｽｿｽ)
begin
with IBUpdateSQL1 do
begin
InsertSQL.Clear;
InsertSQL.Add( 'insert into Table_Name ');
InsertSQL.Add( '(ju_tokui, ju_chuno) ');
InsertSQL.Add( 'values ');
InsertSQL.Add( '(:ju_tokui, :ju_chuno) ');
ParamByName('ju_tokui').AsString := LEd_tokui.Text;
ParamByName('ju_chuno').AsString := LEd_chuno.Text;
end;
end;
ｿｽｿｽｿｽｿｽｿｽ 2008/01/23(ｿｽｿｽ) 10:49:45
UpDateSQLｿｽｿｽParamByNameｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。
Queryｿｽｿｽｿｽﾉパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽnｿｽｿｽｿｽﾆパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾆなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
igy 2008/01/23(ｿｽｿｽ) 11:13:51
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽﾌようｿｽﾈ包ｿｽｿｽ@ｿｽﾅはゑｿｽｿｽﾟでゑｿｽｿｽｿｽｿｽH
IBUpDateSQL.Query[ukInsert].ParamByName('xxxxx').AsString := zzzzz;
GT-BASS 2008/01/23(ｿｽｿｽ) 16:28:05
Params.ByName('###').AsString
ｿｽﾅ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか？
IBUpdateSQLｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは有ｿｽｿｽﾜゑｿｽｿｽが、IBDataSetｿｽﾅはゑｿｽｿｽﾌ様ｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ 2008/01/23(ｿｽｿｽ) 22:18:47
ｿｽFｿｽlｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
igyｿｽｿｽｿｽから頂ｿｽｿｽｿｽｿｽｿｽｿｽが欲ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜで、ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾏなゑｿｽｿｽﾅ、ｿｽXｿｽVｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
IBQuery.Add('SELECT * FROM COMPANY');
IBQuery.Open;
for cnt := 1 to EndCnt do
if Locate('KEYCODE',grid.Cells[0,cnt],) then
begin
IBUpDateSQL.Query[ukModify].ParamByName('KEYCODE').AsString := grid.Cells[0,cnt];
IBUpDateSQL.Query[ukModify].ParamByName('COMNAME').AsString := grid.Cells[1,cnt];
IBUpDateSQL.Apply(ukModify);
end else begin
IBUpDateSQL.Query[ukInsert].ParamByName('KEYCODE').AsString := grid.Cells[0,cnt];
IBUpDateSQL.Query[ukInsert].ParamByName('COMNAME').AsString := grid.Cells[1,cnt];
IBUpDateSQL.Apply(ukInsert);
end;
end;
IBQuery.Close;
