Q&A

  • ListBox에 table에 있는 데이타를 Select 하려면?
폼이 create 될때 사용자 리스트를 보여주고 싶거든요..
어떻게 해야 하나요?
그냥 셀에 select 하듯이 해야하나요?
좀 알려주세요..-_-;;

이 게시물을
6  COMMENTS
  • Profile
    김해우 • 2002.11.28 01:59

    이렇게 사용하시면 됩니다.
    폼이 생성될때로 하실려면

    procedure TForm1.FormCreate(Sender: TObject);
    var
       index : integer;
    begin
       index := 0;
       while not Table1.Eof do begin
        ListBox1.Items[index] := Table1.FieldByName('Name').AsString;
        inc(index);
        Table1.Next;
        Application.ProcessMessages;
        end;
    end;
  • Profile
    샤리 • 2002.11.28 02:25
    제가 이런 식으로 했는데요...

    procedure Tfrmsettle.FormCreate(Sender: TObject);
    var
       index : integer;
    begin
        ADOConnection.BeginTrans;
        index := 0;

        With Query Do
        begin
            Close;
            SQL.Clear;
            SQL.Add('select User_id from tb_user_info where user_id=:user_id');
            Open;

            while not Eof do
            begin
                inc(index);
                List.Items[index] := FieldByName('User_id').AsString;
                Next;
            end;
        end;
        ADOConnection.CommitTrans;
    end;

    아무값도 안나오거든요..
    어디가 잘못됐는지 아시면 좀 가르쳐 주세요..(- -)(__)
  • Profile
    최은석 • 2002.11.28 03:05
    이부분을 아래처럼..





  • Profile
    김해우 • 2002.11.28 03:49


    이렇게 해보세요...

    procedure Tfrmsettle.FormCreate(Sender: TObject);
    var
       index : integer;
    begin
        ADOConnection.BeginTrans;
        index := 0;

        With Query Do
        begin
            Close;
            SQL.Clear;
            SQL.Add('select * from tb_user_info');
          
            Open;
            while not Eof do
            begin
                List.Items[index] := FieldByName('User_id').AsString;
                inc(index);  
                Next;
            end;
       end;
        ADOConnection.CommitTrans;
    end;


  • Profile
    샤리 • 2002.11.28 03:18
    이렇게 해도 안나오거든요..
    다른대는 이상이 없나요?

    procedure Tfrmsettle.FormCreate(Sender: TObject);
    var
       index : integer;
    begin
        index := 0;

        With Query Do
        begin
            Close;
            SQL.Clear;
            SQL.Add('select User_id from tb_user_info where user_id=:user_id');
            Open;
            List.Clear;

            while not Eof do
            begin
                List.Items.Add(FieldByName('User_id').AsString);
                Next;
            end;
        end;
    end;

    그리고 프로그램을 돌려보니까
    List.Items.Add(FieldByName('User_id').AsString);
    이부분은 걸리지도 않거든요..
    왜 그럴까요?
    그리고 걸려도 안나오는것 같은데..ㅜㅡ
  • Profile
    최은석 • 2002.11.28 03:32
    sql 에 문제가 있네요.....
    select User_id from tb_user_info where user_id=:user_id'
    요기서 파라미터를 주었잖아여...

    open 하시기전에...
    ParamByName('user_id').asstring := 값;
    요 문장을 넣어주시면 될겁니다..
←First Page
803 804 805 806 807 808 809 810 811 812
Last Page→
한델 로그인 하기