왜 에러가 뜨는지 모르겟어요...갈켜죠요..

db 에는 문제가 없구요..

다른건 다잘되는데....



procedure Thakjf.Button1Click(Sender: TObject);

begin

q1.close;

q1.sql.clear;

q1.sql.add(' insert into mit ');

q1.sql.add(' ( hakbun, kname, hname, ename, grade, juya, hakgwa, sex, bjpost, bjjuso1, bjjuso2, hspost, hsjuso1, hsjuso2, gspost, gsjuso1, gsjuso2, hstelno, taste, special, email, hsbbno, chulname, chuljol, bhname, bhjob, bhgwan, bhtelno ) ');

q1.sql.add(' values (:hakbun, :kname, :hname, :ename, :grade, :juya, :hakgwa, :sex, :bjpost, :bjjuso1, :bjjuso2, :hspost, :hsjuso1, :hsjuso2, :gspost, :gsjuso1, :gsjuso2, :hstelno, :taste, :special, :email, :hsbbno, :chulname, :chuljol, :bhname, :bhjob, :bhgwan, :bhtelno ) ');

//학번

q1.parambyname('hakbun').asstring := ehakbun.text;

//성명(한글,한자,영문)

q1.parambyname('kname').asstring := ekname.text;

q1.parambyname('hname').asstring := ehname.text;

q1.parambyname('ename').asstring := eename.text;

//학년,주야,학과,성별

q1.ParamByName('grade').asstring := egrade.items[egrade.itemindex];

q1.ParamByName('juya').asstring := ejuya.items[ejuya.itemindex];

q1.ParamByName('hakgwa').asstring := ehakgwa.text;

q1.ParamByName('sex').asstring := esex.items[esex.itemindex];



//juminno



//전화 번호,이동 전화

q1.parambyname('hstelno').asstring := ehstelno1.text + ehstelno2.text + ehstelno3.text;

q1.parambyname('hsbbno').asstring := ehsbbno1.text + ehsbbno2.text + ehsbbno3.text;

//본적

q1.parambyname('bjpost').asstring := ebjpost.Text;

q1.parambyname('bjjuso1').asstring := ebjjuso1.text;

q1.parambyname('bjjuso2').asstring := ebjjuso2.text;

//주소

q1.parambyname('hspost').asstring := ehspost.text;

q1.parambyname('hsjuso1').asstring := ehsjuso1.text;

q1.parambyname('hsjuso2').asstring := ehsjuso2.text;

//현주소

q1.parambyname('gspost').asstring := egspost.text;

q1.parambyname('gsjuso1').asstring := egsjuso1.text;

q1.parambyname('gsjuso2').asstring := egsjuso2.text;

//출신학교

q1.parambyname('chulname').asstring := echulname.text;

q1.parambyname('chuljol').asstring := echuljol1.text + echuljol2.text + echuljol3.text;

//취미,특기,이메일

q1.parambyname('taste').asstring := etaste.text;

q1.parambyname('special').asstring := especial.text;

q1.parambyname('email').asstring := eemail.text;

//보호자

q1.parambyname('bhname').asstring := ebhname.text;

q1.parambyname('bhgwan').asstring := ebhgwan.text;

q1.parambyname('bhjob').asstring := ebhjob.text;

q1.parambyname('bhtelno').asstring := ebhtelno.text;



q1.execsql;

showmessage('저장 완료.');

close;



end;



[Error] jungU2.pas(116): String literals may have at most 255 elements

[Fatal Error] jungP1.dpr(6): Could not compile used unit 'jungU2.pas'





db쪽에서..회원관리 프로그램인데요..

지금은 단순하게...하는데요..왜안되지요..

시간이 없는데...안되네요..갈켜주세요..