jungs wrote:

>

>

> if messagedlg('삭제 할까요 ?',mtconfirmation,[mbYes,mbNo],0) = mrNo then exit;

>

> delq1.c1ose;

> delq1.sql.clear;

> delq1.sql.add(' delete from mit ');

> delq1.sql.add(' where hakbun = "'+hakbun1.text+'" ');

> // q1.sql.add(' and xx = "'+xx.text+'" ');

> delq1.execsql;

>

> q1.close;

> q1.open;

>

>

> 이건 제가 소스를 따온건데요..

> 왜안되지요??

>





이렇게 하셔도 됩니다..



if messagedlg('삭제 할까요 ?',mtconfirmation,[mbYes,mbNo],0) = mrNo then exit;



delq1.c1ose;

delq1.sql.clear;

delq1.sql.add(' delete from mit ');

delq1.sql.add(' where hakbun = "'+hakbun1.text+'" ');

// q1.sql.add(' and xx = "'+xx.text+'" ');

delq1.execsql;

q1.close;

q1.open;





----------------------------------

With delq1 do

Begin

Close;

Sql.Clear;

Sql.Add(' Delete From Mit ');

Sql.Add(' Where hakbun = :Hak ');

Sql.Add(' And xx = :xx ');

ParamByName('Hak').AsString := hakbun1.text;

ParamByName('xx').AsString := xx.text;

ExecSql;

Close;

Open;

end;



이렇게 하시면 나중에 소스 보시기가 편하시죠...

그럼 즐프 하세요...

jungs wrote:

>

>

> if messagedlg('삭제 할까요 ?',mtconfirmation,[mbYes,mbNo],0) = mrNo then exit;

>

> delq1.c1ose;

> delq1.sql.clear;

> delq1.sql.add(' delete from mit ');

> delq1.sql.add(' where hakbun = "'+hakbun1.text+'" ');

> // q1.sql.add(' and xx = "'+xx.text+'" ');

> delq1.execsql;

>

> q1.close;

> q1.open;

>

>

> 이건 제가 소스를 따온건데요..

> 왜안되지요??

>



코드를 보고 직접입력하신것 같은데



아래 두문장에서 이중인용부호(")를 단일인용부호(')두개로 바꾸세요.



delq1.sql.add(' where hakbun = "'+hakbun1.text+'" ');

// q1.sql.add(' and xx = "'+xx.text+'" ');



====>

delq1.sql.add(' where hakbun = '''+hakbun1.text+''' ');

// q1.sql.add(' and xx = '''+xx.text+''' ');



그럼 즐코하세요