Q&A

  • ^^하요 고수님들 좋은 날씨임당....((오늘도 사발의 황당한 질문은 계속됨당..^^))
음 제가 연습삼아 만들어 본 것임당... 그런디엽... 업데이트한후에 다시

리스트박스에 방금 업데이트 한 내용이 나오게 할순 없나엽 전 아래의 소스를 보시면

알겠지만엽 방금 업데이트 한 내용을 select 해서 다시 리스트 박스에 넣는 방법을

생각했습니당.....^^ 역쉬 초보다운 내용이죠...캬캬캬..

음 고수님들 이라면 어떤 방법으로 하시나엽... 궁금함당... 그럼 고견기댕김당..^^



with form1.Query1 do

begin

close;

sql.Clear;

sql.Add('update 전화번호 set');

sql.Add('HPone="'+edit1.Text+'",');

sql.Add('이름="'+edit2.text+'"');

sql.Add('where C="'+s+'"');

try

execsql;

showmessage('수정이 성공했당....캬캬캬');

with form1.Query1 do

begin

close;

sql.Clear;

sql.Add('select HPone from 전화번호');

open;

listbox1.Clear;

end;

while not form1.Query1.Eof do begin

listbox1.Items.Add(form1.query1.fieldbyname('HPone').asstring);

form1.query1.Next;

end;

speedbutton2.Enabled:=false;

except

showmessage('ㅠ.ㅠ 실패당...');

speedbutton2.Enabled:=false;

end;

end;



4  COMMENTS
  • Profile
    서경환 2000.06.12 20:11
    사발우성 wrote:

    > 음 제가 연습삼아 만들어 본 것임당... 그런디엽... 업데이트한후에 다시

    > 리스트박스에 방금 업데이트 한 내용이 나오게 할순 없나엽 전 아래의 소스를 보시면

    > 알겠지만엽 방금 업데이트 한 내용을 select 해서 다시 리스트 박스에 넣는 방법을

    > 생각했습니당.....^^ 역쉬 초보다운 내용이죠...캬캬캬..

    > 음 고수님들 이라면 어떤 방법으로 하시나엽... 궁금함당... 그럼 고견기댕김당..^^

    >

    > with form1.Query1 do

    > begin

    > close;

    > sql.Clear;

    > sql.Add('update 전화번호 set');

    > sql.Add('HPone="'+edit1.Text+'",');

    > sql.Add('이름="'+edit2.text+'"');

    > sql.Add('where C="'+s+'"');

    > try

    > execsql;

    > showmessage('수정이 성공했당....캬캬캬');

    > with form1.Query1 do

    > begin

    > close;

    > sql.Clear;

    > sql.Add('select HPone from 전화번호');

    > open;

    > listbox1.Clear;

    > end;

    > while not form1.Query1.Eof do begin

    > listbox1.Items.Add(form1.query1.fieldbyname('HPone').asstring);

    > form1.query1.Next;

    > end;

    > speedbutton2.Enabled:=false;

    > except

    > showmessage('ㅠ.ㅠ 실패당...');

    > speedbutton2.Enabled:=false;

    > end;

    > end;

    > 별로 이상한 점은 발견하지 못했지만

    코딩은 좀 더 깨끗해 질것 같군요.

    Try

    With Form1.Query1, SQL do

    begin

    Close;

    Clear;

    Add('update 전화번호 ');

    Add(' set HPone="'+edit1.Text+'",');

    Add(' 이름="'+edit2.text+'" ');

    Add(' where C="'+s+'" ');

    Prepare;

    ExecSQL;

    ShowMessage('수정이 성공했당....캬캬캬');

    Close;

    Clear;

    Add('select HPone from 전화번호');

    Prepare;

    Open;

    ListBox1.Clear;

    end;

    while not form1.Query1.Eof do begin

    listbox1.Items.Add(form1.query1.fieldbyname('HPone').asstring);

    form1.query1.Next;

    end;

    speedbutton2.Enabled:=false;

    except

    showmessage('ㅠ.ㅠ 실패당...');

    speedbutton2.Enabled:=false;

    end;

    end;



  • Profile
    서경환 2000.06.12 22:12
    서경환 wrote:

    > 사발우성 wrote:

    > > 음 제가 연습삼아 만들어 본 것임당... 그런디엽... 업데이트한후에 다시

    > > 리스트박스에 방금 업데이트 한 내용이 나오게 할순 없나엽 전 아래의 소스를 보시면

    > > 알겠지만엽 방금 업데이트 한 내용을 select 해서 다시 리스트 박스에 넣는 방법을

    > > 생각했습니당.....^^ 역쉬 초보다운 내용이죠...캬캬캬..

    > > 음 고수님들 이라면 어떤 방법으로 하시나엽... 궁금함당... 그럼 고견기댕김당..^^

    > >

    > > with form1.Query1 do

    > > begin

    > > close;

    > > sql.Clear;

    > > sql.Add('update 전화번호 set');

    > > sql.Add('HPone="'+edit1.Text+'",');

    > > sql.Add('이름="'+edit2.text+'"');

    > > sql.Add('where C="'+s+'"');

    > > try

    > > execsql;

    > > showmessage('수정이 성공했당....캬캬캬');

    > > with form1.Query1 do

    > > begin

    > > close;

    > > sql.Clear;

    > > sql.Add('select HPone from 전화번호');

    > > open;

    > > listbox1.Clear;

    > > end;

    > > while not form1.Query1.Eof do begin

    > > listbox1.Items.Add(form1.query1.fieldbyname('HPone').asstring);

    > > form1.query1.Next;

    > > end;

    > > speedbutton2.Enabled:=false;

    > > except

    > > showmessage('ㅠ.ㅠ 실패당...');

    > > speedbutton2.Enabled:=false;

    > > end;

    > > end;

    > > 별로 이상한 점은 발견하지 못했지만

    > 코딩은 좀 더 깨끗해 질것 같군요.

    > Try

    > With Form1.Query1, SQL do

    > begin

    > Close;

    > Clear;

    > Add('update 전화번호 ');

    > Add(' set HPone="'+edit1.Text+'",');

    > Add(' 이름="'+edit2.text+'" ');

    > Add(' where C="'+s+'" ');

    > Prepare; <----- SQL문의 에러검사....

    > ExecSQL;

    > ShowMessage('수정이 성공했당....캬캬캬');

    > Close;

    > Clear;

    > Add('select HPone from 전화번호');

    > Prepare;

    > Open;

    > ListBox1.Clear;

    > end;

    > while not form1.Query1.Eof do begin

    > listbox1.Items.Add(form1.query1.fieldbyname('HPone').asstring);

    > form1.query1.Next;

    > end;

    > speedbutton2.Enabled:=false;

    > except

    > showmessage('ㅠ.ㅠ 실패당...');

    > speedbutton2.Enabled:=false;

    > end;

    > end;

    >

  • Profile
    사발우성 2000.06.12 21:35
    Try

    With Form1.Query1, SQL do

    begin

    Close;

    Clear;

    Add('update 전화번호 ');

    Add(' set HPone="'+edit1.Text+'",');

    Add(' 이름="'+edit2.text+'" ');

    Add(' where C="'+s+'" ');

    Prepare; <------- 이부분은 몬가엽 제가 이대로 실행하니까 이부분에서 에러가 나던디엽.... 이건 모에쓰는 물건인쥐...??? 초보사발이는 궁금하기만 함당...

    ExecSQL;

    ShowMessage('수정이 성공했당....캬캬캬');

    Close;

    Clear;

    Add('select HPone from 전화번호');

    Prepare;

    Open;

    ListBox1.Clear;

    end;

    while not form1.Query1.Eof do begin

    listbox1.Items.Add(form1.query1.fieldbyname('HPone').asstring);

    form1.query1.Next;

    end;

    speedbutton2.Enabled:=false;

    except

    showmessage('ㅠ.ㅠ 실패당...');

    speedbutton2.Enabled:=false;

    end;

    end;



  • Profile
    서경환 2000.06.12 22:24
    사발우성 wrote:

    > Try

    > With Form1.Query1, SQL do

    > begin

    > Close;

    > Clear;

    > Add('update 전화번호 ');

    > Add(' set HPone="'+edit1.Text+'",');

    > Add(' 이름="'+edit2.text+'" ');

    > Add(' where C="'+s+'" ');

    > Prepare; <------- 이부분은 몬가엽 제가 이대로 실행하니까 이부분에서 에러가 나던디엽.... 이건 모에쓰는 물건인쥐...??? 초보사발이는 궁금하기만 함당...

    > ExecSQL;

    > ShowMessage('수정이 성공했당....캬캬캬');

    > Close;

    > Clear;

    > Add('select HPone from 전화번호');

    > Prepare;

    > Open;

    > ListBox1.Clear;

    > end;

    > while not form1.Query1.Eof do begin

    > listbox1.Items.Add(form1.query1.fieldbyname('HPone').asstring);

    > form1.query1.Next;

    > end;

    > speedbutton2.Enabled:=false;

    > except

    > showmessage('ㅠ.ㅠ 실패당...');

    > speedbutton2.Enabled:=false;

    > end;

    > end;

    > SQL문의

    > Add(' set HPone="'+edit1.Text+'",');

    > Add(' 이름="'+edit2.text+'" ');

    > Add(' where C="'+s+'" ');

    "'+edit1.Text+'" Oh No

    '''+edit1.Text+'''

    "'이 아니고 '''입니다.