procedure TBK0011Frm.DB_Input;

begin

with BK0011Frm do

begin

ADOQuery1.ParamByName('N1').AsString := DateTimePicker1.date;

ADOQuery1.ParamByName('N2').AsString := t_edit1.text;

ADOQuery1.ParamByName('N3').AsString := t_edit2.text;

ADOQuery1.ParamByName('N4').AsString := t_edit3.text;

ADOQuery1.ParamByName('N5').AsString := t_edit4.text;

ADOQuery1.ParamByName('N6').AsString := t_edit5.text;

ADOQuery1.ParamByName('N7').AsString := t_edit6.text;

ADOQuery1.ParamByName('N8').AsString := t_edit7.text;



end;

end;

procedure TBK0011Frm.SQL_Insert;

begin

try

with BK0011Frm do

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('insert into goods_input ');

ADOQuery1.SQL.Add('(date,a_num,b_num,c_num,d_num,e_num,g_num,h_num) ');

ADOQuery1.SQL.Add('values ');

ADOQuery1.SQL.Add(' ( :N1,');

ADOQuery1.SQL.Add(' :N2, ');

ADOQuery1.SQL.Add(' :N3, ');

ADOQuery1.SQL.Add(' :N4, ');

ADOQuery1.SQL.Add(' :N5, ');

ADOQuery1.SQL.Add(' :N6, ');

ADOQuery1.SQL.Add(' :N7, ');

ADOQuery1.SQL.Add(' :N8 ) ');

DB_Input;

ADOQuery1.ExecSQL;

ShowMessage('저장 되었습니다');

end;

except

begin

Application.MessageBox('저장을 실패 하였습니다.',

'저장실패', MB_OK);

end;

end;

end;

procedure TBK0011Frm.TinsertClick(Sender: TObject);

begin

if t_edit1.text = '' then

begin

showmessage('입력하세요');

t_edit1.SetFocus;

end

else if t_edit2.text = '' then

begin

showmessage('입력하세요');

t_edit2.SetFocus;

end

else if t_edit3.text = '' then

begin

showmessage('입력하세요');

t_edit3.SetFocus;

end

else if t_edit4.text = '' then

begin

showmessage('입력하세요');

t_edit4.SetFocus;

end

else if t_edit5.text = '' then

begin

showmessage('입력하세요');

t_edit5.SetFocus;

end

else if t_edit6.text = '' then

begin

showmessage('입력하세요');

t_edit6.SetFocus;

end

else if t_edit7.text = '' then

begin

showmessage('입력하세요');

t_edit7.SetFocus;

end

else

begin

Tcancel.Enabled :=true;

Tinsert.Enabled :=true;

Tdelete.Enabled :=true;

Tcorrect.Enabled :=true;

SQL_Insert;

BK0011Frm.db_display;

end;

end;





소스인데요

DB_insert;에서 ParamByName에서 선언이 안되었다고 나오는데 이유를모르겠습니다.



db는 엑세를 씁니다.

oracle를 쓸때 소스를 그대로 스는건데 안되는 이유를모르겟습니다

엑세스의 SQL도 똑같은 걸로 아는데 혹시 틀리나요?

아시는분 리플 부탁드립니다