insert가 안되서 글을 올림니다.
한 개의 table에서 select조건에 맞는 값중 첫 번째값만 다르게하여 insert 하려고
합니다.
procedure Tins.Button1Click(Sender: TObject);
var
gjno, bb : string;
begin
gjno := edit1.text;
bb := edit2.text;
With Query9 Do
Begin
Close;
sql.Clear;
sql.add(' INSERT INTO pilji (gojibun, gubun, sojae,myeon, gosi, gam, buga) ');
Sql.Add(' select :gojibun, gubun, sojae, ');
Sql.Add(' myeon, gosi, gam, buga ');
Sql.Add(' from pilji ');
Sql.Add(' where substring(gojibun from 1 for 13) = ''' + bb + ''' ');
ParamByName('gojibun').asstring := gjno;
ExecSql;
end;
end;
이 글을 읽고 해결방안좀 부탁 드립니다.
- 초보1 -
그리고 전 TSQL의 문법을 잘 모르는 관계로 where절의 substr문법이 낮는지는
잘 모르겠네영....
초보1 wrote:
>
> insert가 안되서 글을 올림니다.
> 한 개의 table에서 select조건에 맞는 값중 첫 번째값만 다르게하여 insert 하려고
> 합니다.
>
>
> procedure Tins.Button1Click(Sender: TObject);
> var
> gjno, bb : string;
> begin
> gjno := edit1.text;
> bb := edit2.text;
> With Query9 Do
> Begin
> Close;
> sql.Clear;
> sql.add(' INSERT INTO pilji (gojibun, gubun, sojae,myeon, gosi, gam, buga) ');
> Sql.Add(' select :gojibun, gubun, sojae, ');
> Sql.Add(' myeon, gosi, gam, buga ');
> Sql.Add(' from pilji ');
> Sql.Add(' where substring(gojibun from 1 for 13) = ''' + bb + ''' ');
> ParamByName('gojibun').asstring := gjno;
> ExecSql;
> end;
> end;
>
> 이 글을 읽고 해결방안좀 부탁 드립니다.
>
>
> - 초보1 -
>
>
>