Q&A

  • 검색을 할려고 하는데 SQL문이 이상해요???
두개의 조건 사이에서 검색을 할려고 하는데요...
SQL문 에러가 계속 뜨는데요...
고수님들 좀 봐주세요....

====================<<소스내용>>===========================
if (ev_search1 <> '') then
begin
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('Select eventcode,eventtitle,'+
                  'eventsubject,eventterm1,eventterm2,'+
                  'remark From EV_MASTER '+
                  ' where (eventTitle like ''%'+ev_search1+'%''')+
                  ' and (eventterm1 BETWEEN ''ev_search2''  + and ''ev_search3''));
                  
   Query1.Open;
end
else if (ev_search1 = '') then
begin
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('Select eventcode,eventtitle,'+
                  'eventsubject,eventterm1,eventterm2,'+
                  'remark From EV_MASTER '+
                  ' where eventterm1 BETWEEN '+Quotedstr(Trim(ev_search2))+
                  ' and '+Quotedstr(Trim(ev_search3)));
======================================================================

=====================<<에러내용>>===================================
[Error] UEv_search.pas(74): Unterminated string
[Error] UEv_search.pas(77): Incompatible types: 'String' and 'Integer'
======================================================================
에러는 첫번째 IF문의 where뒤의 and문에서 납니다...
제발 해결을 하고 싶은데....
델파이에선 between문이 안 통하나요????  ㅡ.ㅡ;
고수님들 해결 좀 해주세요
부탁드립니다... 그럼
1  COMMENTS
  • Profile
    버섯 2002.01.16 19:52
     ' where (eventTitle like ''%'+ev_search1+'%''')+   <-- 요기 +'%'')' +  이렇게 해야하구여...
     ' and (eventterm1 BETWEEN '+Quotedstr(Trim(ev_search2))+
                    ' and '+Quotedstr(Trim(ev_search3)) +')'


    이렇게 해보세여..

    근데.. quote를 붙일때.. 첨에 헷갈릴수 있는데여..
    천천히 보세여.. 그럼 어디가 틀렸는지 아실수 있을겁니다..

    일반적으로 많이 헷갈릴때는 파라메터를 이용하세여..

    sqltxt := 'select * from table where (eventTitle like :aa) and eventterm1 beetween :bb and :cc';

    query1.sql.add(sqltxt);
    query1.parambyname('aa').asstring := '%' + ev_search1 + '%';
    query1.parambyname('bb').asstring := ev_search2;
    query1.parambyname('cc').asstring := ev_search3;
    query1.open;

    이렇게요..

    즐코...
    • 성더기
      2002.01.16 20:03
      답변이 달려있는데 다른 방법두 있숨다.. Query1.FetchAll을 써보세염... 구럼 다 읽어 올검다
    • 버섯
      2002.01.16 19:55
      제가알기론 파라독스를 쓰면 정상으로 나오지만.. ms-sql,oracle.interbase 에서는 recno,recordcount ...
    • 버섯
      2002.01.16 19:52
       ' where (eventTitle like ''%'+ev_search1+'%''')+   <-- 요기 +'%'')' +  ...
    • 버섯
      2002.01.16 19:11
      쿼리로 하지마시고.. calc 필드를 쓰면 됩니다. calc 필드를 하나 만드시고. query1.fieldbyname('c...
    • 김규억
      2002.01.16 18:04
      정확한 답변은 아닙니다... 죄송합니다... ^^; 전 파라독스를 쓰지를 않아서리... 오라클이...
    • 이정욱
      2002.01.16 09:16
      흐.. 나이렉스 홈이 지금 점검중이라서요.. ^^; 아마 곧 새로운 홈페이지를 만나보실 수 있을 듯 하구여...
    • 임세훈
      2002.01.16 18:46
      이정욱씨군여 ^^ 인터넷을 하루종일 돌아다녔는데두 FAX모듈 프로그램을 찾을수가 없더라구여... ^^;;...
    • 이정욱
      2002.01.16 09:17
      당연히 있습니다... 아래에서 말씀하신 PostThreadMessage로 가능하구요...ㅡ.ㅡ; 그냥 위의 API 사...
    • 이정욱
      2002.01.16 09:19
      그냥 Application.ShowMainForm := False; 로 주시고 하시면 됩니다 ^^ 그리고 더 좋은 방법은 서비스...
    • 박수원
    • 2002.01.16 04:13
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 박상윤
      2002.01.16 21:07
      파일을 이용하시는 방법 밖에 없습니다.. 아니면 Direct show를 이용해서.. 본인이 스트림을 로드 할수 ...
    • Tk
    • 2002.01.16 03:54
    • 1 COMMENTS
    • /
    • 0 LIKES
    • Tk
      2002.01.16 13:29
      create procedure proc_site_ist   @ST_AGCODE     CHAR(4),   ...
    • 박상윤
      2002.01.16 21:12
      프로그램 파일폴더에 가시면... 언인스톨에 관한...폴더 가있을거에여.. 어떤 폴더인지는 기억이 안나네...
    • 김규억
      2002.01.16 18:31
      어떤 인스톨쉴드를 쓰시는지 알수는 없지만 위와 같은 경우라면 정말 답답하시겠네요...  ...
    • 남양원
      2002.01.25 01:46
      기존의 Uninstall이 안되는 이유를 한번 확인해 보세요.... Unistall 정보가 InstallShield에서 넘...
    • 강두헌
      2002.01.16 19:29
    • 이창영
    • 2002.01.16 03:25
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 한성근
      2002.01.16 09:20
      안녕하세요... 허접하지만 저두 그런문제를 겪어서 ... 아마도 여러장에 다른이미지를 연속으로 인쇄하...
    • 박영&#48
    • 2002.01.16 03:17
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 델파이탐크루즈
      2002.01.16 03:24
      이미지 불러오기.. file_name := 'AAA.BMP'; QRImage1.Picture.LoadFromFile(file_name); 되지여......
    • 이상협
    • 2002.01.16 03:12
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 이상협
      2002.01.16 18:59
      재미로 하는것은 아니었지만 이렇게 많은 관심을 가져 주실지 정말 몰랐습니다. 정말정말 감사드리고요. ...
    • 최호준
      2002.01.16 06:32
      unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Contro...
    • 최용일
      2002.01.16 04:58
      안녕하세요. 최용일입니다. Low함수를 쓰세요... A := Low(Integer); Integer는 32비트자료형입니...
    • 권희수
      2002.01.16 04:03
      선언은 상관없구여(integer로 가능한 숫자입니다) 컴파일러가 인식하는 과정에서 생긴 문제입니다. 제...
    • 성대현
    • 2002.01.16 02:44
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2002.01.16 04:43
      안녕하세요. 최용일입니다. 팁모아란에 강민주님이 쓰신 팁이 있네요... 파일명에 폴더이름 넣으시면...
    • 신용탁
    • 2002.01.16 02:28
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 김규한
    • 2002.01.16 02:27
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2002.01.16 05:04
      안녕하세요. 최용일입니다. 흠... 더이상 MyList란 것을 쓸일이 없다면 굳이 nil을 대입시킬 필요는 없...
    • 정상원
    • 2002.01.16 02:04
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김규억
      2002.01.16 18:18
      자세한 내용이 없어서 정확한 답변은 못 드리구요... 위 내용을 보니 컴파일시에 발생하는 에러라...
    • 이창영
      2002.01.16 02:34
      QuickRep1.PrinterSettings.Firstpage 로 해보세요..... 저도 오늘 프리뷰폼으로 작업하던중 똑같은 문제...
    • 이상협
    • 2002.01.16 01:20
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김규한
      2002.01.16 02:36
      전역으로 Edit : array [1..31] of TEdit; 요렇게 선언하구 코딩을 어느 이벤트던지 다음과 같이 해주세...
    • 김규억
      2002.01.16 18:20
    • 권용성
      2002.01.16 23:45
    • 김규억
      2002.01.17 02:01
    • 권용성
      2002.01.17 08:44
    • 김규억
      2002.01.17 20:04
    • 권용성
      2002.01.17 22:46
    • 김규억
      2002.01.17 23:17