감사합니다. 박철우님,



그런데요.

역시 똑 같은 에러가 나는군요.

전체 코드를 올리오니,

이 불쌍한 초보를 위해서 전체코드를

살펴봐주세요.

아님, 전화 한통화 좀







unit Unit3;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}





procedure TForm1.Button1Click(Sender: TObject);

begin

with Query1 do

begin

close;

sql.clear;

sql.Add := ' CREATE TABLE "employee.db" '+

' ( last_name CHAR(20), '+

' first_name CHAR(15),'+

' salary NUMERIC(10,2), '+

' dept_no SMALLINT, '+

'PRIMARY KEY (last_name, first_name))';

execsql;

//++++ 여기에 exception 등등의 구문이 필요할거 같네요~~~~ ^^

end;

end;

end.

somoon wrote:

procedure TForm1.Button1Click(Sender: TObject);

begin

with Query1 do

begin

close;

sql.clear;

sql.text := ' CREATE TABLE "employee.db" '+

' ( last_name CHAR(20), '+

' first_name CHAR(15),'+

' salary NUMERIC(10,2), '+

' dept_no SMALLINT, '+

'PRIMARY KEY (last_name, first_name))';

execsql;

++++ 여기에 exception 등등의 구문이 필요할거 같네요~~~~ ^^

end;

end;

end.





> 델파이 입문 2일째의 초보입니다.

> 아래 코드이 에러좀 찾아서 수정 해주시면 대단히 감사하겠씁니다.

> 02-544-5750, 016-241-2070 황세봉

>

>

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> CREATE TABLE "employee.db"

>

> (

> last_name CHAR(20),

> first_name CHAR(15),

> salary NUMERIC(10,2),

> dept_no SMALLINT,

> PRIMARY KEY (last_name, first_name)

>

> )

> end;

>

> end.

안녕하세요.

Query 컴포넌트를 Form에 추가 안하셨군요..

Query 컴포넌트는 'Data Acess' 컴포넌트파레트에 있습니다.

그럼..

성호종 wrote:

> somoon wrote:

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> with Query1 do

> begin

> close;

> sql.clear;

> sql.text := ' CREATE TABLE "employee.db" '+

> ' ( last_name CHAR(20), '+

> ' first_name CHAR(15),'+

> ' salary NUMERIC(10,2), '+

> ' dept_no SMALLINT, '+

> 'PRIMARY KEY (last_name, first_name))';

> execsql;

> ++++ 여기에 exception 등등의 구문이 필요할거 같네요~~~~ ^^

> end;

> end;

> end.

>

>

> > 델파이 입문 2일째의 초보입니다.

> > 아래 코드이 에러좀 찾아서 수정 해주시면 대단히 감사하겠씁니다.

> > 02-544-5750, 016-241-2070 황세봉

> >

> >

> >

> > procedure TForm1.Button1Click(Sender: TObject);

> > begin

> > CREATE TABLE "employee.db"

> >

> > (

> > last_name CHAR(20),

> > first_name CHAR(15),

> > salary NUMERIC(10,2),

> > dept_no SMALLINT,

> > PRIMARY KEY (last_name, first_name)

> >

> > )

> > end;

> >

> > end.









세상에나~~~~ 위에 에러가 난다고 하셨죵.... 폼메 Query컴포넌트를 가져다 놔야죠~~~

그리고 " ...구문이 필요할거 같네요" 는 주석처리 하셔야죠



> procedure TForm1.Button1Click(Sender: TObject);

> begin

> with Query1 do

> begin

> close;

> sql.clear;

> sql.Add := ' CREATE TABLE "employee.db" '+

> ' ( last_name CHAR(20), '+

> ' first_name CHAR(15),'+

> ' salary NUMERIC(10,2), '+

> ' dept_no SMALLINT, '+

> 'PRIMARY KEY (last_name, first_name))';

> execsql;

> //++++ 여기에 exception 등등의 구문이 필요할거 같네요~~~~ ^^

> end;

> end;

> end.

>

감사합니다.

님의 코드를 실행하니 다음과 같은 에러가 납니다.

한번더 살펴 봐 주십시오.

저의 코드는 델파이 help의 create table에 있는 sample code입니다.





(그런데요, 성호종님에게 메일이 안가던데요.)







[Error] Unit3.pas(30): Undeclared identifier: 'Query1'

[Error] Unit3.pas(33): Undeclared identifier: 'sql'

[Error] Unit3.pas(34): Missing operator or semicolon

[Error] Unit3.pas(40): Undeclared identifier: 'execsql'

[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit3.pas'