폼이 없고 유닛만 있어야 해서
쿼리 컴포넌트를 직접 선언해서 쓰는데 잘 안됩니다.
다음과 같이 했는데
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;
에러가 발생합니다.
어떻게 해야 돼죠?
감사합니다.
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;
>
> 에러가 발생합니다.
>
> 어떻게 해야 돼죠?
>
>
> 감사합니다.