Q&A

  • DB에서 읽은 스트링값에서 따옴표 제거
DB에서 읽은 스트링값에서 따옴표를 제거하는 방법을 알고 싶습니다.

백업을 하려고 백업대상 테이블을 읽어서 While 루프를 돌리는데 문제가 생기네요.

예를들어 Select * From 'Table1' Where.... 이런식으로 되어버립니다.

고수님들의 조언 기다립니다.

다음은 소스입니다.

==================================================================================

while qry1.Eof = False do

begin

with qry2 do

begin

Close;

Sql.Clear;

Sql.Add('Delete From :tbl_cod Where Left(Writeday,10) Between :fr_date And :to_date');

ParamByName('tbl_cod').AsString := qry1.FieldByName('Tablecod').AsString;

ParamByName('fr_date').AsString := fr_date.Text;

ParamByName('to_date').AsString := to_date.Text;

Prepare;

ExecSQL;

end;



with qry3 do

begin

Close;

Sql.Clear;

Sql.Add('Select * From :tbl_cod Where Left(writeday,10) Between :fr_date And :to_date');

ParamByName('tbl_cod').AsString := qry1.FieldByName('Tablecod').AsString;

ParamByName('fr_date').AsString := fr_date.Text;

ParamByName('to_date').AsString := to_date.Text;

Prepare;

Open;

end;

tbl1.TableName := qry1.FieldByName('Tablecod').AsString;

bm1.Execute;

qry1.Next;

end;

1  COMMENTS
  • Profile
    바보감자 2001.03.14 04:04
    김용석 wrote:

    > DB에서 읽은 스트링값에서 따옴표를 제거하는 방법을 알고 싶습니다.

    > 백업을 하려고 백업대상 테이블을 읽어서 While 루프를 돌리는데 문제가 생기네요.

    > 예를들어 Select * From 'Table1' Where.... 이런식으로 되어버립니다.

    > 고수님들의 조언 기다립니다.

    > 다음은 소스입니다.

    > ==================================================================================

    > while qry1.Eof = False do

    > begin

    > with qry2 do

    > begin

    > Close;

    > Sql.Clear;

    > Sql.Add('Delete From :tbl_cod Where Left(Writeday,10) Between :fr_date And :to_date');

    > ParamByName('tbl_cod').AsString := qry1.FieldByName('Tablecod').AsString;

    > ParamByName('fr_date').AsString := fr_date.Text;

    > ParamByName('to_date').AsString := to_date.Text;

    > Prepare;

    > ExecSQL;

    > end;

    >

    > with qry3 do

    > begin

    > Close;

    > Sql.Clear;

    > Sql.Add('Select * From :tbl_cod Where Left(writeday,10) Between :fr_date And :to_date');

    > ParamByName('tbl_cod').AsString := qry1.FieldByName('Tablecod').AsString;

    > ParamByName('fr_date').AsString := fr_date.Text;

    > ParamByName('to_date').AsString := to_date.Text;

    > Prepare;

    > Open;

    > end;

    > tbl1.TableName := qry1.FieldByName('Tablecod').AsString;

    > bm1.Execute;

    > qry1.Next;

    > end;



    ^^ 안녕하세여 허접 바보감자입니다..

    오랜만에 답변 해보네여...(아는게 없어서 ^^ ㅋㅋㅋ)

    이것도 잘 아는것은 아니지만....

    소스를 올려드리면 님이 참 편하시겠지만...

    ^^ 그래도 일단 어떠케 하시는 것이 좋은지 말씀 드릴께요

    제가 예문을 보니까.. 일단..따옴표가.. 양쪽 끝에만 붙어있나보내요.?

    그럴경우 무지 쉽죠. ^^..

    copy 써보시겠어여.?

    랭스를 쓰셔서 일단 자리수를 읽은후에.. 거기서 앞에다가는 +1 뒤에다가는 -1 해서

    카피 명령어 쓰시면 조