쿼리가 틀려서 에러난다면 밑에

ShowMessage(SQL.Text) 로해서 실행시 SQL문이 바로 되는지 확인해보세여~

그리고 코딩할때



with Query do begin

Close;

SQL.Text := ' SELECT 어쩌고저쩌고 '+

' FROM 여차저차 '+

' WHERE 이러쿵저러쿵 ';

ParamByName('aaa').AsString := aaa;

Open;

end;

이렇게 코딩하면,,,,더 알아보기 쉬울것 같은데여.....

(전 이게 알아보기 편헤서........^^;;)





조영진 wrote:

> printForm의소스

> ----------------------------------

> PrintName:=Name.Text;

>

>

> if jikCom.Text = '07 부장' then

> begin

> if groupBtn.Checked then

> begin

> with TBujangTotForm.Create(self) do

> try

> BujangTotForm.QuickRep1.Preview;

> finally

> free;

> end;

> BujangTotForm

> ---------------------------

> procedure TBujangTotForm.FormCreate(Sender: TObject);

>

> begin

>

> with Query1 do

> begin

> close;

> sql.Add(' select * ');

> sql.Add(' from ksbujang ');

> sql.Add(' where 직급=''07 부장'' and 성명=:sung ');

> ParamByName('sung').AsString := Printname;

> open;

> end;

>

> end;

> =======================

> printname

> 은 totalunit에변수로

> PrintName:string[12];

> 선언되었습니다.