Q&A
- 급급급!!! insert관련 오류같은데 아주 급합니다. 부탁드려요 ㅜ.ㅜ
델파이 이틀째공부하고 프로젝트 작성하는 왕초보입니다.
명령어도 다 모르고 아래처럼 코딩하고 나니까 실행시에 db엔진 어쩌구 저쩌구 오류가 나더라고요. 그래서 insert오류인지 아니면 bd alias부분이 오류인지...
BDE Administrator에서 db경로 작성하고 수정을 했는데 그게 잘못된건지 좀 봐주시겠습까.. 제발부탁드려요 ㅜ.ㅜ
그리고 LAN상에서 작업을 하려고 하는데 alias 설정 방법도 좀 알려주시면 고맙겠습니다.
제가 초보니까 주석좀 자세히 붙여 주시면 더 감사드리고요.
꼭좀 부탁드려요.
unit B_02Form;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, ComCtrls;
type
TB02Form = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
BtnSave: TBitBtn;
BtnDel: TBitBtn;
BtnExit: TBitBtn;
Label1: TLabel;
Label2: TLabel;
EdCode: TEdit;
EdName: TEdit;
DBGrid1: TDBGrid;
DsSm: TDataSource;
QrSm: TQuery;
QrSmCode: TStringField;
QrSmName: TStringField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
private
procedure ComponentClear;
{ Private declarations }
public
{ Public declarations }
end;
var
B02Form: TB02Form;
implementation
{$R *.DFM}
procedure TB02Form.ComponentClear;
var wCc:word;
begin
//전체 Component중에서 Edit와 CheckBox초기화
for wCc := 1 to ComponentCount - 1 do
if Components[wCc] is TEdit then
TEdit(Components[wCc]).Text := ''
else if Components[wCc] is TCheckBox then
TCheckBox(Components[wCc]).Checked := False;
//저장,삭제버턴 비활성화
// btnSave.Enabled := False;
btnDel.Enabled := False;
end;
procedure TB02Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
QrSm.Close;
Action := caFree;
end;
procedure TB02Form.FormCreate(Sender: TObject);
begin
ComponentClear;
ActiveControl := EdCode; //Cursor 위치제어
// 지금까지 등록된 모든 Item 내용을 보여준다.
// 기업에서 자료가 많을경우에는 화면이 나타나는데 시간이 많이 걸릴수가 있다.
QrSm.Close;
QrSm.Sql.Clear;
QrSm.Sql.Add('Select * From CustSm');
Try
QrSm.Open;
Except
Application.MessageBox('반코드 Table에 오류 발생!!!','오류',mb_ok+mb_IconInformation);
QrSm.Close;
end;
end;
procedure TB02Form.FormShow(Sender: TObject);
begin
Left := 0; Top := 0;
end;
procedure TB02Form.BtnSaveClick(Sender: TObject);
var Q1:TQuery;
sSql:String;
begin
Q1 := TQuery.Create(Self);
Q1.DataBaseName := 'CustSm';
Q1.Sql.Clear;
sSql := 'Insert into CustSm (Code,Name) '+
' Values (:PCode,:PName) ';
Q1.Sql.Add(sSql);
Q1.ParamByName('PCode').asstring := Trim(EdCode.Text);
Q1.ParamByName('PName').asstring := Trim(EdName.Text);
// Q1.Sql.Add(sSql);
Q1.ExecSql;
close;
// SQL.Clear;
// Q1.Sql.Add(sSql);
// open;
end;
end.
명령어도 다 모르고 아래처럼 코딩하고 나니까 실행시에 db엔진 어쩌구 저쩌구 오류가 나더라고요. 그래서 insert오류인지 아니면 bd alias부분이 오류인지...
BDE Administrator에서 db경로 작성하고 수정을 했는데 그게 잘못된건지 좀 봐주시겠습까.. 제발부탁드려요 ㅜ.ㅜ
그리고 LAN상에서 작업을 하려고 하는데 alias 설정 방법도 좀 알려주시면 고맙겠습니다.
제가 초보니까 주석좀 자세히 붙여 주시면 더 감사드리고요.
꼭좀 부탁드려요.
unit B_02Form;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, ComCtrls;
type
TB02Form = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
BtnSave: TBitBtn;
BtnDel: TBitBtn;
BtnExit: TBitBtn;
Label1: TLabel;
Label2: TLabel;
EdCode: TEdit;
EdName: TEdit;
DBGrid1: TDBGrid;
DsSm: TDataSource;
QrSm: TQuery;
QrSmCode: TStringField;
QrSmName: TStringField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
private
procedure ComponentClear;
{ Private declarations }
public
{ Public declarations }
end;
var
B02Form: TB02Form;
implementation
{$R *.DFM}
procedure TB02Form.ComponentClear;
var wCc:word;
begin
//전체 Component중에서 Edit와 CheckBox초기화
for wCc := 1 to ComponentCount - 1 do
if Components[wCc] is TEdit then
TEdit(Components[wCc]).Text := ''
else if Components[wCc] is TCheckBox then
TCheckBox(Components[wCc]).Checked := False;
//저장,삭제버턴 비활성화
// btnSave.Enabled := False;
btnDel.Enabled := False;
end;
procedure TB02Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
QrSm.Close;
Action := caFree;
end;
procedure TB02Form.FormCreate(Sender: TObject);
begin
ComponentClear;
ActiveControl := EdCode; //Cursor 위치제어
// 지금까지 등록된 모든 Item 내용을 보여준다.
// 기업에서 자료가 많을경우에는 화면이 나타나는데 시간이 많이 걸릴수가 있다.
QrSm.Close;
QrSm.Sql.Clear;
QrSm.Sql.Add('Select * From CustSm');
Try
QrSm.Open;
Except
Application.MessageBox('반코드 Table에 오류 발생!!!','오류',mb_ok+mb_IconInformation);
QrSm.Close;
end;
end;
procedure TB02Form.FormShow(Sender: TObject);
begin
Left := 0; Top := 0;
end;
procedure TB02Form.BtnSaveClick(Sender: TObject);
var Q1:TQuery;
sSql:String;
begin
Q1 := TQuery.Create(Self);
Q1.DataBaseName := 'CustSm';
Q1.Sql.Clear;
sSql := 'Insert into CustSm (Code,Name) '+
' Values (:PCode,:PName) ';
Q1.Sql.Add(sSql);
Q1.ParamByName('PCode').asstring := Trim(EdCode.Text);
Q1.ParamByName('PName').asstring := Trim(EdName.Text);
// Q1.Sql.Add(sSql);
Q1.ExecSql;
close;
// SQL.Clear;
// Q1.Sql.Add(sSql);
// open;
end;
end.
4
COMMENTS
-
-
다른 부분은 셋팅에 관한거라 별문제가 없을듯하구여...
인서트한 부분만 가져왔거든여... 내용을 보면여..
TQuery에서 Q1을 동적 생성해서 쓰시네요.
말씀하신대로 초보라면 TQuery 컴포넌트를 가져다가 쓰는게 더 조을듯 싶네요 ^^
동적생성부분은 가져다 쓰는게 익숙해진후에 하셔두 늦지 않아요.
여튼, 함보져~
Q1 := TQuery.Create(Self);
Q1.DataBaseName := 'CustSm';
Q1.Sql.Clear;
sSql := 'Insert into CustSm (Code,Name) '+
' Values (:PCode,:PName) ';
Q1.Sql.Add(sSql);
Q1.ParamByName('PCode').asstring := Trim(EdCode.Text);
Q1.ParamByName('PName').asstring := Trim(EdName.Text);
Q1.ExecSql;
close; <-- Q1 쿼리를 닫을려고 한거같은데... Q1.Close;
잘못된 곳은 없는데요. 단지 Q1을 동적생성해서 썼다면 메모리에서 Free 시켜줘야줘야죠 Q1.Free;
참고로 CustSm은 Bde에 등록되어있는 얼라이어스 이름이어야 합니다.
얼라이어스 등록은 해당DB하고 맞춰야죠.
수정1. 단순히 쿼리컴포넌트 갖따 -
왕초보민정 wrote:
> 델파이 이틀째공부하고 프로젝트 작성하는 왕초보입니다.
> 명령어도 다 모르고 아래처럼 코딩하고 나니까 실행시에 db엔진 어쩌구 저쩌구 오류가 나더라고요. 그래서 insert오류인지 아니면 bd alias부분이 오류인지...
> BDE Administrator에서 db경로 작성하고 수정을 했는데 그게 잘못된건지 좀 봐주시겠습까.. 제발부탁드려요 ㅜ.ㅜ
> 그리고 LAN상에서 작업을 하려고 하는데 alias 설정 방법도 좀 알려주시면 고맙겠습니다.
> 제가 초보니까 주석좀 자세히 붙여 주시면 더 감사드리고요.
> 꼭좀 부탁드려요.
>
> unit B_02Form;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, ComCtrls;
>
> type
> TB02Form = class(TForm)
> PageControl1: TPageControl;
> TabSheet1: TTabSheet;
> Panel1: TPanel;
> Panel2: TPanel;
> Panel3: TPanel;
> BtnSave: TBitBtn;
> BtnDel: TBitBtn;
> BtnExit: TBitBtn;
> Label1: TLabel;
> Label2: TLabel;
> EdCode: TEdit;
> EdName: TEdit;
> DBGrid1: TDBGrid;
> DsSm: TDataSource;
> QrSm: TQuery;
> QrSmCode: TStringField;
> QrSmName: TStringField;
> procedure FormClose(Sender: TObject; var Action: TCloseAction);
> procedure FormCreate(Sender: TObject);
> procedure FormShow(Sender: TObject);
> procedure BtnSaveClick(Sender: TObject);
> private
> procedure ComponentClear;
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> B02Form: TB02Form;
>
> implementation
>
> {$R *.DFM}
> procedure TB02Form.ComponentClear;
> var wCc:word;
> begin
> //전체 Component중에서 Edit와 CheckBox초기화
> for wCc := 1 to ComponentCount - 1 do
> if Components[wCc] is TEdit then
> TEdit(Components[wCc]).Text := ''
> else if Components[wCc] is TCheckBox then
> TCheckBox(Components[wCc]).Checked := False;
> //저장,삭제버턴 비활성화
> // btnSave.Enabled := False;
> btnDel.Enabled := False;
> end;
>
> procedure TB02Form.FormClose(Sender: TObject; var Action: TCloseAction);
> begin
> QrSm.Close;
> Action := caFree;
> end;
>
> procedure TB02Form.FormCreate(Sender: TObject);
> begin
> ComponentClear;
> ActiveControl := EdCode; //Cursor 위치제어
>
> // 지금까지 등록된 모든 Item 내용을 보여준다.
> // 기업에서 자료가 많을경우에는 화면이 나타나는데 시간이 많이 걸릴수가 있다.
> QrSm.Close;
> QrSm.Sql.Clear;
> QrSm.Sql.Add('Select * From CustSm');
> Try
> QrSm.Open;
> Except
> Application.MessageBox('반코드 Table에 오류 발생!!!','오류',mb_ok+mb_IconInformation);
> QrSm.Close;
> end;
> end;
> procedure TB02Form.FormShow(Sender: TObject);
> begin
> Left := 0; Top := 0;
> end;
>
> procedure TB02Form.BtnSaveClick(Sender: TObject);
> var Q1:TQuery;
> sSql:String;
> begin
> Q1 := TQuery.Create(Self);
> Q1.DataBaseName := 'CustSm';
> Q1.Sql.Clear;
> sSql := 'Insert into CustSm (Code,Name) '+
> ' Values (:PCode,:PName) ';
> Q1.Sql.Add(sSql);
> Q1.ParamByName('PCode').asstring := Trim(EdCode.Text);
> Q1.ParamByName('PName').asstring := Trim(EdName.Text);
> // Q1.Sql.Add(sSql);
> Q1.ExecSql;
> close;
> // SQL.Clear;
> // Q1.Sql.Add(sSql);
> // open;
>
> end;
>
> end.
제 생각에는 우선 BDE에서 DB Alias를 더블클릭해서 에러메세지가 나지 않는지 확인하시구요.
아마도 거기서 에러가 났거나 그게 아님 DataBase Component를 사용하셨다면 DataBase Component를 더블 클릭하면 나타나는 내용(BDE 등록정보)이 틀렸거나... 뭐 그럴 거예요.
소스만 봐서는 잘 모르겠네요.
그리고 정확한 에러메세지를 올려주시면 훨씬 쉽게 알 수 있을 같은데여..
-
왕초보민정 wrote:
> 델파이 이틀째공부하고 프로젝트 작성하는 왕초보입니다.
> 명령어도 다 모르고 아래처럼 코딩하고 나니까 실행시에 db엔진 어쩌구 저쩌구 오류가 나더라고요. 그래서 insert오류인지 아니면 bd alias부분이 오류인지...
> BDE Administrator에서 db경로 작성하고 수정을 했는데 그게 잘못된건지 좀 봐주시겠습까.. 제발부탁드려요 ㅜ.ㅜ
> 그리고 LAN상에서 작업을 하려고 하는데 alias 설정 방법도 좀 알려주시면 고맙겠습니다.
> 제가 초보니까 주석좀 자세히 붙여 주시면 더 감사드리고요.
> 꼭좀 부탁드려요.
>
> unit B_02Form;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, ComCtrls;
>
> type
> TB02Form = class(TForm)
> PageControl1: TPageControl;
> TabSheet1: TTabSheet;
> Panel1: TPanel;
> Panel2: TPanel;
> Panel3: TPanel;
> BtnSave: TBitBtn;
> BtnDel: TBitBtn;
> BtnExit: TBitBtn;
> Label1: TLabel;
> Label2: TLabel;
> EdCode: TEdit;
> EdName: TEdit;
> DBGrid1: TDBGrid;
> DsSm: TDataSource;
> QrSm: TQuery;
> QrSmCode: TStringField;
> QrSmName: TStringField;
> procedure FormClose(Sender: TObject; var Action: TCloseAction);
> procedure FormCreate(Sender: TObject);
> procedure FormShow(Sender: TObject);
> procedure BtnSaveClick(Sender: TObject);
> private
> procedure ComponentClear;
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> B02Form: TB02Form;
>
> implementation
>
> {$R *.DFM}
> procedure TB02Form.ComponentClear;
> var wCc:word;
> begin
> //전체 Component중에서 Edit와 CheckBox초기화
> for wCc := 1 to ComponentCount - 1 do
> if Components[wCc] is TEdit then
> TEdit(Components[wCc]).Text := ''
> else if Components[wCc] is TCheckBox then
> TCheckBox(Components[wCc]).Checked := False;
> //저장,삭제버턴 비활성화
> // btnSave.Enabled := False;
> btnDel.Enabled := False;
> end;
>
> procedure TB02Form.FormClose(Sender: TObject; var Action: TCloseAction);
> begin
> QrSm.Close;
> Action := caFree;
> end;
>
> procedure TB02Form.FormCreate(Sender: TObject);
> begin
> ComponentClear;
> ActiveControl := EdCode; //Cursor 위치제어
>
> // 지금까지 등록된 모든 Item 내용을 보여준다.
> // 기업에서 자료가 많을경우에는 화면이 나타나는데 시간이 많이 걸릴수가 있다.
> QrSm.Close;
> QrSm.Sql.Clear;
> QrSm.Sql.Add('Select * From CustSm');
> Try
> QrSm.Open;
> Except
> Application.MessageBox('반코드 Table에 오류 발생!!!','오류',mb_ok+mb_IconInformation);
> QrSm.Close;
> end;
> end;
> procedure TB02Form.FormShow(Sender: TObject);
> begin
> Left := 0; Top := 0;
> end;
>
> procedure TB02Form.BtnSaveClick(Sender: TObject);
> var Q1:TQuery;
> sSql:String;
> begin
> Q1 := TQuery.Create(Self);
> Q1.DataBaseName := 'CustSm';
> Q1.Sql.Clear;
> sSql := 'Insert into CustSm (Code,Name) '+
> ' Values (:PCode,:PName) ';
> Q1.Sql.Add(sSql);
> Q1.ParamByName('PCode').asstring := Trim(EdCode.Text);
> Q1.ParamByName('PName').asstring := Trim(EdName.Text);
> // Q1.Sql.Add(sSql);
> Q1.ExecSql;
> close;
> // SQL.Clear;
> // Q1.Sql.Add(sSql);
> // open;
>
> end;
>
> end.
(NOTICE) You must be logged in to comment on this post.
-
- 델초
- •
- 2001.03.29 22:22
- 2 COMMENTS
- /
- 0 LIKES
-
jewel•2001.08.07 21:39델초 wrote: > 안녕 하세요. > 다름이 아니고 퀵 레포트에서 필드 별로 세로로 카막이를 > 하려면 어떻...
-
이희정•2001.03.29 22:28델초 wrote: > 안녕 하세요. > 다름이 아니고 퀵 레포트에서 필드 별로 세로로 카막이를 > 하려면 어떻...
-
- 윤종철
- •
- 2001.03.29 21:51
- 5 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.03.29 22:38
-
윤종철•2001.03.29 22:52
-
김광섭•2001.03.29 23:12
-
윤종철•2001.03.29 23:44
-
김광섭•2001.03.30 00:08
-
- 왕초보민정
- •
- 2001.03.29 21:49
- 4 COMMENTS
- /
- 0 LIKES
델파이 이틀째공부하고 프로젝트 작성하는 왕초보입니다. 명령어도 다 모르고 아래처럼 코딩하고 나니까 실행시에 db엔진 어쩌구 저쩌구 오류가 나더라고요. 그래서 insert오류인지 아니면 bd alias부분이 오류인지... BDE Administrator...-
약초꾼•2001.03.30 04:33답변이랑은 조금 거리가 있어염...^^ insert 하는 다른 방법을 알고 있어서 이렇게 글을 올립니다. p...
-
김광섭•2001.03.29 22:57다른 부분은 셋팅에 관한거라 별문제가 없을듯하구여... 인서트한 부분만 가져왔거든여... 내용을 보면여....
-
이희정•2001.03.29 22:44왕초보민정 wrote: > 델파이 이틀째공부하고 프로젝트 작성하는 왕초보입니다. > 명령어도 다 모르고 아...
-
돌도끼•2001.03.29 22:16왕초보민정 wrote: > 델파이 이틀째공부하고 프로젝트 작성하는 왕초보입니다. > 명령어도 다 모르고 아...
-
- plan0611
- 2001.03.29 21:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 수시아
- •
- 2001.03.29 21:29
- 1 COMMENTS
- /
- 0 LIKES
-
델파이•2001.03.29 22:13제 생각에는 a.exe의 등록정보에 보시면 프로그램 탭에 종료시 닫기체크표시가 있습니다.. 체크하고 한번...
-
- 윤종철
- •
- 2001.03.29 20:34
- 3 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.03.29 20:44윤종철 wrote: > 델파이로 프로그램을 만들어서 인스톨쉘드로 프로그램을 만들었는데 > setup을 시키니까...
-
윤종철•2001.03.29 20:54김광섭 wrote: > 윤종철 wrote: > > 델파이로 프로그램을 만들어서 인스톨쉘드로 프로그램을 만들었는데 ...
-
임형호•2001.03.29 22:28질문을 잘 이해를 못하신것 같네요. 사용한 DB를 물어본것 같은데요. 그러니까...데이타베이스 데스크탑...
-
- 아이리스
- •
- 2001.03.29 20:19
- 5 COMMENTS
- /
- 0 LIKES
-
이희정•2001.03.29 20:32
-
아이리스•2001.03.29 20:56
-
이희정•2001.03.29 22:24
-
아이리스•2001.03.29 22:37
-
이희정•2001.03.30 00:33
-
- Delman
- 2001.03.29 20:13
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 초보
- 2001.03.29 19:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 정희정
- 2001.03.29 19:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종석
- 2001.03.29 19:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤종철
- •
- 2001.03.29 18:41
- 2 COMMENTS
- /
- 0 LIKES
-
양용민•2001.03.29 19:30인스톨쉴드 익스프레스를 사용하는 경우 DISK타입을 CD-ROM으로 설정하시고 설치본을 만드시고 그 설치...
-
윤종철•2001.03.29 19:36양용민 wrote: > 인스톨쉴드 익스프레스를 사용하는 경우 DISK타입을 CD-ROM으로 설정하시고 > > 설치...
-
- 초심자
- •
- 2001.03.29 08:05
- 1 COMMENTS
- /
- 0 LIKES
-
박성일•2001.03.29 12:41초심자 wrote: > 안녕하세요.. > 예컨대 정문에서 통제실에 출입승인을 의뢰하면 통제실에서는 승인여부...
-
- ggongchi
- 2001.03.29 07:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 이정기
- •
- 2001.03.29 06:35
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.03.29 06:52쫍.. 결론적으로 마이다스에 리모트데이타 모듈에 TDatabase 올려서 사용하는 거야요.. 그리고 올려서 문...
-
- 델파이
- •
- 2001.03.29 04:58
- 3 COMMENTS
- /
- 0 LIKES
-
류종택•2001.03.29 06:57쫍,, 소스를 좀 올리시면 확신한 답변이 될 듯 합니다. 여하튼 제가 번호를 보면 화일 처리나 표준 I/O가...
-
델파이•2001.03.29 07:27델파이 I/O Error에 관한 답변, 잘 보았습니다. 감사드립니다. 그런데 올려주신 정보는 어디에서 구하신 ...
-
류종택•2001.03.29 09:37델파이 기본 핼프에 있는 내용입니다. 검색에서 'I/O errors'를 치면 됩니다. 허나 이미 적은 내용이 전...
-
- 송길수
- •
- 2001.03.29 04:53
- 2 COMMENTS
- /
- 0 LIKES
-
조복기•2001.03.29 06:57급하다는 제목은 이제그만.. 분명 예전에 프로젝트작업시에 했었고 항상 내가 갈켜주었던 부분이었거...
-
kylix•2001.03.29 05:40글 남김니다... http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mode=read&num=6832&db=freeta...
-
- 초보델
- •
- 2001.03.29 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.03.29 19:52초보델 wrote: > 아니면 퀵 레포터로 연결이라도... > 전에 됐는데.. 연결도 안되네요. > 버튼을 누르면...
-
- 오세용
- •
- 2001.03.29 03:56
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.03.29 04:20yo` 웹서버의 cgi실행권한이 있는곳에 복사하시고 사용하시면 됩니다. 흔히 cgi같은경우는 cgi-bin , d...
insert 하는 다른 방법을 알고 있어서 이렇게 글을 올립니다.
procedure TB02Form.BtnSaveClick(Sender : TObject);
var
Q1 : TQuery;
begin
Q1 := TQuery.Create(Self);
with Q1 do
try
DatabaseName := database1.DatabaseName;
SQL.Text := Format('insert into Custsm (Code, Name) Values (%S, %S)'
,[EdCode.Text, EdName.Text]);
try Execsql;
except ShowMessage('Custsm 에서 오류 발생'); end;
Finally Free; end;
end;
위와 같이 하면 insert 해야할 필드가 많아도 ..... ^^
참고 하시기 바랍니당....
고수님덜의 질책 부탁합니당..
그럼 전 이만...
후다닥~~~~~~~~~~~~~~~~~~~~~~~~~~콰당~~~~~~~~~^^;;
왕초보민정 wrote:
> 델파이 이틀째공부하고 프로젝트 작성하는 왕초보입니다.
> 명령어도 다 모르고 아래처럼 코딩하고 나니까 실행시에 db엔진 어쩌구 저쩌구 오류가 나더라고요. 그래서 insert오류인지 아니면 bd alias부분이 오류인지...
> BDE Administrator에서 db경로 작성하고 수정을 했는데 그게 잘못된건지 좀 봐주시겠습까.. 제발부탁드려요 ㅜ.ㅜ
> 그리고 LAN상에서 작업을 하려고 하는데 alias 설정 방법도 좀 알려주시면 고맙겠습니다.
> 제가 초보니까 주석좀 자세히 붙여 주시면 더 감사드리고요.
> 꼭좀 부탁드려요.
>
> unit B_02Form;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, ComCtrls;
>
> type
> TB02Form = class(TForm)
> PageControl1: TPageControl;
> TabSheet1: TTabSheet;
> Panel1: TPanel;
> Panel2: TPanel;
> Panel3: TPanel;
> BtnSave: TBitBtn;
> BtnDel: TBitBtn;
> BtnExit: TBitBtn;
> Label1: TLabel;
> Label2: TLabel;
> EdCode: TEdit;
> EdName: TEdit;
> DBGrid1: TDBGrid;
> DsSm: TDataSource;
> QrSm: TQuery;
> QrSmCode: TStringField;
> QrSmName: TStringField;
> procedure FormClose(Sender: TObject; var Action: TCloseAction);
> procedure FormCreate(Sender: TObject);
> procedure FormShow(Sender: TObject);
> procedure BtnSaveClick(Sender: TObject);
> private
> procedure ComponentClear;
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> B02Form: TB02Form;
>
> implementation
>
> {$R *.DFM}
> procedure TB02Form.ComponentClear;
> var wCc:word;
> begin
> //전체 Component중에서 Edit와 CheckBox초기화
> for wCc := 1 to ComponentCount - 1 do
> if Components[wCc] is TEdit then
> TEdit(Components[wCc]).Text := ''
> else if Components[wCc] is TCheckBox then
> TCheckBox(Components[wCc]).Checked := False;
> //저장,삭제버턴 비활성화
> // btnSave.Enabled := False;
> btnDel.Enabled := False;
> end;
>
> procedure TB02Form.FormClose(Sender: TObject; var Action: TCloseAction);
> begin
> QrSm.Close;
> Action := caFree;
> end;
>
> procedure TB02Form.FormCreate(Sender: TObject);
> begin
> ComponentClear;
> ActiveControl := EdCode; //Cursor 위치제어
>
> // 지금까지 등록된 모든 Item 내용을 보여준다.
> // 기업에서 자료가 많을경우에는 화면이 나타나는데 시간이 많이 걸릴수가 있다.
> QrSm.Close;
> QrSm.Sql.Clear;
> QrSm.Sql.Add('Select * From CustSm');
> Try
> QrSm.Open;
> Except
> Application.MessageBox('반코드 Table에 오류 발생!!!','오류',mb_ok+mb_IconInformation);
> QrSm.Close;
> end;
> end;
> procedure TB02Form.FormShow(Sender: TObject);
> begin
> Left := 0; Top := 0;
> end;
>
> procedure TB02Form.BtnSaveClick(Sender: TObject);
> var Q1:TQuery;
> sSql:String;
> begin
> Q1 := TQuery.Create(Self);
> Q1.DataBaseName := 'CustSm';
> Q1.Sql.Clear;
> sSql := 'Insert into CustSm (Code,Name) '+
> ' Values (:PCode,:PName) ';
> Q1.Sql.Add(sSql);
> Q1.ParamByName('PCode').asstring := Trim(EdCode.Text);
> Q1.ParamByName('PName').asstring := Trim(EdName.Text);
> // Q1.Sql.Add(sSql);
> Q1.ExecSql;
> close;
> // SQL.Clear;
> // Q1.Sql.Add(sSql);
> // open;
>
> end;
>
> end.