폼을 만들면서 디비그리드에 내용을 뿌리는것인데 에러가 나요.
"No SQL statement available"
쿼리초보인데 폼이시작하자마자 이런에러가 떠서 정말...
고수님들의 답변 부탁드립니다.
procedure TForm1.FormCreate(Sender: TObject);
begin
with Form1.memberSQLQuery do
begin
Close;
SQL.Clear;
Form1.MemNameEdit.Text :=FieldByName('Name').AsString;
Form1.MemJuminEdit.Text:=FieldByName('Jumin').AsString;
Form1.MemAgeEdit.Text :=FieldByName('Age').AsString;
Form1.MemSexEdit.Text :=FieldByName('Sex').AsString;
Form1.MemYearEdit.Text :=FieldByName('AddYear').AsString;
Form1.MemUpEdit.Text :=FieldByName('Jong_A').AsString;
Form1.MemJikEdit.Text :=FieldByName('Jong_B').AsString;
Form1.MemTelEdit.Text :=FieldByName('Tel').AsString;
Form1.MemHandEdit.Text :=FieldByName('Handphon').AsString;
Form1.MemJusoEdit.Text :=FieldByName('Juso').AsString;
Form1.MemMemoEdit.Text :=FieldByName('Memo').AsString;
open;
//ExecSql;
end;
end;
---------------
with Form1.memberSQLQuery do
begin
Close;
SQL.Clear; <---여기 구문은 SQL문장을 모두 지워라는 명령이군요
그럼 SQL문장이 없으니간 에러나구요
그리고 OPEN 먼저 하셔야 폼에 값을 넣을수가 있지 안을까요!!!
Form1.MemNameEdit.Text :=FieldByName('Name').AsString;
Form1.MemJuminEdit.Text:=FieldByName('Jumin').AsString;
Form1.MemAgeEdit.Text :=FieldByName('Age').AsString;
Form1.MemSexEdit.Text :=FieldByName('Sex').AsString;
Form1.MemYearEdit.Text :=FieldByName('AddYear').AsString;
Form1.MemUpEdit.Text :=FieldByName('Jong_A').AsString;
Form1.MemJikEdit.Text :=FieldByName('Jong_B').AsString;
Form1.MemTelEdit.Text :=FieldByName('Tel').AsString;
Form1.MemHandEdit.Text :=FieldByName('Handphon').AsString;
Form1.MemJusoEdit.Text :=FieldByName('Juso').AsString;
Form1.MemMemoEdit.Text :=FieldByName('Memo').AsString;
open;
//ExecSql;
end;
with memberSQLQuery do
begin
만약 SQL문장이 컴포런트 안에 없다면
SQL.Clear;
SQL.Add('select * from custom ');
Open;
각각의 값 넣기 ~~~~
Close;
end;