with query4 do
begin
close;
sql.Clear;
sql.Add('select 공정코드 from 공정명세');
sql.Add('where 공정구분= "'+combobox1.Text+'"');
sql.Add('and 공정명= "'+combobox2.Text+'"');
open;
end;
if not query3.Eof then
begin
edit1.text:=query4.fieldbyname('공정코드').asstring;
에디트박스에 공정코드를 나타나게 한것임당.... 첨엔 잘돼다가 지금은 안움직임당..
ㅠ.ㅠ 사람 환장하겠습니당.... sql 검색기있는 SQL 입력부에서 해봤는디... 잘돼던디... 도대체 모가 잘못됐을까엽... 고수님들... 어제두 새벽 2시에 들어 갔습니당..
오늘은 일찍집에 가고파......ㅜ.ㅜ
> with query4 do
> begin
> close;
> sql.Clear;
> sql.Add('select 공정코드 from 공정명세');
> sql.Add('where 공정구분= "'+combobox1.Text+'"');
> sql.Add('and 공정명= "'+combobox2.Text+'"');
> open;
> end;
> if not query3.Eof then
> begin
> edit1.text:=query4.fieldbyname('공정코드').asstring;
>
> 에디트박스에 공정코드를 나타나게 한것임당.... 첨엔 잘돼다가 지금은 안움직임당..
>
> ㅠ.ㅠ 사람 환장하겠습니당.... sql 검색기있는 SQL 입력부에서 해봤는디... 잘돼던디... 도대체 모가 잘못됐을까엽... 고수님들... 어제두 새벽 2시에 들어 갔습니당..
> 오늘은 일찍집에 가고파......ㅜ.ㅜ
안녕하세요~ 구창민입니다.
어떻게 안되신다는 것인지요?
에러가 났다면 에러메세지는 무엇인지요?
올려주신 코드만으로는 문제점을 발견하지 못하겠습니다만..
혹시나 하여 말씀드립니다.
위의 문장만 보고 추측한 것입니다만,
sql.Add('where 공정구분= "'+combobox1.Text+'"');
이 문장안의 " <-- 더블 쿼테이션을 싱글 쿼테이션 두개로 바꾸어서
해보세요. '''' <-- 싱글 쿼테이션 두개안의 싱글 쿼테이션 두개로
실제 문장에서의 싱글 쿼세이션 하나가 표현하능합니다.
이미 알고 계시겠지만, 한번 테스트 해보세요.
또한 첨언이지만, 코드를 전부 올려주시지 않아
if not Query3.EOF then
이 문장이 왜 필요한지도 모르겠습니다.
그래도 잘 안되신다면 오류문장과 함께 다시 자세한 질문을 올려보세요.
그럼~ 즐거운 프로그래밍 하시길~