안녕하세요...
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형입니다...
리플 바랍니다....
> 안녕하세요...
> 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형입니다...
>
> 리플 바랍니다....
>