한국 델파이 개발자 모임 - 소스좀 봐주세여

소스좀 봐주세여

이런식으루 간단히 insert 하는 부분인데

왜 Type Mismatch가 나오는지 전혀 모르겠어여.....

제발 가르쳐 주세여...

======================================================

with DM.qry_hosp do

begin

Close;

SQL.Clear;

SQL.Add('insert into "HOSP.db"');

SQL.Add('(병원구분, 병원번호, 병원명칭, 정액정률구분, 정률정액명칭, 병원규모코드, 총병상수,');

SQL.Add('총진료과수, 성명, 사업자등록번호, 주소, 전화번호, 은행, 계좌번호, 진찰료선납유무,');

SQL.Add('프린트1, 프린트2, 프린트3, 프린트4, 프린트5, 프린트6, 진찰료감액율, 약주사, 예약결산구분,');

SQL.Add('우편번호, FAX, EMAIL, 분업여부) values');

SQL.Add('(:HospGuBun, :HospNo, :HospName, :JGuBun, :JName, :HospSize, :ByungC,');

SQL.Add(':JinRyoC, :Name, :RegNo, :Addr, :Tel, :Bank, :AccountNo, :JinChal,');

SQL.Add(':Print1, :Print2, :Print3, :Print4, :Print5, :Print6, :JinChalDC, :YakJusa, :Reserve,');

SQL.Add(':Post, :FAX, :EMAIL, :Bunup)');

ParamByName('HospGuBun').AsInteger := HospGuBun;

ParamByName('HospNo').AsString := EdtHospNo.Text;

ParamByName('HospName').AsString := EdtHospName.Text;

ParamByName('JGuBun').AsString := EdtJGuBun.Text;

ParamByName('JName').AsString := EdtJName.Text;

ParamByName('HospSize').AsString := EdtHospSize.Text;

ParamByName('ByungC').AsInteger := ByungC;

ParamByName('JinRyoC').AsInteger := JinRyoC;

ParamByName('Name').AsString := EdtName.Text;

ParamByName('RegNo').AsString := EdtRegNo.Text;

ParamByName('Addr').AsString := EdtAddr.Text;

ParamByName('Tel').AsString := EdtTel.Text;

ParamByName('Bank').AsString := EdtBank.Text;

showmessage(EdtJinChal.Text);

ParamByName('AccountNo').AsString := EdtAccountNo.Text;

ParamByName('JinChal').AsString := EdtJinChal.Text;

ParamByName('Print1').AsString := Print1;

ParamByName('Print2').AsString := print2;

ParamByName('Print3').AsString := Print3;

ParamByName('Print4').AsString := Print4;

ParamByName('Print5').AsString := Print5;

ParamByName('Print6').AsString := Print6;

ParamByName('JinChalDC').AsInteger := JinChalDC;

ParamByName('YakJusa').AsString := Copy(cboYakJusa.Text, 1, 1);

ParamByName('Reserve').AsString := EdtReserve.Text;

ParamByName('Post').AsString := EdtPost.Text;

ParamByName('FAX').AsString := EdtFax.Text;

ParamByName('EMAIL').AsString := EdtEMail.Text;

ParamByName('Bunup').AsString := EdtBunup.Text;

try

ExecSQL;

except

MessageDlg('병원 DATA 저장 에러', mtError, [mbOK], 0);

exit;

end;

end;

이 게시물을

2 COMMENTS

Umpro • 2001.01.09 23:39

초보초보 wrote:

> 이런식으루 간단히 insert 하는 부분인데

> 왜 Type Mismatch가 나오는지 전혀 모르겠어여.....

> 제발 가르쳐 주세여...

>

> ======================================================

> with DM.qry_hosp do

> begin

> Close;

> SQL.Clear;

> SQL.Add('insert into "HOSP.db"');

> SQL.Add('(병원구분, 병원번호, 병원명칭, 정액정률구분, 정률정액명칭, 병원규모코드, 총병상수,'); <=========여기 한글을 필드명으로 빠꾸어 주어야 하지 않나요 ???

> SQL.Add('총진료과수, 성명, 사업자등록번호, 주소, 전화번호, 은행, 계좌번호, 진찰료선납유무,');

> SQL.Add('프린트1, 프린트2, 프린트3, 프린트4, 프린트5, 프린트6, 진찰료감액율, 약주사, 예약결산구분,');

> SQL.Add('우편번호, FAX, EMAIL, 분업여부) values');

> SQL.Add('(:HospGuBun, :HospNo, :HospName, :JGuBun, :JName, :HospSize, :ByungC,');

> SQL.Add(':JinRyoC, :Name, :RegNo, :Addr, :Tel, :Bank, :AccountNo, :JinChal,');

> SQL.Add(':Print1, :Print2, :Print3, :Print4, :Print5, :Print6, :JinChalDC, :YakJusa, :Reserve,');

> SQL.Add(':Post, :FAX, :EMAIL, :Bunup)');

>

> ParamByName('HospGuBun').AsInteger := HospGuBun; <====요기에 .Text가 안 /빠졌나요?....

> ParamByName('HospNo').AsString := EdtHospNo.Text;

> ParamByName('HospName').AsString := EdtHospName.Text;

> ParamByName('JGuBun').AsString := EdtJGuBun.Text;

> ParamByName('JName').AsString := EdtJName.Text;

> ParamByName('HospSize').AsString := EdtHospSize.Text;

> ParamByName('ByungC').AsInteger := ByungC;

> ParamByName('JinRyoC').AsInteger := JinRyoC;

> ParamByName('Name').AsString := EdtName.Text;

> ParamByName('RegNo').AsString := EdtRegNo.Text;

> ParamByName('Addr').AsString := EdtAddr.Text;

> ParamByName('Tel').AsString := EdtTel.Text;

> ParamByName('Bank').AsString := EdtBank.Text;

> showmessage(EdtJinChal.Text);

> ParamByName('AccountNo').AsString := EdtAccountNo.Text;

> ParamByName('JinChal').AsString := EdtJinChal.Text;

> ParamByName('Print1').AsString := Print1;

> ParamByName('Print2').AsString := print2;

> ParamByName('Print3').AsString := Print3;

> ParamByName('Print4').AsString := Print4;

> ParamByName('Print5').AsString := Print5;

> ParamByName('Print6').AsString := Print6;

> ParamByName('JinChalDC').AsInteger := JinChalDC;

> ParamByName('YakJusa').AsString := Copy(cboYakJusa.Text, 1, 1);

> ParamByName('Reserve').AsString := EdtReserve.Text;

> ParamByName('Post').AsString := EdtPost.Text;

> ParamByName('FAX').AsString := EdtFax.Text;

> ParamByName('EMAIL').AsString := EdtEMail.Text;

> ParamByName('Bunup').AsString := EdtBunup.Text;

>

> try

> ExecSQL;

> except

> MessageDlg('병원 DATA 저장 에러', mtError, [mbOK], 0);

> exit;

> end;

>

> end;

필드 Type와 입력받는 타입이 같아야 하는건 아시죠.

Type Mismatch 이니까 어디부분에서 Type이 잘못 된거 같군요...
- 0
- 0
- 삭제
- 수정
- 댓글
Umpro • 2001.01.09 23:46

Umpro wrote:

> 초보초보 wrote:

> > 이런식으루 간단히 insert 하는 부분인데

> > 왜 Type Mismatch가 나오는지 전혀 모르겠어여.....

> > 제발 가르쳐 주세여...

> >

> > ======================================================

> > with DM.qry_hosp do

> > begin

> > Close;

> > SQL.Clear;

> > SQL.Add('insert into "HOSP.db"');

> > SQL.Add('(병원구분, 병원번호, 병원명칭, 정액정률구분, 정률정액명칭, 병원규모코드, 총병상수,'); <=========여기부터 한글을 필드명(원래 필드명)으로 빠꾸어 주어야 하지 않나요 ???

> > SQL.Add('총진료과수, 성명, 사업자등록번호, 주소, 전화번호, 은행, 계좌번호, 진찰료선납유무,');

> > SQL.Add('프린트1, 프린트2, 프린트3, 프린트4, 프린트5, 프린트6, 진찰료감액율, 약주사, 예약결산구분,');

> > SQL.Add('우편번호, FAX, EMAIL, 분업여부) values');

> > SQL.Add('(:HospGuBun, :HospNo, :HospName, :JGuBun, :JName, :HospSize, :ByungC,');

> > SQL.Add(':JinRyoC, :Name, :RegNo, :Addr, :Tel, :Bank, :AccountNo, :JinChal,');

> > SQL.Add(':Print1, :Print2, :Print3, :Print4, :Print5, :Print6, :JinChalDC, :YakJusa, :Reserve,');

> > SQL.Add(':Post, :FAX, :EMAIL, :Bunup)');

> >

> > ParamByName('HospGuBun').AsInteger := HospGuBun; <====요기에 입력받는 Type 이 Integer 인가요?....

> > ParamByName('HospNo').AsString := EdtHospNo.Text;

> > ParamByName('HospName').AsString := EdtHospName.Text;

> > ParamByName('JGuBun').AsString := EdtJGuBun.Text;

> > ParamByName('JName').AsString := EdtJName.Text;

> > ParamByName('HospSize').AsString := EdtHospSize.Text;

> > ParamByName('ByungC').AsInteger := ByungC;<====요기에 입력받는 Type 이 Integer 인가요?....

> > ParamByName('JinRyoC').AsInteger := JinRyoC; <====요기에 입력받는 Type 이 Integer 인가요?....

> > ParamByName('Name').AsString := EdtName.Text;

> > ParamByName('RegNo').AsString := EdtRegNo.Text;

> > ParamByName('Addr').AsString := EdtAddr.Text;

> > ParamByName('Tel').AsString := EdtTel.Text;

> > ParamByName('Bank').AsString := EdtBank.Text;

> > showmessage(EdtJinChal.Text);

> > ParamByName('AccountNo').AsString := EdtAccountNo.Text;

> > ParamByName('JinChal').AsString := EdtJinChal.Text;

> > ParamByName('Print1').AsString := Print1; <===요부터는 변수인가요? 아님 0000.Text인가요?

> > ParamByName('Print2').AsString := print2;

> > ParamByName('Print3').AsString := Print3;

> > ParamByName('Print4').AsString := Print4;

> > ParamByName('Print5').AsString := Print5;

> > ParamByName('Print6').AsString := Print6;

> > ParamByName('JinChalDC').AsInteger := JinChalDC; <====요기에 입력받는 Type 이 Integer 인가요?....

> > ParamByName('YakJusa').AsString := Copy(cboYakJusa.Text, 1, 1);

> > ParamByName('Reserve').AsString := EdtReserve.Text;

> > ParamByName('Post').AsString := EdtPost.Text;

> > ParamByName('FAX').AsString := EdtFax.Text;

> > ParamByName('EMAIL').AsString := EdtEMail.Text;

> > ParamByName('Bunup').AsString := EdtBunup.Text;

> >

> > try

> > ExecSQL;

> > except

> > MessageDlg('병원 DATA 저장 에러', mtError, [mbOK], 0);

> > exit;

> > end;

> >

> > end;

필드 Type와 입력받는 타입이 같아야 하는건 아시죠.

Type Mismatch 이니까 어디부분에서 Type이 잘못 된거 같군요...

도움이 되었으면 좋겠습니다.

>
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 초보초보
- •
- 2001.01.09 22:41
- 2 COMMENTS
- /
- 0 LIKES
소스좀 봐주세여

이런식으루 간단히 insert 하는 부분인데 왜 Type Mismatch가 나오는지 전혀 모르겠어여..... 제발 가르쳐 주세여... ====================================================== with DM.qry_hosp do begin Close; SQL.Clear; SQL.Add('ins...
- Umpro
  
  •
  
  2001.01.09 23:39
  
  초보초보 wrote: > 이런식으루 간단히 insert 하는 부분인데 > 왜 Type Mismatch가 나오는지 전혀 모르겠...
- Umpro
  
  •
  
  2001.01.09 23:46
  
  Umpro wrote: > 초보초보 wrote: > > 이런식으루 간단히 insert 하는 부분인데 > > 왜 Type Mismatch가 ...
- 최문진
- •
- 2001.01.09 22:21
- 1 COMMENTS
- /
- 0 LIKES
Tmemo Field내용 DB에 저장하는데 문제있음
- xdelphi
  
  •
  
  2001.01.10 02:28
  
  최문진 wrote: > // 프로그램 소스 > with QFltsInfoRgst do > begin > Close; > SQL.Cle...
- lubzzon
- •
- 2001.01.09 22:19
- 1 COMMENTS
- /
- 0 LIKES
ODBC로 리눅스 mysql을 끌어왔을때
- +^-_-^+
  
  •
  
  2001.01.10 07:10
  
  yo` sql 구문을 사용하시면 됩니다. alter table test add yo char(5) deafult '' 이런식으로.....
- 성병규
- •
- 2001.01.09 22:11
- 3 COMMENTS
- /
- 0 LIKES
[인디소켓질문]에러처리는 어떻게.
- 조승연
  
  •
  
  2001.02.24 20:57
  
  물론 가능합니다. 소켓 컴포넌트의 Event가 ONERROR일때 코딩하면 되지여.. procedure TfmChatClr.Serve...
- 조승연
  
  •
  
  2001.02.24 20:57
  
  물론 가능합니다. 소켓 컴포넌트의 Event가 ONERROR일때 코딩하면 되지여.. procedure TfmChatClr.Serve...
- 조승연
  
  •
  
  2001.02.24 20:56
  
  물론 가능합니다. 소켓 컴포넌트의 Event가 ONERROR일때 코딩하면 되지여.. procedure TfmChatClr.Serve...
- 필승이
- •
- 2001.01.09 22:08
- 2 COMMENTS
- /
- 0 LIKES
소켓프로그램에서..다중소켓연결???
- 비즈코리아
  
  •
  
  2001.01.10 03:22
  
  [비즈코리아] 이런 경우에도 Thread를 사용해서 별도의 프로세서로 운용하시면 좋지요. 즉. 동시에 두개...
- TMS
  
  •
  
  2001.01.09 22:34
  
  필승이 wrote: > 안녕하세요. > 새해에도 복많이받으세요. > .. > 한가지 물어보겠습니다. > 클라이언...
- 초보
- •
- 2001.01.09 22:04
- 2 COMMENTS
- /
- 0 LIKES
DBRichEdit 에서 글짜가 "눈□□□□□" 처럼 깨어지는 현상
- guest
  
  •
  
  2001.01.20 06:11
  
  초보 wrote: > 질문{ > > 눈에 많이 오내요 > > > > DBRichEdit에서 깨지는 데 이유를 모르 겠네요 >...
- 전상욱
  
  •
  
  2001.01.10 02:22
  
  초보 wrote: > 질문{ > > 눈에 많이 오내요 > > > > DBRichEdit에서 깨지는 데 이유를 모르 겠네요 >...
- 김기성
- •
- 2001.01.09 21:25
- 1 COMMENTS
- /
- 0 LIKES
Install Shielld 구할수 있는곳..
- 비즈코리아
  
  •
  
  2001.01.10 03:23
  
  [비즈코리아] install shield는 델파이CD안에 들어있답니다. 찾아보세요... ==========================...
- 필승이
- 2001.01.09 21:15
- 0 COMMENTS
- /
- 0 LIKES
소켓프로그램에서..다중소켓연결???
- 남현선
- 2001.01.09 21:07
- 0 COMMENTS
- /
- 0 LIKES
F1 Book Source Open Error
- 안장근
- 2001.01.09 21:05
- 0 COMMENTS
- /
- 0 LIKES
[질문}저장프로시저 문제.. [Please]
- 선
- 2001.01.09 21:02
- 0 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.
- 왕쵸뽀
- •
- 2001.01.09 20:53
- 1 COMMENTS
- /
- 0 LIKES
오라클에러코드목록..
- 방경주
  
  •
  
  2001.01.09 20:56
  
  오라클을 구입하면 딸려서 옵니다... 시중에서도 구할수 있나? -_-; 왕쵸뽀 wrote: > 오라클에러코...
- 델초보
- 2001.01.09 20:42
- 0 COMMENTS
- /
- 0 LIKES
버전이.....업데이트가... 엑티브 엑스..허걱..
- hobakpa
- •
- 2001.01.09 20:37
- 3 COMMENTS
- /
- 0 LIKES
Serial통신 관련 초짜에게 따듯한 한마디의 도움을...
- eewook
  
  •
  
  2001.01.10 10:54
  
  hobakpa wrote: > 아이고 지겹게 눈이 내립니다. 이동하실때 몸조심들 하세요. > > 질문 드리겠습니다....
- ksb5073@magicn.co.kr
  
  •
  
  2001.02.10 00:39
  
  eewook wrote: > hobakpa wrote: > > 아이고 지겹게 눈이 내립니다. 이동하실때 몸조심들 하세요. > > ...
- hobakpa
  
  •
  
  2001.01.10 20:12
  
  > 안녕하셔요.. > 시리얼통신 컴퍼넌트부분이 자료실에서 검색해보면 있어요,,,써보진안았습니다. > ...
- 선
- 2001.01.09 20:33
- 0 COMMENTS
- /
- 0 LIKES
dibeng.dll
- 델초보
- •
- 2001.01.09 20:24
- 1 COMMENTS
- /
- 0 LIKES
델파이 HELP 한글판 있습니까?
- 액션가면
  
  •
  
  2001.01.09 22:28
  
  안녕하세염~ 정품 구입시 한글메뉴얼이 같이 따라나옵니다.. 메뉴얼은 헬프와 동일한데 헬프화일은 ...
- 쫑현이
- 2001.01.09 20:21
- 0 COMMENTS
- /
- 0 LIKES
쓰레드 내부에서 생성된 동적객체의 소멸에 대해~~~
- 미로
- •
- 2001.01.09 19:45
- 1 COMMENTS
- /
- 0 LIKES
익스플로러의 Textbox에 글쓰기
- 서성호
  
  •
  
  2001.01.25 08:08
  
  미로 wrote: > 안녕하세요..... > 델파이에서 만든 프로그램에서 떠있는 홈페이지의 > edit box나 text ...
- 효진
- •
- 2001.01.09 19:37
- 4 COMMENTS
- /
- 0 LIKES
""SQL!!!"" 특정레코드를 찾기
- 방경주
  
  •
  
  2001.01.09 20:58
  
  Select HN.HistoryNumber from maxhistoryNumber HN where HN.risonnumber='aaa' 효진 wrote: ...
- 효진
  
  •
  
  2001.01.09 23:31
  
  SQL = "Select HN.HistoryNumber " & _ "From maxhistoryNumber HN " & _ "Where HN.prison...
- 방경주
  
  •
  
  2001.01.10 00:14
  
  " 과 ' 라....전 "와 '....머 이래서 멀 물어보시는 건지 한참 고민 했슴돠...-_-;; 님께서 말씀 하신데...
- 효진
  
  •
  
  2001.01.10 00:52
  
  거참 그냥 "aaa"
- 전진운
- 2001.01.09 19:31
- 0 COMMENTS
- /
- 0 LIKES
외국어 버전을 만드는 방법?

초보초보
2001/01/09 22:41
Views286

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

2016 2017 2018 2019 2020 2021 2022 2023 2024 2025

Last Page→