초보입니다.
간단하게 폼에다 데이타소스,테이블,쿼리만 포함하여 실행을 시켰는데 에러가 납니다.
코드가 잘못되었는지 보아주세요.
=================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Active := False;
Query1.close ;
Query1.sql.add('insert into m_test');
Query1.sql.add('(Date, Memos)');
Query1.sql.add('values(:Date, :Memos)');
Query1.ParamByName('Date').asString := Edit1.Text;
Query1.ParamByName('Memos').asString := Memo1.Lines.Text;
Query1.ExecSQL ;
//Query1.Active := True;
//Query1.Open;
end;
Query1.sql.clear; 이 없는것 같은데 이것 없으면 중복됐다는 메시지가 떠요.
연속적으로 데이타를 넣을 때 꼭 필요한거든요.
김현영 wrote:
> 초보입니다.
> 간단하게 폼에다 데이타소스,테이블,쿼리만 포함하여 실행을 시켰는데 에러가 납니다.
> 코드가 잘못되었는지 보아주세요.
> =================================================================
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>
> Query1.Active := False;
> Query1.close ;
> Query1.sql.add('insert into m_test');
> Query1.sql.add('(Date, Memos)');
> Query1.sql.add('values(:Date, :Memos)');
> Query1.ParamByName('Date').asString := Edit1.Text;
> Query1.ParamByName('Memos').asString := Memo1.Lines.Text;
>
> Query1.ExecSQL ;
> //Query1.Active := True;
> //Query1.Open;
> end;