Q&A
- 델파이와 인터베이스 연결에러
델파이와 인터베이스를 연결하는데 자꾸만 이런 에러 메시지가 보이내요.
General SQL error.
Column unknown
SALE_DATE
Client SQL dialect 1 does not support reference to DATE datatype.
그런데 IBConsole에서는 SQL을 던지면 잘보이거든요. 그런데 SQL Explorer나 델파이
에서는 위와같은 에러가 나오네요.
생성구문을 함께 올립니다.
CREATE DOMAIN DCUSTOMERID AS INTEGER;
CREATE DOMAIN DCREDITLINE AS SMALLINT default 0 CHECK (VALUE BETWEEN 0 AND 3000);
CREATE DOMAIN DNAME AS CHAR(20);
CREATE DOMAIN DADDRESS AS VARCHAR(50);
CREATE DOMAIN DCITY AS VARCHAR(20);
CREATE DOMAIN DSTATE AS VARCHAR(20);
CREATE DOMAIN DZIP AS VARCHAR(10);
CREATE DOMAIN DPHONE AS VARCHAR(20);
CREATE DOMAIN DPRICE AS NUMERIC(15, 2) default 0.00; /* 15는 유효자리수 2는 소수점 자리 */
CREATE table CUSTOMER (
CUSTOMER_ID INTEGER NOT NULL,
FNAME DNAME NOT NULL,
LNAME DNAME NOT NULL,
CREDIT_LINE DCREDITLINE NOT NULL,
WORK_ADDRESS DADDRESS,
ALT_ADDRESS DADDRESS,
CITY DCITY,
STATE DSTATE,
ZIP DZIP,
WORK_PHONE DPHONE,
ALT_PHONE DPHONE,
COMMENTS BLOB SUB_TYPE TEXT SEGMENT SIZE 80,
COMPANY VARCHAR(40),
CONSTRAINT PCUSTOMER_ID PRIMARY KEY (CUSTOMER_ID)
);
CREATE TABLE PART (
PART_NUMBER VARCHAR(10) NOT NULL,
DESCRIPTION VARCHAR(18),
QUANTITY SMALLINT NOT NULL,
LIST_PRICE DPRICE NOT NULL,
RETAIL_PRICE DPRICE NOT NULL,
DEALER_PRICE DPRICE NOT NULL,
JOBBER_PRICE DPRICE NOT NULL,
CONSTRAINT PPART_NUMBER PRIMARY KEY (PART_NUMBER)
);
CREATE TABLE SALES (
SALE_NUMBER INTEGER,
CUSTOMER_ID INTEGER,
SALE_DATE DATE,
TOTAL_PRICE DOUBLE PRECISION
);
ALTER TABLE SALES ADD FOREIGN KEY (CUSTOMER_ID)
REFERENCES CUSTOMER(CUSTOMER_ID);
CREATE TABLE ITEMS (SALE_NUMBER INTEGER,
ITEM_NO INTEGER,
PART_NO VARCHAR(10),
QTY SMALLINT
);
ALTER TABLE ITEMS ADD FOREIGN KEY (PART_NO)
REFERENCES PART(PART_NUMBER);
CREATE GENERATOR GEN_CUSTID;
CREATE GENERATOR GEN_ITEMNO;
CREATE GENERATOR GEN_SALENO;
CREATE TRIGGER TCUSTOMER_ID FOR CUSTOMER
ACTIVE BEFORE INSERT POSITION 0
as begin
new.customer_id = gen_id(gen_custid, 1);
end
set term ^;
CREATE TRIGGER TITEM_NO FOR ITEMS
ACTIVE BEFORE INSERT POSITION 0
as begin
new.item_no = gen_id(gen_itemno, 1);
end; ^
SET TERM ^; /* 저장프로시저의 종료 (;) SQL 종료문자 (;) 그래서 SQL 종료 문자를 ^로 바꿈 */
CREATE PROCEDURE INSERT_SALE as begin exit; end ^
ALTER PROCEDURE INSERT_SALE (
ICUSTOMER_ID INTEGER,
ISALE_DATE DATE,
ITOTAL_PRICE DOUBLE PRECISION)
RETURNS (
RSALE_NUMBER INTEGER)
AS
BEGIN
/* 우선, GEN_SALENO 생성기로부터 새 판매 번호를 얻는다 */
/* 그리고 그 번호를 리턴값을 뜻하는 rSale인자에 넣는다 */
/* 따라서, 이 저장 프로시저를 호출한 클라이언트는 rSale에 담긴 */
/* 판매 번호를 돌려 받게 된다 */
rSALE_NUMBER = gen_id(GEN_SALENO, 1);
/* 이제 SALES 테이블에 레코드를 추가한다 */
INSERT INTO SALES(
SALE_NUMBER,
CUSTOMER_ID,
SALE_DATE,
TOTAL_PRICE)
VALUES(
:rSALE_NUMBER,
:iCUSTOMER_ID,
:iSALE_DATE,
:iTOTAL_PRICE);
END; ^
CREATE PROCEDURE INSERT_SALE_ITEM AS BEGIN EXIT; END^
ALTER PROCEDURE INSERT_SALE_ITEM (
ISALE_NUMBER INTEGER,
IPART_NO VARCHAR(10),
IQTY SMALLINT)
AS
DECLARE VARIABLE Actual_Qty VARCHAR(10);
BEGIN
/* PARTS 테이블에 iQTY 개수만큼의 부품이 남아 있는지 확인 */
SELECT QUANTITY FROM PART
WHERE PART_NUMBER = :iPART_NO
INTO Actual_Qty;
IF (Actual_Qty < iQTY) THEN
EXCEPTION EXP_EXCESS_ORDER;
ELSE BEGIN
/* PART 테이블의 해당 부품 개수를 판매된 개수만큼 감소기킨다 */
UPDATE PART
SET QUANTITY = (:Actual_Qty - :iQty)
WHERE PART_NUMBER = :iPART_NO;
/* 새 주문을 삽입한다 */
INSERT INTO ITEMS (
SALE_NUMBER,
PART_NO,
QTY)
VALUES(
:iSALE_NUMBER,
:iPART_NO,
:iQTY);
END
END
GRANT SELECT, UPDATE ON CUSTOMER TO PUBLIC WITH GRANT OPTION;
GRANT ALL ON SALES TO PUBLIC WITH GRANT OPTION;
GRANT ALL ON PART TO PUBLIC WITH GRANT OPTION;
GRANT ALL ON ITEMS TO PUBLIC WITH GRANT OPTION;
GRANT EXECUTE ON PROCEDURE INSERT_SALE TO PUBLIC;
GRANT EXECUTE ON PROCEDURE INSERT_SALE_ITEM TO PUBLIC;
General SQL error.
Column unknown
SALE_DATE
Client SQL dialect 1 does not support reference to DATE datatype.
그런데 IBConsole에서는 SQL을 던지면 잘보이거든요. 그런데 SQL Explorer나 델파이
에서는 위와같은 에러가 나오네요.
생성구문을 함께 올립니다.
CREATE DOMAIN DCUSTOMERID AS INTEGER;
CREATE DOMAIN DCREDITLINE AS SMALLINT default 0 CHECK (VALUE BETWEEN 0 AND 3000);
CREATE DOMAIN DNAME AS CHAR(20);
CREATE DOMAIN DADDRESS AS VARCHAR(50);
CREATE DOMAIN DCITY AS VARCHAR(20);
CREATE DOMAIN DSTATE AS VARCHAR(20);
CREATE DOMAIN DZIP AS VARCHAR(10);
CREATE DOMAIN DPHONE AS VARCHAR(20);
CREATE DOMAIN DPRICE AS NUMERIC(15, 2) default 0.00; /* 15는 유효자리수 2는 소수점 자리 */
CREATE table CUSTOMER (
CUSTOMER_ID INTEGER NOT NULL,
FNAME DNAME NOT NULL,
LNAME DNAME NOT NULL,
CREDIT_LINE DCREDITLINE NOT NULL,
WORK_ADDRESS DADDRESS,
ALT_ADDRESS DADDRESS,
CITY DCITY,
STATE DSTATE,
ZIP DZIP,
WORK_PHONE DPHONE,
ALT_PHONE DPHONE,
COMMENTS BLOB SUB_TYPE TEXT SEGMENT SIZE 80,
COMPANY VARCHAR(40),
CONSTRAINT PCUSTOMER_ID PRIMARY KEY (CUSTOMER_ID)
);
CREATE TABLE PART (
PART_NUMBER VARCHAR(10) NOT NULL,
DESCRIPTION VARCHAR(18),
QUANTITY SMALLINT NOT NULL,
LIST_PRICE DPRICE NOT NULL,
RETAIL_PRICE DPRICE NOT NULL,
DEALER_PRICE DPRICE NOT NULL,
JOBBER_PRICE DPRICE NOT NULL,
CONSTRAINT PPART_NUMBER PRIMARY KEY (PART_NUMBER)
);
CREATE TABLE SALES (
SALE_NUMBER INTEGER,
CUSTOMER_ID INTEGER,
SALE_DATE DATE,
TOTAL_PRICE DOUBLE PRECISION
);
ALTER TABLE SALES ADD FOREIGN KEY (CUSTOMER_ID)
REFERENCES CUSTOMER(CUSTOMER_ID);
CREATE TABLE ITEMS (SALE_NUMBER INTEGER,
ITEM_NO INTEGER,
PART_NO VARCHAR(10),
QTY SMALLINT
);
ALTER TABLE ITEMS ADD FOREIGN KEY (PART_NO)
REFERENCES PART(PART_NUMBER);
CREATE GENERATOR GEN_CUSTID;
CREATE GENERATOR GEN_ITEMNO;
CREATE GENERATOR GEN_SALENO;
CREATE TRIGGER TCUSTOMER_ID FOR CUSTOMER
ACTIVE BEFORE INSERT POSITION 0
as begin
new.customer_id = gen_id(gen_custid, 1);
end
set term ^;
CREATE TRIGGER TITEM_NO FOR ITEMS
ACTIVE BEFORE INSERT POSITION 0
as begin
new.item_no = gen_id(gen_itemno, 1);
end; ^
SET TERM ^; /* 저장프로시저의 종료 (;) SQL 종료문자 (;) 그래서 SQL 종료 문자를 ^로 바꿈 */
CREATE PROCEDURE INSERT_SALE as begin exit; end ^
ALTER PROCEDURE INSERT_SALE (
ICUSTOMER_ID INTEGER,
ISALE_DATE DATE,
ITOTAL_PRICE DOUBLE PRECISION)
RETURNS (
RSALE_NUMBER INTEGER)
AS
BEGIN
/* 우선, GEN_SALENO 생성기로부터 새 판매 번호를 얻는다 */
/* 그리고 그 번호를 리턴값을 뜻하는 rSale인자에 넣는다 */
/* 따라서, 이 저장 프로시저를 호출한 클라이언트는 rSale에 담긴 */
/* 판매 번호를 돌려 받게 된다 */
rSALE_NUMBER = gen_id(GEN_SALENO, 1);
/* 이제 SALES 테이블에 레코드를 추가한다 */
INSERT INTO SALES(
SALE_NUMBER,
CUSTOMER_ID,
SALE_DATE,
TOTAL_PRICE)
VALUES(
:rSALE_NUMBER,
:iCUSTOMER_ID,
:iSALE_DATE,
:iTOTAL_PRICE);
END; ^
CREATE PROCEDURE INSERT_SALE_ITEM AS BEGIN EXIT; END^
ALTER PROCEDURE INSERT_SALE_ITEM (
ISALE_NUMBER INTEGER,
IPART_NO VARCHAR(10),
IQTY SMALLINT)
AS
DECLARE VARIABLE Actual_Qty VARCHAR(10);
BEGIN
/* PARTS 테이블에 iQTY 개수만큼의 부품이 남아 있는지 확인 */
SELECT QUANTITY FROM PART
WHERE PART_NUMBER = :iPART_NO
INTO Actual_Qty;
IF (Actual_Qty < iQTY) THEN
EXCEPTION EXP_EXCESS_ORDER;
ELSE BEGIN
/* PART 테이블의 해당 부품 개수를 판매된 개수만큼 감소기킨다 */
UPDATE PART
SET QUANTITY = (:Actual_Qty - :iQty)
WHERE PART_NUMBER = :iPART_NO;
/* 새 주문을 삽입한다 */
INSERT INTO ITEMS (
SALE_NUMBER,
PART_NO,
QTY)
VALUES(
:iSALE_NUMBER,
:iPART_NO,
:iQTY);
END
END
GRANT SELECT, UPDATE ON CUSTOMER TO PUBLIC WITH GRANT OPTION;
GRANT ALL ON SALES TO PUBLIC WITH GRANT OPTION;
GRANT ALL ON PART TO PUBLIC WITH GRANT OPTION;
GRANT ALL ON ITEMS TO PUBLIC WITH GRANT OPTION;
GRANT EXECUTE ON PROCEDURE INSERT_SALE TO PUBLIC;
GRANT EXECUTE ON PROCEDURE INSERT_SALE_ITEM TO PUBLIC;
4
COMMENTS
-
-
정말 간만에 들어와 보네여..^^"
오래된 기억이긴 하지만 (안되면 어떻하쥐..)
IBConsol에서 된다면, 델파이의 그 뭐시기 IBDatabase인가 있잖아요..
거기에..모더라.SQLDialect인가..(맞나??)..하는 프라퍼티가 있구여.
아마도 그 값이 1로 되어있을껌니다. 그 값을 3이로 바꿔 보세요..
잘 되리라 기대하며..
즐푸하세요..
-
그런데 문제는 3개인 테이블도 에러가 난다는 거죠... 다른테이블도 형이 잘못 되었다고
하네요. 이해가 안돼여.. 고수님들 부탁드립니다.
명탁 wrote:
> date 타입을 timestamp 하심 되긴되는디.
>
> 돌맹이 wrote:
> > 델파이와 인터베이스를 연결하는데 자꾸만 이런 에러 메시지가 보이내요.
> >
> >
> > General SQL error.
> > Column unknown
> > SALE_DATE
> > Client SQL dialect 1 does not support reference to DATE datatype.
> >
> > 그런데 IBConsole에서는 SQL을 던지면 잘보이거든요. 그런데 SQL Explorer나 델파이
> > 에서는 위와같은 에러가 나오네요.
> >
> >
> > 생성구문을 함께 올립니다.
> >
> > CREATE DOMAIN DCUSTOMERID AS INTEGER;
> > CREATE DOMAIN DCREDITLINE AS SMALLINT default 0 CHECK (VALUE BETWEEN 0 AND 3000);
> > CREATE DOMAIN DNAME AS CHAR(20);
> > CREATE DOMAIN DADDRESS AS VARCHAR(50);
> > CREATE DOMAIN DCITY AS VARCHAR(20);
> > CREATE DOMAIN DSTATE AS VARCHAR(20);
> > CREATE DOMAIN DZIP AS VARCHAR(10);
> > CREATE DOMAIN DPHONE AS VARCHAR(20);
> > CREATE DOMAIN DPRICE AS NUMERIC(15, 2) default 0.00; /* 15는 유효자리수 2는 소수점 자리 */
> >
> > CREATE table CUSTOMER (
> > CUSTOMER_ID INTEGER NOT NULL,
> > FNAME DNAME NOT NULL,
> > LNAME DNAME NOT NULL,
> > CREDIT_LINE DCREDITLINE NOT NULL,
> > WORK_ADDRESS DADDRESS,
> > ALT_ADDRESS DADDRESS,
> > CITY DCITY,
> > STATE DSTATE,
> > ZIP DZIP,
> > WORK_PHONE DPHONE,
> > ALT_PHONE DPHONE,
> > COMMENTS BLOB SUB_TYPE TEXT SEGMENT SIZE 80,
> > COMPANY VARCHAR(40),
> > CONSTRAINT PCUSTOMER_ID PRIMARY KEY (CUSTOMER_ID)
> > );
> >
> > CREATE TABLE PART (
> > PART_NUMBER VARCHAR(10) NOT NULL,
> > DESCRIPTION VARCHAR(18),
> > QUANTITY SMALLINT NOT NULL,
> > LIST_PRICE DPRICE NOT NULL,
> > RETAIL_PRICE DPRICE NOT NULL,
> > DEALER_PRICE DPRICE NOT NULL,
> > JOBBER_PRICE DPRICE NOT NULL,
> > CONSTRAINT PPART_NUMBER PRIMARY KEY (PART_NUMBER)
> > );
> >
> > CREATE TABLE SALES (
> > SALE_NUMBER INTEGER,
> > CUSTOMER_ID INTEGER,
> > SALE_DATE DATE,
> > TOTAL_PRICE DOUBLE PRECISION
> > );
> >
> > ALTER TABLE SALES ADD FOREIGN KEY (CUSTOMER_ID)
> > REFERENCES CUSTOMER(CUSTOMER_ID);
> >
> > CREATE TABLE ITEMS (SALE_NUMBER INTEGER,
> > ITEM_NO INTEGER,
> > PART_NO VARCHAR(10),
> > QTY SMALLINT
> > );
> >
> > ALTER TABLE ITEMS ADD FOREIGN KEY (PART_NO)
> > REFERENCES PART(PART_NUMBER);
> >
> > CREATE GENERATOR GEN_CUSTID;
> > CREATE GENERATOR GEN_ITEMNO;
> > CREATE GENERATOR GEN_SALENO;
> >
> > CREATE TRIGGER TCUSTOMER_ID FOR CUSTOMER
> > ACTIVE BEFORE INSERT POSITION 0
> > as begin
> > new.customer_id = gen_id(gen_custid, 1);
> > end
> >
> > set term ^;
> >
> > CREATE TRIGGER TITEM_NO FOR ITEMS
> > ACTIVE BEFORE INSERT POSITION 0
> > as begin
> > new.item_no = gen_id(gen_itemno, 1);
> > end; ^
> >
> > SET TERM ^; /* 저장프로시저의 종료 (;) SQL 종료문자 (;) 그래서 SQL 종료 문자를 ^로 바꿈 */
> >
> > CREATE PROCEDURE INSERT_SALE as begin exit; end ^
> > ALTER PROCEDURE INSERT_SALE (
> > ICUSTOMER_ID INTEGER,
> > ISALE_DATE DATE,
> > ITOTAL_PRICE DOUBLE PRECISION)
> > RETURNS (
> > RSALE_NUMBER INTEGER)
> > AS
> > BEGIN
> > /* 우선, GEN_SALENO 생성기로부터 새 판매 번호를 얻는다 */
> > /* 그리고 그 번호를 리턴값을 뜻하는 rSale인자에 넣는다 */
> > /* 따라서, 이 저장 프로시저를 호출한 클라이언트는 rSale에 담긴 */
> > /* 판매 번호를 돌려 받게 된다 */
> > rSALE_NUMBER = gen_id(GEN_SALENO, 1);
> > /* 이제 SALES 테이블에 레코드를 추가한다 */
> > INSERT INTO SALES(
> > SALE_NUMBER,
> > CUSTOMER_ID,
> > SALE_DATE,
> > TOTAL_PRICE)
> > VALUES(
> > :rSALE_NUMBER,
> > :iCUSTOMER_ID,
> > :iSALE_DATE,
> > :iTOTAL_PRICE);
> > END; ^
> >
> > CREATE PROCEDURE INSERT_SALE_ITEM AS BEGIN EXIT; END^
> > ALTER PROCEDURE INSERT_SALE_ITEM (
> > ISALE_NUMBER INTEGER,
> > IPART_NO VARCHAR(10),
> > IQTY SMALLINT)
> > AS
> > DECLARE VARIABLE Actual_Qty VARCHAR(10);
> > BEGIN
> > /* PARTS 테이블에 iQTY 개수만큼의 부품이 남아 있는지 확인 */
> > SELECT QUANTITY FROM PART
> > WHERE PART_NUMBER = :iPART_NO
> > INTO Actual_Qty;
> > IF (Actual_Qty < iQTY) THEN
> > EXCEPTION EXP_EXCESS_ORDER;
> > ELSE BEGIN
> > /* PART 테이블의 해당 부품 개수를 판매된 개수만큼 감소기킨다 */
> > UPDATE PART
> > SET QUANTITY = (:Actual_Qty - :iQty)
> > WHERE PART_NUMBER = :iPART_NO;
> > /* 새 주문을 삽입한다 */
> > INSERT INTO ITEMS (
> > SALE_NUMBER,
> > PART_NO,
> > QTY)
> > VALUES(
> > :iSALE_NUMBER,
> > :iPART_NO,
> > :iQTY);
> > END
> > END
> >
> >
> >
> > GRANT SELECT, UPDATE ON CUSTOMER TO PUBLIC WITH GRANT OPTION;
> > GRANT ALL ON SALES TO PUBLIC WITH GRANT OPTION;
> > GRANT ALL ON PART TO PUBLIC WITH GRANT OPTION;
> > GRANT ALL ON ITEMS TO PUBLIC WITH GRANT OPTION;
> >
> > GRANT EXECUTE ON PROCEDURE INSERT_SALE TO PUBLIC;
> > GRANT EXECUTE ON PROCEDURE INSERT_SALE_ITEM TO PUBLIC;
> >
-
아뇨
dialect 를 1루 하면 완벽 하게 됨다..
dialect3을 사용하면 인터베이스 최신 함수등등.할수 있는디.
헉쉬.
(NOTICE) You must be logged in to comment on this post.
-
- 이명교
- •
- 2001.05.16 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
미키•2001.05.17 03:39dbgrid의 align을 none 으로 하고 dbgrid을 폼 보다 좀 크가 해 보세요 폼의 borderStyle을 물론 size...
-
- 명지니
- •
- 2001.05.16 06:27
- 2 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.16 07:02명지니 wrote: > 허거... 왜이리 찾기 힘든지 ^^; > 지금 DBase를 로컬DB로 사용해서 프로그램 하는데요 ...
-
명지니•2001.05.16 07:17음... 그렇겠군요. 그런데 조건이 한 3개? 정도? 3개정도의 조건을 동시 만족하거나 3중 하나만족... 등...
-
- 구름둥둥
- 2001.05.16 05:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 김상길
- 2001.05.16 04:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 송성환
- •
- 2001.05.16 03:39
- 1 COMMENTS
- /
- 0 LIKES
-
명탁•2001.05.16 03:46송성환 wrote: > 이런 질문을 해도 되는지는 모르겠지만.... > 초보인 저의 입장을 이해해 주신다면은 아...
-
- 새까만넘
- •
- 2001.05.16 03:33
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.16 03:50안녕하세요. 최용일입니다. 아마도 자동생성하신거 같네요. Project/Options...메뉴의 Forms항목에 보시...
-
- hlpark
- •
- 2001.05.16 03:32
- 2 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.16 04:48hlpark wrote: > 트리뷰를 써서 DB에 있는 데이터를 출력했습니다. > > 그리고 아이템을 추가할 수 있...
-
최용일•2001.05.16 03:55안녕하세요. 최용일입니다. DB에서 트리뷰로 추가하는 방법을 반대로 하면 되지 않나요? DB에서 읽는...
-
- 박선숙
- •
- 2001.05.16 03:31
- 1 COMMENTS
- /
- 0 LIKES
-
똥개•2001.05.16 03:41질문의 내요을 제대로 파악을 못하고... 참고글 극적여 보께요.. listview에서 클릭을 하면 tlistview.s...
-
- 재봉나라
- •
- 2001.05.16 03:24
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.16 03:58안녕하세요. 최용일입니다. 무슨 말씀이신지? dll은 단지 함수라이브러리일 뿐인데요. 이미지에디터에서...
-
- biz4you
- 2001.05.16 03:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 김명하
- 2001.05.16 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 돌맹이
- •
- 2001.05.16 02:19
- 4 COMMENTS
- /
- 0 LIKES
델파이와 인터베이스를 연결하는데 자꾸만 이런 에러 메시지가 보이내요. General SQL error. Column unknown SALE_DATE Client SQL dialect 1 does not support reference to DATE datatype. 그런데 IBConsole에서는 SQL을 던지면 잘보이...-
명탁•2001.05.16 02:42date 타입을 timestamp 하심 되긴되는디. 돌맹이 wrote: > 델파이와 인터베이스를 연결하는데 자꾸만 ...
-
승추니•2001.05.16 03:12정말 간만에 들어와 보네여..^^" 오래된 기억이긴 하지만 (안되면 어떻하쥐..) IBConsol에서 된다면,...
-
돌맹이•2001.05.16 03:08그런데 문제는 3개인 테이블도 에러가 난다는 거죠... 다른테이블도 형이 잘못 되었다고 하네요. 이해가 ...
-
명탁•2001.05.16 03:29아뇨 dialect 를 1루 하면 완벽 하게 됨다.. dialect3을 사용하면 인터베이스 최신 함수등등.할수 있는디...
-
- 허접이
- 2001.05.16 02:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.05.16 01:48
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.16 04:58안녕하세요. 최용일입니다. 여기에서 선이라는 것은 이미지 객체이죠? windowed컨트롤(윈도우핸들이 ...
-
왕초보•2001.05.16 22:28제가 설명을 제대로 못했네요. 죄송합니다. 선은 MoveTo,LineTo로 그렸습니다. 선을 객체화할 수 있나...
-
최용일•2001.05.17 04:36LineTo로 그린 선이든 이미지객체든 마찬가지입니다. 어디에다 그리느냐에 따라서 위에 올라갈수도 있구 아...
-
- 새까만넘
- •
- 2001.05.16 01:46
- 1 COMMENTS
- /
- 0 LIKES
-
왕초보•2001.05.16 02:07저도 왕초보라 잘모르지만.. 해본경험이 생각이나서 ActiveMDIChild.Close; For i:= 0 To MDI...
-
- 장
- •
- 2001.05.16 01:43
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.16 04:34안녕하세요. 최용일입니다. case문이나 집합에서는 서수형만 사용가능합니다. 그러니까 그러한 방법은 ...
-
- 노상균
- •
- 2001.05.16 01:34
- 2 COMMENTS
- /
- 0 LIKES
-
왕초보•2001.05.16 02:12콤보박스의 OnChange라는 이벤트에 Label1.Caption := ComboBox1.Text라고 하면 됩니다. 밑에 처럼.. p...
-
망치•2001.05.16 02:02노상균 wrote: > Combobox에서 Items에 문자들을 넣었습니다. > > 이순신 > 강감찬 > 을지문덕...
-
- 델초보...^^;
- •
- 2001.05.16 01:28
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.16 04:38안녕하세요. 최용일입니다. StrToInt함수를 사용해서 Hex값을 숫자로 바꾸어서 다시 문자열로 바꾸어 연...
-
- 바보
- 2001.05.16 00:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 김아성
- •
- 2001.05.16 00:44
- 3 COMMENTS
- /
- 0 LIKES
-
김양우•2001.05.16 03:21제가 한번 구현해 봤습니다. // 메인루틴 1. 화일을 연다 2. while (화일의 끝이 아니...
-
망치•2001.05.16 02:21김아성 wrote: > 텍스트(txt) 화일을 읽어서 db에 저장할려고 합니다. > 현재 txt 화일에는 > 1|M11060...
-
하기•2001.05.16 01:20한줄로 쭉~~~ 붙어 있다면... Cutting하기가 좀 애매 하군요... 그럼...Pos함수를 써서 해보세요... 그럼...
돌맹이 wrote:
> 델파이와 인터베이스를 연결하는데 자꾸만 이런 에러 메시지가 보이내요.
>
>
> General SQL error.
> Column unknown
> SALE_DATE
> Client SQL dialect 1 does not support reference to DATE datatype.
>
> 그런데 IBConsole에서는 SQL을 던지면 잘보이거든요. 그런데 SQL Explorer나 델파이
> 에서는 위와같은 에러가 나오네요.
>
>
> 생성구문을 함께 올립니다.
>
> CREATE DOMAIN DCUSTOMERID AS INTEGER;
> CREATE DOMAIN DCREDITLINE AS SMALLINT default 0 CHECK (VALUE BETWEEN 0 AND 3000);
> CREATE DOMAIN DNAME AS CHAR(20);
> CREATE DOMAIN DADDRESS AS VARCHAR(50);
> CREATE DOMAIN DCITY AS VARCHAR(20);
> CREATE DOMAIN DSTATE AS VARCHAR(20);
> CREATE DOMAIN DZIP AS VARCHAR(10);
> CREATE DOMAIN DPHONE AS VARCHAR(20);
> CREATE DOMAIN DPRICE AS NUMERIC(15, 2) default 0.00; /* 15는 유효자리수 2는 소수점 자리 */
>
> CREATE table CUSTOMER (
> CUSTOMER_ID INTEGER NOT NULL,
> FNAME DNAME NOT NULL,
> LNAME DNAME NOT NULL,
> CREDIT_LINE DCREDITLINE NOT NULL,
> WORK_ADDRESS DADDRESS,
> ALT_ADDRESS DADDRESS,
> CITY DCITY,
> STATE DSTATE,
> ZIP DZIP,
> WORK_PHONE DPHONE,
> ALT_PHONE DPHONE,
> COMMENTS BLOB SUB_TYPE TEXT SEGMENT SIZE 80,
> COMPANY VARCHAR(40),
> CONSTRAINT PCUSTOMER_ID PRIMARY KEY (CUSTOMER_ID)
> );
>
> CREATE TABLE PART (
> PART_NUMBER VARCHAR(10) NOT NULL,
> DESCRIPTION VARCHAR(18),
> QUANTITY SMALLINT NOT NULL,
> LIST_PRICE DPRICE NOT NULL,
> RETAIL_PRICE DPRICE NOT NULL,
> DEALER_PRICE DPRICE NOT NULL,
> JOBBER_PRICE DPRICE NOT NULL,
> CONSTRAINT PPART_NUMBER PRIMARY KEY (PART_NUMBER)
> );
>
> CREATE TABLE SALES (
> SALE_NUMBER INTEGER,
> CUSTOMER_ID INTEGER,
> SALE_DATE DATE,
> TOTAL_PRICE DOUBLE PRECISION
> );
>
> ALTER TABLE SALES ADD FOREIGN KEY (CUSTOMER_ID)
> REFERENCES CUSTOMER(CUSTOMER_ID);
>
> CREATE TABLE ITEMS (SALE_NUMBER INTEGER,
> ITEM_NO INTEGER,
> PART_NO VARCHAR(10),
> QTY SMALLINT
> );
>
> ALTER TABLE ITEMS ADD FOREIGN KEY (PART_NO)
> REFERENCES PART(PART_NUMBER);
>
> CREATE GENERATOR GEN_CUSTID;
> CREATE GENERATOR GEN_ITEMNO;
> CREATE GENERATOR GEN_SALENO;
>
> CREATE TRIGGER TCUSTOMER_ID FOR CUSTOMER
> ACTIVE BEFORE INSERT POSITION 0
> as begin
> new.customer_id = gen_id(gen_custid, 1);
> end
>
> set term ^;
>
> CREATE TRIGGER TITEM_NO FOR ITEMS
> ACTIVE BEFORE INSERT POSITION 0
> as begin
> new.item_no = gen_id(gen_itemno, 1);
> end; ^
>
> SET TERM ^; /* 저장프로시저의 종료 (;) SQL 종료문자 (;) 그래서 SQL 종료 문자를 ^로 바꿈 */
>
> CREATE PROCEDURE INSERT_SALE as begin exit; end ^
> ALTER PROCEDURE INSERT_SALE (
> ICUSTOMER_ID INTEGER,
> ISALE_DATE DATE,
> ITOTAL_PRICE DOUBLE PRECISION)
> RETURNS (
> RSALE_NUMBER INTEGER)
> AS
> BEGIN
> /* 우선, GEN_SALENO 생성기로부터 새 판매 번호를 얻는다 */
> /* 그리고 그 번호를 리턴값을 뜻하는 rSale인자에 넣는다 */
> /* 따라서, 이 저장 프로시저를 호출한 클라이언트는 rSale에 담긴 */
> /* 판매 번호를 돌려 받게 된다 */
> rSALE_NUMBER = gen_id(GEN_SALENO, 1);
> /* 이제 SALES 테이블에 레코드를 추가한다 */
> INSERT INTO SALES(
> SALE_NUMBER,
> CUSTOMER_ID,
> SALE_DATE,
> TOTAL_PRICE)
> VALUES(
> :rSALE_NUMBER,
> :iCUSTOMER_ID,
> :iSALE_DATE,
> :iTOTAL_PRICE);
> END; ^
>
> CREATE PROCEDURE INSERT_SALE_ITEM AS BEGIN EXIT; END^
> ALTER PROCEDURE INSERT_SALE_ITEM (
> ISALE_NUMBER INTEGER,
> IPART_NO VARCHAR(10),
> IQTY SMALLINT)
> AS
> DECLARE VARIABLE Actual_Qty VARCHAR(10);
> BEGIN
> /* PARTS 테이블에 iQTY 개수만큼의 부품이 남아 있는지 확인 */
> SELECT QUANTITY FROM PART
> WHERE PART_NUMBER = :iPART_NO
> INTO Actual_Qty;
> IF (Actual_Qty < iQTY) THEN
> EXCEPTION EXP_EXCESS_ORDER;
> ELSE BEGIN
> /* PART 테이블의 해당 부품 개수를 판매된 개수만큼 감소기킨다 */
> UPDATE PART
> SET QUANTITY = (:Actual_Qty - :iQty)
> WHERE PART_NUMBER = :iPART_NO;
> /* 새 주문을 삽입한다 */
> INSERT INTO ITEMS (
> SALE_NUMBER,
> PART_NO,
> QTY)
> VALUES(
> :iSALE_NUMBER,
> :iPART_NO,
> :iQTY);
> END
> END
>
>
>
> GRANT SELECT, UPDATE ON CUSTOMER TO PUBLIC WITH GRANT OPTION;
> GRANT ALL ON SALES TO PUBLIC WITH GRANT OPTION;
> GRANT ALL ON PART TO PUBLIC WITH GRANT OPTION;
> GRANT ALL ON ITEMS TO PUBLIC WITH GRANT OPTION;
>
> GRANT EXECUTE ON PROCEDURE INSERT_SALE TO PUBLIC;
> GRANT EXECUTE ON PROCEDURE INSERT_SALE_ITEM TO PUBLIC;
>