Q&A

  • 쿼리 컴포넌트를 직접 선언해서 쓰려면?
폼이 없고 유닛만 있어야 해서

쿼리 컴포넌트를 직접 선언해서 쓰는데 잘 안됩니다.

다음과 같이 했는데



var

Query1 : TQuery;

DataSource1 : TDataSource;



procedure test();

begin

TQuery.Create(Query1);//:tcomponent);

TDataSource.Create(DataSource1);



DataSource1.DataSet := Query1;

Query1.DatabaseName := 'Total_sql';



Code := 'select key from EMP'



with Query1 do begin

Close;

Sql.Clear;

Sql.Text := Code;

Open;

end;

end;



에러가 발생합니다.



어떻게 해야 돼죠?





감사합니다.

1  COMMENTS
  • Profile
    DelChobo 2000.02.23 23:47
    uses db, dbtables를 추가하시고

    Query 생성 부분을

    Query1 := TQuery1.Create(Application);

    DataSource1 := TDataSource1.Create(Application);

    으로 바꾸어 보시면 될겁니다...



    좋은 코딩 하세요...



    김진호 wrote:

    > 폼이 없고 유닛만 있어야 해서

    > 쿼리 컴포넌트를 직접 선언해서 쓰는데 잘 안됩니다.

    > 다음과 같이 했는데

    >

    > var

    > Query1 : TQuery;

    > DataSource1 : TDataSource;

    >

    > procedure test();

    > begin

    > TQuery.Create(Query1);//:tcomponent);

    > TDataSource.Create(DataSource1);

    >

    > DataSource1.DataSet := Query1;

    > Query1.DatabaseName := 'Total_sql';

    >

    > Code := 'select key from EMP'

    >

    > with Query1 do begin

    > Close;

    > Sql.Clear;

    > Sql.Text := Code;

    > Open;

    > end;

    > end;

    >

    > 에러가 발생합니다.

    >

    > 어떻게 해야 돼죠?

    >

    >

    > 감사합니다.