안녕하십니까..
몇 시간동안 해메인것 같습니다..
아~~~머리야....
다름이 아니라 추가 폼을 형성하여 자료를 입력하고자 합니다.
그런데 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;
.
.
.
말그대로 문자열이 종결이 안됐다는 말인데요...
아래보시면 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;
> .
> .
> .
>