Q&A
- 에러나는 원인을 알려주십시요...
DB -> MS ACCESS
#################### 코딩부분########################
1 procedure TForm1.InsertBitBtnClick(Sender: TObject);
2 var
3 s : string;
4 begin
5 s := 'insert into cool
6 (Ace,Bee,Cola,Design,Eve,Fine)'+
7 'values('+ ''''+AceDBEdit.Text+'''' +','+ ''''+BeeDBEdit.Text+'''' +',
8 '+ ''''+ColaDBEdit.Text+'''' +','+ ''''+DesignDBEdit.Text+'''' +',
9 '+ ''''+EveDBEdit.Text+'''' +','+ ''''+FineDBEdit.Text+'''' +');
10 Query1.Close;
11 Query1.SQL.Clear;
12 Query1.SQL.Add(s);
13 Query1.ExecSQL;}
14 end;
#################### 에러부분########################
[Error]cool.pas[5] : Unterminated string
[Error]cool.pas[6] : Unterminated string
[Error]cool.pas[6] : Missing operator or semicolon
[Error]cool.pas[7] : Unterminated string
[Fatal Error]cool.dpr : Could not compile used unit 'cool.pas'
#################### 코딩부분########################
1 procedure TForm1.InsertBitBtnClick(Sender: TObject);
2 var
3 s : string;
4 begin
5 s := 'insert into cool
6 (Ace,Bee,Cola,Design,Eve,Fine)'+
7 'values('+ ''''+AceDBEdit.Text+'''' +','+ ''''+BeeDBEdit.Text+'''' +',
8 '+ ''''+ColaDBEdit.Text+'''' +','+ ''''+DesignDBEdit.Text+'''' +',
9 '+ ''''+EveDBEdit.Text+'''' +','+ ''''+FineDBEdit.Text+'''' +');
10 Query1.Close;
11 Query1.SQL.Clear;
12 Query1.SQL.Add(s);
13 Query1.ExecSQL;}
14 end;
#################### 에러부분########################
[Error]cool.pas[5] : Unterminated string
[Error]cool.pas[6] : Unterminated string
[Error]cool.pas[6] : Missing operator or semicolon
[Error]cool.pas[7] : Unterminated string
[Fatal Error]cool.dpr : Could not compile used unit 'cool.pas'
2
COMMENTS
-
-
쿼리문의 구문 오류인것같네요...
마지막에 + ') 부분도 틀린것같고요...
(NOTICE) You must be logged in to comment on this post.
-
- 김종균
- •
- 2002.07.04 06:01
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.04 19:39델 5에는 인터베이스 버전이 어케되나요? 저 같은 경우 인터베이스 6, firebird 1.0 둘다 설치해서 잘쓰고...
-
- 신봉석
- •
- 2002.07.04 05:34
- 1 COMMENTS
- /
- 0 LIKES
-
염상철•2002.07.04 19:10col수가 바뀐다구여~~그럼..레포트를 col이 발생할수 잇는 모든 경우의 수대로 만드세여.. col이 한개 일...
-
- ooxx
- •
- 2002.07.04 03:58
- 1 COMMENTS
- /
- 0 LIKES
-
이추형•2002.07.04 04:54Copy(DateToStr(Table1.FieldByName('FNDate').AsDateTime),1,4)의 값을 비교해서 해당년도만 seq := seq+...
-
- 김동민
- •
- 2002.07.04 03:58
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.04 09:31안녕하세요. 최용일입니다. 프로젝트환경설정은 프로젝트명.dsk파일에 들어있습니다. 이거 삭제하시면&n...
-
- hnery
- •
- 2002.07.04 03:51
- 2 COMMENTS
- /
- 0 LIKES
-
한하눌•2002.07.04 04:01로긴시간이 길다는 야그는 db를 사용하신다는거구 , ms-sql일 경우 서버이름을 (IP,도메인이름등)바꿔서 해...
-
hnery•2002.07.04 04:13먼저 질문에 대해 답변을 주셔서 정말 감사드립니다. 그러고보니 제가 환경에 대해 자세히 적어놓질 못했...
-
- 방성용
- •
- 2002.07.04 03:02
- 2 COMMENTS
- /
- 0 LIKES
-
단현석•2002.07.04 04:26쿼리를 어떻게 사용하는지 모르겠습니다만.. 왜 그런 기능이 필요한지 좀 궁금하네요.. 보통 쿼리를 사...
-
하기•2002.07.04 03:36DBGrid는 Table or query와 연결되어있답니다.. DBGrid보다는 Query or Table의 State를 Check하시면 될것...
-
- 방남진
- •
- 2002.07.04 02:48
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.04 09:39안녕하세요. 최용일입니다. 예외처리를 해보세요... 또한 의심가는 부분은 전부다 제대로 처리했는가를 ...
-
- 이동현
- •
- 2002.07.04 02:40
- 2 COMMENTS
- /
- 0 LIKES
-
장명선•2002.07.04 03:29어떤 질문인지요 ? 봉팔이라는 id를 찾고 싶은건지요 ? filter = 'id = ' + '봉팔' 이런씩으로 하...
-
이동현•2002.07.04 03:46봉팔이란 아이디를 얻고 싶은게 아니라, 봉팔이의 친구들을 얻어오고 싶은건데요..
-
- 어린왕자A
- •
- 2002.07.04 02:11
- 4 COMMENTS
- /
- 0 LIKES
-
장명선•2002.07.04 03:40Key가 잡혀있으면 자동으로 정렬이 되는 경우가 있습니다. 잘 확인을 해보세여 즐코하세요
-
어린왕자A•2002.07.04 03:49
-
양용성•2002.07.04 02:45이상하네요 원래 TTable 이면 테이블의 생성필드 순으로 나열되게 되어 있는데요. 만약 필드 리스트의 ...
-
어린왕자A•2002.07.04 03:08저는 인터베이스 DataSet을 사용합니다. 당근 TDataSet을 상속받아 만들어졌죠. 저는 필드명이 정렬이 ...
-
- 쌍
- •
- 2002.07.04 02:02
- 2 COMMENTS
- /
- 0 LIKES
DB -> MS ACCESS #################### 코딩부분######################## 1 procedure TForm1.InsertBitBtnClick(Sender: TObject); 2 var 3 s : string; 4 begin 5 s := 'insert into cool 6 (Ace,Bee,Cola,Design,Eve,Fine)'+ 7 'value...-
양용성•2002.07.04 02:50보통 현업에서는 아래의 코드 처럼 코딩합니다 한눈에 다 보이게요 s := s+ 'insert into cool &nbs...
-
KDDG_ZZOM•2002.07.04 02:18쿼리문의 구문 오류인것같네요... 마지막에 + ') 부분도 틀린것같고요...
-
- 물방개
- •
- 2002.07.04 01:43
- 4 COMMENTS
- /
- 0 LIKES
-
장태원•2002.07.04 01:52간단한 방법을 알려드립니다. StringReplace 라는 함수가 있습니다. 이곳에서 '{' 를 ''로, '//' 를 ...
-
물방개•2002.07.04 06:28답변해 주셔서 감사합니다. 그러나 제가 묻고 싶은것은... 주석만 제거하는것이 아니라. 주석안에 있는 ...
-
최용일•2002.07.04 09:28안녕하세요. 최용일입니다. 그냥 Pos, Copy, Delete등의 문자열처리함수들을 이용해서 하시면 되겠네요....
-
물방개•2002.07.04 20:25
-
- 박주민
- •
- 2002.07.04 01:38
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.04 02:15안녕하세요. 최용일입니다. 아마 RXLibrary는 델파이 모든 버전을 다 지원할 겁니다. 4.0에서도 Rx쓰시...
-
- 차명윤
- •
- 2002.07.04 01:09
- 2 COMMENTS
- /
- 0 LIKES
-
신석기•2002.07.23 09:56인증과 관련이 있습니다. ActiveX의 특성 때문에 발생합니다. ActiveX는 설치된 컴퓨터의 모든 권한을 행...
-
하얀까마귀•2002.07.04 01:25안녕하세요 하얀까마귀 입니다. 네.. 인증과 관련있는겁니다. 확실치는 않은데 인증받는데 한 100$ ...
-
- 윤도상
- •
- 2002.07.04 01:04
- 3 COMMENTS
- /
- 0 LIKES
-
장태원•2002.07.04 01:37생각을 좀 해보시면 될듯...ㅡㅡ; form1 의 Top,left, height,width 를 알고, form2 은 &n...
-
윤도상•2002.07.04 02:49사용할 폼이 여러개라서 계산할 엄두가 나질 않는 군요. 또 어떻게 계산해야할 지도 모르겠구.. 혹시.. ...
-
최용일•2002.07.04 03:52안녕하세요. 최용일입니다. 모든 폼들은 TScreen.Forms배열에 들어가 있어요. 이걸 이용해서 각각의 폼...
-
- 박영수
- •
- 2002.07.04 00:43
- 1 COMMENTS
- /
- 0 LIKES
-
장명선•2002.07.04 03:34파라독스 함수는 DataBase Destop 에서 찾을 수 있습니다. 그럼 즐코하세요
-
- ybkim
- •
- 2002.07.04 00:23
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.04 01:35안녕하세요. 최용일입니다. 흠~ 철자틀리면 안나오구요... 오른쪽에 대입할때 맞는 형이 없으면 안나옵...
-
- 변선희
- •
- 2002.07.04 00:11
- 2 COMMENTS
- /
- 0 LIKES
-
장태원•2002.07.04 01:471) Insert나 Edit 모드에서.. 다른 행위가 있을때...Dataset 은 post 기능을 수행합니다. (사용자는 모르...
-
변선희•2002.07.04 02:41qryUser.Close; qryUser.sql.clear; qryUser.sql.add('select u...
-
- 주관석
- •
- 2002.07.04 00:10
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.07.04 01:10hsr///////////////////////////////////////////////////////////////// 일단 점검해보세요 fmBook 폼의...
-
- 이정택
- •
- 2002.07.03 23:58
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2002.07.04 01:41서버가 어떤것인지, 또..서버가 델파이의 서버소켓을 사용하는지.. 델파이의 서버소켓을 사용하신다면...
-
- 차형석
- •
- 2002.07.03 23:30
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2002.07.04 01:55제생각에는 table생성에 있는듯 합니다. 먼저 마스터를 생성하고, 디테일테이블에 foreign key를 설정하...
한눈에 다 보이게요
s := s+ 'insert into cool ';
s := s+ ' ( Ace , ';
s := s+ ' Bee , ';
s := s+ ' Cola , ';
s := s+ ' Design , ';
s := s+ ' Eve , ';
s := s+ ' Fine ';
s := s+ ' )'+ ';
s := s+ ' values ( ';
s := s+ ' '''+AceDBEdit.Text +''', ';
s := s+ ' '''+BeeDBEdit.Text +''', ';
s := s+ ' '''+ColaDBEdit.Text +''', ';
s := s+ ' '''+DesignDBEdit.Text +''', ';
s := s+ ' '''+EveDBEdit.TextFineDBEdit.Text +''' ';
s := s+ ' ) ';