Q&A

  • 에러 메세지좀 봐주세요....
안녕하세요...

MS_SQL과 연동해서 개발중인데.... 디비에 자료 INSERT시 아래와 같은 error가 발생합니다.



Project Project_DS.EXE raised exception class EDBEngineError with message 'General SQL error.

[Microsoft][ODBC SQL Server Driver][SQL Server]문자열이나 이진데이타는 잘립니다.

[Microsoft][ODBC SQL Server Driver][SQL Server]문이 종료되었습니다.

Process stopped. Use Step or Run to continue.



소스코드는 아래에...







procedure TForm2.Button3Click(Sender: TObject);

begin

with Query1 do begin

Close;

SQL.Clear;

SQL.Add(' INSERT INTO Customers (CstmrName,CstmrP,C_No,Tlphn,Fx, ');

SQL.Add(' C_Prt_Nm,C_Prt_Tlphn,ZpCd,Sub_Adrss,C_Dscrptn,Bnk_Nm1, ');

SQL.Add(' Accnt_No1,Ds_Sl_Stff_M,Gubun,Ds_Sl_Stff_W,E_Mail, ');

SQL.Add(' Bnk_Nm2,Accnt_Nm2,Bnk_Nm3,Accnt_Nm3) ');

SQL.Add(' VALUES (:v_CstmrName,:v_CstmrP,:v_C_No,:v_Tlphn,:v_Fx, ');

SQL.Add(' :v_C_Prt_Nm,:v_C_Prt_Tlphn,:v_ZpCd,:v_Sub_Adrss,:v_C_Dscrptn,');

SQL.Add(' :v_Bnk_Nm1,:v_Accnt_Nm1,:v_Ds_Sl_Stff_M,:v_Gubun, ');

SQL.Add(' :v_Ds_Sl_Stff_W,:v_E_Mail,:v_Bnk_Nm2,:v_Accnt_Nm2, ');

SQL.Add(' :v_Bnk_Nm3,:v_Accnt_Nm3) ');

ParamByName('v_CstmrName').AsString := Edit1.text;

ParamByName('v_CstmrP').AsString := Edit2.text;

ParamByName('v_C_No').AsString := Edit3.text;

ParamByName('v_Tlphn').AsString := Edit4.text;

ParamByName('v_Fx').AsString := Edit5.text;

ParamByName('v_C_Prt_Nm').AsString := Edit6.text;

ParamByName('v_C_Prt_Tlphn').AsString := Edit7.text;

ParamByName('v_ZpCd').AsString := Edit8.text;

ParamByName('v_Sub_Adrss').AsString := Edit9.text;

ParamByName('v_C_Dscrptn').AsString := Edit10.text;

ParamByName('v_Bnk_Nm1').AsString := Edit11.text;

ParamByName('v_Accnt_Nm1').AsString := Edit12.text;

ParamByName('v_Ds_Sl_Stff_M').AsString := Edit13.text;

ParamByName('v_Gubun').AsString := ComboBox1.text;

ParamByName('v_Ds_Sl_Stff_W').AsString := Edit14.text;

ParamByName('v_E_Mail').AsString := Edit15.text;

ParamByName('v_Bnk_Nm2').AsString := Edit16.text;

ParamByName('v_Accnt_Nm2').AsString := Edit17.text;

ParamByName('v_Bnk_Nm3').AsString := Edit18.text;

ParamByName('v_Accnt_Nm3').AsString := Edit19.text;

ExEcSQL;

end;

end;



컴파일은 성공햇는데 값을 입력하려면 안되네요....

Table의 필드는 char이나 varchar이고.. 자동으로(순차적으로)1식 증가하는 필드가

잇습니다..물론 int형입니다...



리플 바랍니다....



1  COMMENTS
  • Profile
    델초보 2001.07.07 02:19
    델초보 wrote:

    > 안녕하세요...

    > MS_SQL과 연동해서 개발중인데.... 디비에 자료 INSERT시 아래와 같은 error가 발생합니다.

    >

    > Project Project_DS.EXE raised exception class EDBEngineError with message 'General SQL error.

    > [Microsoft][ODBC SQL Server Driver][SQL Server]문자열이나 이진데이타는 잘립니다.

    > [Microsoft][ODBC SQL Server Driver][SQL Server]문이 종료되었습니다.

    > Process stopped. Use Step or Run to continue.

    >

    > 소스코드는 아래에...

    >

    >

    >

    > procedure TForm2.Button3Click(Sender: TObject);

    > begin

    > with Query1 do begin

    > Close;

    > SQL.Clear;

    > SQL.Add(' INSERT INTO Customers (CstmrName,CstmrP,C_No,Tlphn,Fx, ');

    > SQL.Add(' C_Prt_Nm,C_Prt_Tlphn,ZpCd,Sub_Adrss,C_Dscrptn,Bnk_Nm1, ');

    > SQL.Add(' Accnt_No1,Ds_Sl_Stff_M,Gubun,Ds_Sl_Stff_W,E_Mail, ');

    > SQL.Add(' Bnk_Nm2,Accnt_Nm2,Bnk_Nm3,Accnt_Nm3) ');

    > SQL.Add(' VALUES (:v_CstmrName,:v_CstmrP,:v_C_No,:v_Tlphn,:v_Fx, ');

    > SQL.Add(' :v_C_Prt_Nm,:v_C_Prt_Tlphn,:v_ZpCd,:v_Sub_Adrss,:v_C_Dscrptn,');

    > SQL.Add(' :v_Bnk_Nm1,:v_Accnt_Nm1,:v_Ds_Sl_Stff_M,:v_Gubun, ');

    > SQL.Add(' :v_Ds_Sl_Stff_W,:v_E_Mail,:v_Bnk_Nm2,:v_Accnt_Nm2, ');

    > SQL.Add(' :v_Bnk_Nm3,:v_Accnt_Nm3) ');

    > ParamByName('v_CstmrName').AsString := Edit1.text;

    > ParamByName('v_CstmrP').AsString := Edit2.text;

    > ParamByName('v_C_No').AsString := Edit3.text;

    > ParamByName('v_Tlphn').AsString := Edit4.text;

    > ParamByName('v_Fx').AsString := Edit5.text;

    > ParamByName('v_C_Prt_Nm').AsString := Edit6.text;

    > ParamByName('v_C_Prt_Tlphn').AsString := Edit7.text;

    > ParamByName('v_ZpCd').AsString := Edit8.text;

    > ParamByName('v_Sub_Adrss').AsString := Edit9.text;

    > ParamByName('v_C_Dscrptn').AsString := Edit10.text;

    > ParamByName('v_Bnk_Nm1').AsString := Edit11.text;

    > ParamByName('v_Accnt_Nm1').AsString := Edit12.text;

    > ParamByName('v_Ds_Sl_Stff_M').AsString := Edit13.text;

    > ParamByName('v_Gubun').AsString := ComboBox1.text;

    > ParamByName('v_Ds_Sl_Stff_W').AsString := Edit14.text;

    > ParamByName('v_E_Mail').AsString := Edit15.text;

    > ParamByName('v_Bnk_Nm2').AsString := Edit16.text;

    > ParamByName('v_Accnt_Nm2').AsString := Edit17.text;

    > ParamByName('v_Bnk_Nm3').AsString := Edit18.text;

    > ParamByName('v_Accnt_Nm3').AsString := Edit19.text;

    > ExEcSQL;

    > end;

    > end;

    >

    > 컴파일은 성공햇는데 값을 입력하려면 안되네요....

    > Table의 필드는 char이나 varchar이고.. 자동으로(순차적으로)1식 증가하는 필드가

    > 잇습니다..물론 int형입니다...

    >

    > 리플 바랍니다....

    >