긴급 wrote:

> 너무 초보적인 질문이라서 부끄럽지만 질문할께요.

> sql문으로 데이터 삽입하려면 어떻게 코딩해야 되죠?

>

> sql.add('insert into 데이블명(필드명, 필드명)');

> sql.add('values (데이터, 데이터)');

> 이렇게 하는것이 맞나요?

> 그리고 데이터를 넣을때 edit1.text에 있는 내용을 삽입하고,

> 변수에 있는 내용을 삽입할 때의 소스도 알려주세요.

> 급하니까 지금 당장 답변해 주시면 고맙겠습니다.



아래 예제는 두개의 에디트, 하나의 메모, 하나의 이미지컴포넌트로 되어있다.

Query를 이용해서 에디트의 내용, 메모의 내용, 그리고 그림을 DB에 저장하는 방법을 보여주고 있다.

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

if OpenP.Execute then

Image1.Picture.LoadFromFile(OpenP.Filename);

end;



procedure TForm1.BitBtn1Click(Sender: TObject);

begin

with Query1 do begin

Close;

SQL.Clear;

SQL.Add('INSERT INTO EXAM1 ');

SQL.Add('(Name, Alias, Memo, Photo) ');

SQL.Add('VALUES ');

SQL.Add('(:p1, :p2, :p3, :p4)');

ParamByName('p1').AsString := Edit1.Text;

ParamByName('p2').AsString := Edit2.Text;

ParamByName('p3').Assign(Memo1.Lines); // 메모내용 저장

ParamByName('p4').LoadFromFile(Openp.FileName,ftGraphic); // 이미지 저장

ExecSQL;

end;

end;

긴급 wrote:

> 너무 초보적인 질문이라서 부끄럽지만 질문할께요.

> sql문으로 데이터 삽입하려면 어떻게 코딩해야 되죠?

>

> sql.add('insert into 데이블명(필드명, 필드명)');

> sql.add('values (데이터, 데이터)');

> 이렇게 하는것이 맞나요?

> 그리고 데이터를 넣을때 edit1.text에 있는 내용을 삽입하고,

> 변수에 있는 내용을 삽입할 때의 소스도 알려주세요.

> 급하니까 지금 당장 답변해 주시면 고맙겠습니다.



말씀하신게 맞습니다.

근데 전 sql.add 모단 그냥 string에 넣어서 sql로 옮기는게 훨 보기가 편하던데요.

이런 식으로요.

strSQL := 'insert into Table1 (field1, field2)'

+ ' values (1, ''2'')';

query1.sql.clear;

query1.sql.text := strSQL;

query1.execsql;



흠.. 그리구요.. 에디터나 변수에 있는 내용 삽입은

strSQL := 'insert into Table1 (field1, field2)'

+ ' values (' + edit1.Text + ', ' + QuotedStr(str1) + ')';



이런식으로 하시면 됩니다. 예에서 field1은 숫자, field2는 스트링으로 가정하였습니다.