Q&A
- 왜 자꾸만 syntax error가 나는지 좀 봐주세여 [소스첨부]
db는 mySql 이구여....
이미 테이블은있는 상태....부탁드립니다...
전 아무리 봐두 별 문제 없는거 같은데 자꾸 에러가 발생하네여 ㅜ.ㅜ
//------------------------------------------------------------------------------
// 등록
//------------------------------------------------------------------------------
procedure TfrmIpgoEdit.IpgoInsert;
var
jw, jm, ju : string;
cd: Integer;
begin
{콤보박스에 ItemIndex 임다..}
if tName.ItemIndex > -1 then
jw := tName.Values[tName.ItemIndex]
else
jw := '-1';
if tVndr.ItemIndex > -1 then
jm := tVndr.Values[tVndr.ItemIndex]
else
jm := '-1';
if tGubn.ItemIndex > -1 then
ju := tGubn.Values[tGubn.ItemIndex]
else
ju := '-1';
{ 입고에 관련된 물품을 관리하는 db}
with TZMySqlQuery.Create(Application) do
begin
try
Database := frmBioBrowser.WaterDB;
Transaction := frmBioBrowser.LocalTransact;
SQL.Clear;
SQL.Add(' Insert Into wt_ipgo ( ip_ipdt, ip_vndr, ip_dank, ip_qty, ');
SQL.Add(' ip_amnt, ip_gubn, ip_pmcd) ');
SQL.Add(' Values ( '''+tIpdt.text+''', '+jm+', '''+NumtoStr(tDank.text)+''', ');
SQL.Add(' '''+NumtoStr(tQty.text)+''', '''+NumtoStr(tAmnt.text)+''', '+ju+' ');
ExecSql;
SQL.Clear;
SQL.Add(' select Last_insert_id() ');
Open;
cd := Fields[0].AsInteger;
Close;
finally
Free;
end;
frmIpgos.qryIpgoUpdate(cd); { 요건 프로시저임다 }
end;
end;
이미 테이블은있는 상태....부탁드립니다...
전 아무리 봐두 별 문제 없는거 같은데 자꾸 에러가 발생하네여 ㅜ.ㅜ
//------------------------------------------------------------------------------
// 등록
//------------------------------------------------------------------------------
procedure TfrmIpgoEdit.IpgoInsert;
var
jw, jm, ju : string;
cd: Integer;
begin
{콤보박스에 ItemIndex 임다..}
if tName.ItemIndex > -1 then
jw := tName.Values[tName.ItemIndex]
else
jw := '-1';
if tVndr.ItemIndex > -1 then
jm := tVndr.Values[tVndr.ItemIndex]
else
jm := '-1';
if tGubn.ItemIndex > -1 then
ju := tGubn.Values[tGubn.ItemIndex]
else
ju := '-1';
{ 입고에 관련된 물품을 관리하는 db}
with TZMySqlQuery.Create(Application) do
begin
try
Database := frmBioBrowser.WaterDB;
Transaction := frmBioBrowser.LocalTransact;
SQL.Clear;
SQL.Add(' Insert Into wt_ipgo ( ip_ipdt, ip_vndr, ip_dank, ip_qty, ');
SQL.Add(' ip_amnt, ip_gubn, ip_pmcd) ');
SQL.Add(' Values ( '''+tIpdt.text+''', '+jm+', '''+NumtoStr(tDank.text)+''', ');
SQL.Add(' '''+NumtoStr(tQty.text)+''', '''+NumtoStr(tAmnt.text)+''', '+ju+' ');
ExecSql;
SQL.Clear;
SQL.Add(' select Last_insert_id() ');
Open;
cd := Fields[0].AsInteger;
Close;
finally
Free;
end;
frmIpgos.qryIpgoUpdate(cd); { 요건 프로시저임다 }
end;
end;
2
COMMENTS
-
-
전짱 wrote:
> db는 mySql 이구여....
> 이미 테이블은있는 상태....부탁드립니다...
> 전 아무리 봐두 별 문제 없는거 같은데 자꾸 에러가 발생하네여 ㅜ.ㅜ
>
> //------------------------------------------------------------------------------
> // 등록
> //------------------------------------------------------------------------------
> procedure TfrmIpgoEdit.IpgoInsert;
> var
> jw, jm, ju : string;
> cd: Integer;
> begin
>
> {콤보박스에 ItemIndex 임다..}
> if tName.ItemIndex > -1 then
> jw := tName.Values[tName.ItemIndex]
> else
> jw := '-1';
>
> if tVndr.ItemIndex > -1 then
> jm := tVndr.Values[tVndr.ItemIndex]
> else
> jm := '-1';
>
> if tGubn.ItemIndex > -1 then
> ju := tGubn.Values[tGubn.ItemIndex]
> else
> ju := '-1';
>
> { 입고에 관련된 물품을 관리하는 db}
> with TZMySqlQuery.Create(Application) do
> begin
> try
> Database := frmBioBrowser.WaterDB;
> Transaction := frmBioBrowser.LocalTransact;
> SQL.Clear;
> SQL.Add(' Insert Into wt_ipgo ( ip_ipdt, ip_vndr, ip_dank, ip_qty, ');
> SQL.Add(' ip_amnt, ip_gubn, ip_pmcd) ');
> SQL.Add(' Values ( '''+tIpdt.text+''', '+jm+', '''+NumtoStr(tDank.text)+''', ');
> SQL.Add(' '''+NumtoStr(tQty.text)+''', '''+NumtoStr(tAmnt.text)+''', '+ju+' ');
> SQL.Add(' '''+NumtoStr(tQty.text)+''', '''+NumtoStr(tAmnt.text)+''', '+ju' ');//'+'를 빼보세요
> ExecSql;
>
> SQL.Clear;
> SQL.Add(' select Last_insert_id() ');
> Open;
> cd := Fields[0].AsInteger;
> Close;
> finally
> Free;
> end;
> frmIpgos.qryIpgoUpdate(cd); { 요건 프로시저임다 }
> end;
> end;
(NOTICE) You must be logged in to comment on this post.
-
-
-
- 성필
- •
- 2001.12.15 03:50
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.12.15 04:08성필 wrote: > 안녕하세요. > 지금 libmysql.dll 파일을 이용해서 원격으로 mysql 서버에 접속하려고 합...
-
- 한반도
- •
- 2001.12.15 02:49
- 3 COMMENTS
- /
- 0 LIKES
-
김하늘•2001.12.17 23:40앞에분과 대답이 같네요... 사용자 DB를 구축하던가, 파일로 가지고 있던가 이게 가장 좋겠지요 onExecut...
-
한반도•2001.12.15 03:40AThread.Connection.Disconnect ; indy 첨이라..저런게 있더군요. ㅡㅡ^
-
티모니•2001.12.15 03:27누군가 서버에 접속을 했을때 발생하는 IP를 허가된 IP와 대조하면 해결되지 않나여? DB를 이용해서 하...
-
- 전짱
- •
- 2001.12.15 02:26
- 2 COMMENTS
- /
- 0 LIKES
db는 mySql 이구여.... 이미 테이블은있는 상태....부탁드립니다... 전 아무리 봐두 별 문제 없는거 같은데 자꾸 에러가 발생하네여 ㅜ.ㅜ //------------------------------------------------------------------------------ // 등록 //...-
OneShot•2001.12.15 23:52Insert into ... values ( ... ) 이 원하는 쿼리일텐데 values 에서 끝의 괄호가 빠졌네요.... 전짱...
-
초보•2001.12.15 05:40전짱 wrote: > db는 mySql 이구여.... > 이미 테이블은있는 상태....부탁드립니다... > 전 아무리 봐두 ...
-
- 바보
- •
- 2001.12.15 02:18
- 1 COMMENTS
- /
- 0 LIKES
-
kuma•2001.12.15 02:25리턴값을 확인해 보세요... 0: 메모리/리소스 부족 2: 파일을 찾지 못함 3: 경로가 잘못됨 11: 실행파...
-
- 박준영
- 2001.12.15 02:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2001.12.15 01:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 음냐리..
- 2001.12.15 01:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 헬프미
- •
- 2001.12.15 01:36
- 3 COMMENTS
- /
- 0 LIKES
-
지나가다가..•2001.12.16 02:31텍스트 데이터를 DB에 INSERT하는 부분이 문제가 있을겁니다. 코딩자체가 문제가 아니라 많은 양의 ...
-
깨구락지•2001.12.15 17:23그냥 텍스트파일을 이용하거나 엑셀파일로 변환한후 SQL의 DTS 를 이용해보십시오. 깨굴~ 헬프미 wr...
-
헬프미•2001.12.15 20:22밑에 소스중 어떤것이 문제인가요... 텍스트파일을 이용한건데 느리거든요... Table1.Post시 오래걸리는...
-
- 델파이초보
- •
- 2001.12.15 00:22
- 4 COMMENTS
- /
- 0 LIKES
-
Bulduki•2001.12.15 03:42안녕하십니까? 어떤 방법으로 하셨나요? 제가 Form1에서 Form2를 Show할때 해보니까 되는데요... ...
-
더초보•2001.12.15 00:27uses Unit1; 라구...해서 폼2에서 폼1을 사용하게 해주시면 됩니다...^^
-
델파이초보•2001.12.15 00:43그렇게 했답니다.제가 헤더파일에 선언해줬다고 썼는데요. 그래도 에러가 납니다. 더초보 wrote: > us...
-
parkisu•2001.12.15 04:13델파이초보 wrote: > 그렇게 했답니다.제가 헤더파일에 선언해줬다고 썼는데요. > 그래도 에러가 납니다....
-
- 장정호
- •
- 2001.12.14 23:31
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•2001.12.15 04:00응용프로그램간의 데이타 교환방법은 여러가지가 있습니다. 그중 가장 많이 사용하는게. WM_COPYDATA 메...
-
버섯•2001.12.15 00:27장정호 wrote: > 안녕하세요... > > 델파이 초보 입니다.. > > 서로 다른 2개의 델파이 실행 프로그...
-
- 커피맨
- •
- 2001.12.15 02:09
- 3 COMMENTS
- /
- 0 LIKES
-
초보동생•2001.12.15 20:57초보인 제생각엔 DB 저장시 그냥 '200011' 이런식으로 입력하시고, 대신 MaskEdit를 사용하시면 더 편하지...
-
바보•2001.12.15 02:21커피맨 wrote: > 델파이 초보라 질문만 자주 올립니다 > 그렇지만 델파이 가족이라는(^^) 소속감으루 ......
-
주변머리•2001.12.15 09:54바보 wrote: > 커피맨 wrote: > > 델파이 초보라 질문만 자주 올립니다 > > 그렇지만 델파이 가족이라는...
-
- 눈길
- •
- 2001.12.14 22:50
- 1 COMMENTS
- /
- 0 LIKES
-
버섯•2001.12.15 00:32눈길 wrote: > 안녕하세요 > 델파이5.0을 쓰고 파라독스를 쓰고 있읍니다. > > C:성적관리Db에서 > ...
-
- 아마글래머
- •
- 2001.12.14 22:52
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.12.15 01:20아마글래머 wrote: > 윈도우에서 바탕화면을 클릭하거나 더블클릭했을때 일어나는 이벤트를 잡아내고 싶습...
-
- 박준영
- 2001.12.14 21:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 델맨
- 2001.12.14 21:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2001.12.14 21:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2001.12.14 21:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 최병련
- 2001.12.14 20:52
- 0 COMMENTS
- /
- 0 LIKES
values ( ... )
이 원하는 쿼리일텐데 values 에서 끝의 괄호가 빠졌네요....
전짱 wrote:
> db는 mySql 이구여....
> 이미 테이블은있는 상태....부탁드립니다...
> 전 아무리 봐두 별 문제 없는거 같은데 자꾸 에러가 발생하네여 ㅜ.ㅜ
>
> //------------------------------------------------------------------------------
> // 등록
> //------------------------------------------------------------------------------
> procedure TfrmIpgoEdit.IpgoInsert;
> var
> jw, jm, ju : string;
> cd: Integer;
> begin
>
> {콤보박스에 ItemIndex 임다..}
> if tName.ItemIndex > -1 then
> jw := tName.Values[tName.ItemIndex]
> else
> jw := '-1';
>
> if tVndr.ItemIndex > -1 then
> jm := tVndr.Values[tVndr.ItemIndex]
> else
> jm := '-1';
>
> if tGubn.ItemIndex > -1 then
> ju := tGubn.Values[tGubn.ItemIndex]
> else
> ju := '-1';
>
> { 입고에 관련된 물품을 관리하는 db}
> with TZMySqlQuery.Create(Application) do
> begin
> try
> Database := frmBioBrowser.WaterDB;
> Transaction := frmBioBrowser.LocalTransact;
> SQL.Clear;
> SQL.Add(' Insert Into wt_ipgo ( ip_ipdt, ip_vndr, ip_dank, ip_qty, ');
> SQL.Add(' ip_amnt, ip_gubn, ip_pmcd) ');
> SQL.Add(' Values ( '''+tIpdt.text+''', '+jm+', '''+NumtoStr(tDank.text)+''', ');
> SQL.Add(' '''+NumtoStr(tQty.text)+''', '''+NumtoStr(tAmnt.text)+''', '+ju+' ');
> ExecSql;
>
> SQL.Clear;
> SQL.Add(' select Last_insert_id() ');
> Open;
> cd := Fields[0].AsInteger;
> Close;
> finally
> Free;
> end;
> frmIpgos.qryIpgoUpdate(cd); { 요건 프로시저임다 }
> end;
> end;