Q&A

  • DataBase 입력문제..(고수님들의 의견부탁)
SQL의 Insert Into로해서 데이터를 입력했는데요 이것은 하나의 레코드 이상은 되질 않는것 같은데요..문제가 뭐지요 이론...



sSql := 'Insert into Hull (Code,Para_Name,Hull_Value1,Hull_Value2) '+

' Values ('+

Format('''%s''', [HullCode])+

Format(',''%s''',[HullType])+

Format(',''%s''',[Trim(Ship_Edit.Text)])+

Format(',''%s''',[HullVar2])+

' )';

sSql2 := 'Insert into Hull (Code,Para_Name,Hull_Value1,Hull_Value2) '+

' Values ('+

Format('''%s''', [HullCode2])+

Format(',''%s''',[HullName])+

Format(',''%s''',[Trim(Ship_Edit.Text)])+

Format(',''%s''',[HullVar2])+

' )';

try

Qr_Hull.SQL.Text:=sSql;

Qr_Hull.SQL.Text:=sSql;

Qr_Hull.ExecSQL;



위와 같이도 해봤고 ADD(sSql)도 해봤거든요 그런데 ADD문은 Error가 뜨고 위의 방법은 에러는 뜨질 않는데 데이터가 하나밖에 안들어가네요 님들의 고귀한 의견좀 부탁



1  COMMENTS
  • Profile
    지나가다가.. 2001.11.16 09:41
    음 아래의 소스만으론 밑에 SQL 구문 넣는 곳을 제외하면

    (Qr_Hull.SQL.Text:=sSql; Qr_Hull.SQL.Text:=sSql;) 이부분을 제외하면 앞에 어떤



    코딩이 되어 있는지 혹은 아래 어떤 코딩이 되어 있는지 알수가 없으므로 어디서 에러가 나는 지는 잘 모르겠습니다. 다만 다음과 같이 코딩을 한번해 보시죠...



    전 주로 이 방식으로 코딩을 합니다만... ADOQuery를 예로 사용했습니다.



    with ADOQuery1 do begin

    Close;

    with SQL do begin

    Clear;

    Add('INSERT INTO HULL(Code, Para_Name, Hull_Value1, Hull_Value2) ');

    Add(' VALUES(:pCODE, :pPARA_NAME, :pHULL_VALUE1, :pHULL_VALUE2) ');



    Parameters.ParamByName('pCODE').Value := HullCode;

    Parameters.ParamByName('pPARA_NAME').Value := HullType;

    Parameters.ParamByName('pHULL_VALUE1').Value := Trim(Ship_Edit.Text);

    Parameters.ParamByName('pHULL_VALUE1').Value := HullVar2;



    end;

    ExecSQL;

    end;



    SQL구문을 두개를 돌릴 수도 있지만 별로 추천하고 싶지는 안군여...



    우나기 wrote:

    > SQL의 Insert Into로해서 데이터를 입력했는데요 이것은 하나의 레코드 이상은 되질 않는것 같은데요..문제가 뭐지요 이론...

    >

    > sSql := 'Insert into Hull (Code,Para_Name,Hull_Value1,Hull_Value2) '+

    > ' Values ('+

    > Format('''%s''', [HullCode])+

    > Format(',''%s''',[HullType])+

    > Format(',''%s''',[Trim(Ship_Edit.Text)])+

    > Format(',''%s''',[HullVar2])+

    > ' )';

    > sSql2 := 'Insert into Hull (Code,Para_Name,Hull_Value1,Hull_Value2) '+

    > ' Values ('+

    > Format('''%s''', [HullCode2])+

    > Format(',''%s''',[HullName])+

    > Format(',''%s''',[Trim(Ship_Edit.Text)])+

    > Format(',''%s''',[HullVar2])+

    > ' )';

    > try

    > Qr_Hull.SQL.Text:=sSql;

    > Qr_Hull.SQL.Text:=sSql;

    > Qr_Hull.ExecSQL;

    >

    > 위와 같이도 해봤고 ADD(sSql)도 해봤거든요 그런데 ADD문은 Error가 뜨고 위의 방법은 에러는 뜨질 않는데 데이터가 하나밖에 안들어가네요 님들의 고귀한 의견좀 부탁

    >