Q&A

  • unterminated string라는 문구에 관하여...
안녕하십니까..

몇 시간동안 해메인것 같습니다..

아~~~머리야....

다름이 아니라 추가 폼을 형성하여 자료를 입력하고자 합니다.

그런데 query1.sql.add('insert into test'); 다음 문장 앞에서 커서가 멈추고

unterminated string라는 메시지가 뜹니다.. test를 인식못하여서 그런것 같은데 어떻게 해야 하나요..부탁합니다. 고수님들.....



procedure TForm2.Button1Click(Sender: TObject);

begin

with form1 do

if (edit1.Text <> '') and (edit2.text <> '') and (edit3.text <> '') then



begin

query1.Close ;

query1.sql.clear ;

query1.sql.Add(' insert into test ');

query1.sql.add(' ( DATE1 , NAME , IDEN_NO , BASIC_P ,

DUTY_P , FAM_P , CERT_P , TECH_P ,

ATTEN_P , SALE_P , BONUS , ETC , FOOD ,

TRANS , MED_P , NAT_P , DISS_P ,

EMP_P , FIRST , RESI_P , Total ) ');

query1.SQL.add(' values ');

query1.sql.add(' ( :N1, :N2, :N3, :N4, :N5, :N6,

:N7, N8, :N9, :N10,

:N11, :N12, :N13, :N14, :N15, :N16,

:N17, :N18, :N19, :N20, :N21 ) ');



query1.parambyname('N1').asstring := edit1.Text+edit2.Text;

query1.parambyname('N2').asstring := edit3.Text ;

query1.parambyname('N3').asstring := edit4.Text;

.

.

.



1  COMMENTS
  • Profile
    최용일 2001.05.22 03:24
    안녕하세요. 최용일입니다.



    말그대로 문자열이 종결이 안됐다는 말인데요...



    아래보시면 5줄로 문자열을 나누어 주셨는데... 이런식으로는 델파이가 문자열을 처리하지 못합니다... 여러줄에 걸쳐서 쓰실땐 각각의 문자열을 +로 연결해주셔야 합니다...



    query1.sql.add(' ( DATE1 , NAME , IDEN_NO , BASIC_P ,

    DUTY_P , FAM_P , CERT_P , TECH_P ,

    ATTEN_P , SALE_P , BONUS , ETC , FOOD ,

    TRANS , MED_P , NAT_P , DISS_P ,

    EMP_P , FIRST , RESI_P , Total ) ');



    ==========>

    query1.sql.add(' ( DATE1 , NAME , IDEN_NO , BASIC_P ,' +

    ' DUTY_P , FAM_P , CERT_P , TECH_P ,' +

    ' ATTEN_P , SALE_P , BONUS , ETC , FOOD ,' +

    ' TRANS , MED_P , NAT_P , DISS_P ,' +

    ' EMP_P , FIRST , RESI_P , Total ) ');



    ^^ 항상 즐코하세요...



    초보 wrote:

    > 안녕하십니까..

    > 몇 시간동안 해메인것 같습니다..

    > 아~~~머리야....

    > 다름이 아니라 추가 폼을 형성하여 자료를 입력하고자 합니다.

    > 그런데 query1.sql.add('insert into test'); 다음 문장 앞에서 커서가 멈추고

    > unterminated string라는 메시지가 뜹니다.. test를 인식못하여서 그런것 같은데 어떻게 해야 하나요..부탁합니다. 고수님들.....

    >

    > procedure TForm2.Button1Click(Sender: TObject);

    > begin

    > with form1 do

    > if (edit1.Text <> '') and (edit2.text <> '') and (edit3.text <> '') then

    >

    > begin

    > query1.Close ;

    > query1.sql.clear ;

    > query1.sql.Add(' insert into test ');

    > query1.sql.add(' ( DATE1 , NAME , IDEN_NO , BASIC_P ,

    > DUTY_P , FAM_P , CERT_P , TECH_P ,

    > ATTEN_P , SALE_P , BONUS , ETC , FOOD ,

    > TRANS , MED_P , NAT_P , DISS_P ,

    > EMP_P , FIRST , RESI_P , Total ) ');

    > query1.SQL.add(' values ');

    > query1.sql.add(' ( :N1, :N2, :N3, :N4, :N5, :N6,

    > :N7, N8, :N9, :N10,

    > :N11, :N12, :N13, :N14, :N15, :N16,

    > :N17, :N18, :N19, :N20, :N21 ) ');

    >

    > query1.parambyname('N1').asstring := edit1.Text+edit2.Text;

    > query1.parambyname('N2').asstring := edit3.Text ;

    > query1.parambyname('N3').asstring := edit4.Text;

    > .

    > .

    > .

    >