Q&A
- update 쿼리문 에러가 나네요,, 도와주세요,,
procedure TFequip_insert.BitBtn5Click(Sender: TObject);
begin
dm2.ADODataSet1.Close;
dm2.ADOConnection1.open;
with DM2.ADOQuery16 do begin
dm2.ADOQuery16.close;
dm2.ADOQuery16.SQL.Clear;
dm2.ADOQuery16.SQL.ADD(' select equ_large, equ_middle, equ_name, unitcost, equ_rule, depment, person, equ_state, building, room, nation, company_made, company_buy, company_repair, buydate, repairdate, ruler, useyear, lendyn, notecolumn, img from equ_content where equ_num = ''' + equ_num.Text + '''');
open;
first;
end;
With dm2.ADOQuery17 do Begin
dm2.ADOQuery17.Close;
dm2.ADOQuery17.SQL.Clear;
dm2.ADOQuery17.SQL.Add('update equ_content SET equ_large = :combobox1_class_name, equ_middle = :Combobox2_class_step1, equ_name = :combobox3_Class_step2, unitcost = :Edit6_unitcost, equ_rule = :Edit1_equ_rule, person = :Combobox25_person_name, equ_state = :combobox5_state_name, building = :combobox6_build_name, room = :combobox7_build_room, nation = :combobox8_nation_name, company_made = :combobox9_company_made, company_buy = :combobox10_company_buy, company_repair = :combobox11_company_repair, buydate = :buydate, repairdate = :edit4_repairdate, ruler = :combobox12_ruler_name, useyear = :edit5_useyear, lendyn = :checkbox2, notecolumn = :notecolumn WHERE equ_num = ''' + equ_num.text ''''); //이부분이 687부분입니다
Parameters.ParamByName('equ_large') := combobox1_class_name.Text;
Parameters.ParamByName('equ_middle') := combobox2_class_step1.Text;
Parameters.ParamByName('equ_name') := combobox3_class_step2.Text;
Parameters.ParamByName('unitcost') := Edit6_unitcost.Text;
Parameters.ParamByName('equ_rule') := edit1_equ_rule.Text;
Parameters.ParamByName('depment') := combobox4_dep_name.Text;
Parameters.ParamByName('person') := combobox25_person_name.Text;
Parameters.ParamByName('equ_state') := combobox5_state_name.Text;
Parameters.ParamByName('building') := combobox6_build_name.Text;
Parameters.ParamByName('room') := combobox7_build_room.Text;
Parameters.ParamByName('nation') := combobox8_nation_name.Text;
Parameters.ParamByName('company_made') := combobox9_company_made.Text;
Parameters.ParamByName('company_buy') := combobox10_company_buy.Text;
Parameters.ParamByName('company_repair') := combobox11_company_repair.Text;
Parameters.ParamByName('buydate') := buydate.Text;
Parameters.ParamByName('repairdate') := edit4_repairdate.Text;
Parameters.ParamByName('ruler') := combobox12_ruler_name.Text;
Parameters.ParamByName('useyear') := edit5_useyear.Text;
Parameters.ParamByName('lendyn') := checkbox2.Text;
Parameters.ParamByName('notecolumn') := notecolumn.Text;
ExecSql;
end;
dm2.ADODataSet1.Open;
if DM2.ADOQuery17.Active <> True then begin
DM2.ADOQuery17.Active := True
end;
end;
에러 메세지
[Error] Uinsert.pas(687): String literals may have at most 255 elements
라고 에러문이 나는데 아무래도 update쿼리문에 에러가 난것 같은데,,
잘모르겠어요,, ^^ 도와주시면 감사하겠습니다
begin
dm2.ADODataSet1.Close;
dm2.ADOConnection1.open;
with DM2.ADOQuery16 do begin
dm2.ADOQuery16.close;
dm2.ADOQuery16.SQL.Clear;
dm2.ADOQuery16.SQL.ADD(' select equ_large, equ_middle, equ_name, unitcost, equ_rule, depment, person, equ_state, building, room, nation, company_made, company_buy, company_repair, buydate, repairdate, ruler, useyear, lendyn, notecolumn, img from equ_content where equ_num = ''' + equ_num.Text + '''');
open;
first;
end;
With dm2.ADOQuery17 do Begin
dm2.ADOQuery17.Close;
dm2.ADOQuery17.SQL.Clear;
dm2.ADOQuery17.SQL.Add('update equ_content SET equ_large = :combobox1_class_name, equ_middle = :Combobox2_class_step1, equ_name = :combobox3_Class_step2, unitcost = :Edit6_unitcost, equ_rule = :Edit1_equ_rule, person = :Combobox25_person_name, equ_state = :combobox5_state_name, building = :combobox6_build_name, room = :combobox7_build_room, nation = :combobox8_nation_name, company_made = :combobox9_company_made, company_buy = :combobox10_company_buy, company_repair = :combobox11_company_repair, buydate = :buydate, repairdate = :edit4_repairdate, ruler = :combobox12_ruler_name, useyear = :edit5_useyear, lendyn = :checkbox2, notecolumn = :notecolumn WHERE equ_num = ''' + equ_num.text ''''); //이부분이 687부분입니다
Parameters.ParamByName('equ_large') := combobox1_class_name.Text;
Parameters.ParamByName('equ_middle') := combobox2_class_step1.Text;
Parameters.ParamByName('equ_name') := combobox3_class_step2.Text;
Parameters.ParamByName('unitcost') := Edit6_unitcost.Text;
Parameters.ParamByName('equ_rule') := edit1_equ_rule.Text;
Parameters.ParamByName('depment') := combobox4_dep_name.Text;
Parameters.ParamByName('person') := combobox25_person_name.Text;
Parameters.ParamByName('equ_state') := combobox5_state_name.Text;
Parameters.ParamByName('building') := combobox6_build_name.Text;
Parameters.ParamByName('room') := combobox7_build_room.Text;
Parameters.ParamByName('nation') := combobox8_nation_name.Text;
Parameters.ParamByName('company_made') := combobox9_company_made.Text;
Parameters.ParamByName('company_buy') := combobox10_company_buy.Text;
Parameters.ParamByName('company_repair') := combobox11_company_repair.Text;
Parameters.ParamByName('buydate') := buydate.Text;
Parameters.ParamByName('repairdate') := edit4_repairdate.Text;
Parameters.ParamByName('ruler') := combobox12_ruler_name.Text;
Parameters.ParamByName('useyear') := edit5_useyear.Text;
Parameters.ParamByName('lendyn') := checkbox2.Text;
Parameters.ParamByName('notecolumn') := notecolumn.Text;
ExecSql;
end;
dm2.ADODataSet1.Open;
if DM2.ADOQuery17.Active <> True then begin
DM2.ADOQuery17.Active := True
end;
end;
에러 메세지
[Error] Uinsert.pas(687): String literals may have at most 255 elements
라고 에러문이 나는데 아무래도 update쿼리문에 에러가 난것 같은데,,
잘모르겠어요,, ^^ 도와주시면 감사하겠습니다
2
COMMENTS
-
-
^^감사합니다,, 세심하게 프로그램 정리두 해주셔서요,, 즐거운 설 보내시길 바랄께여^^
(NOTICE) You must be logged in to comment on this post.
-
- 보리문디
- •
- 2004.01.20 04:14
- 1 COMMENTS
- /
- 0 LIKES
-
sallyslaw•2004.02.02 19:05TDatabase 컴포를 사용하셨다면 프로퍼티 중에 Login Prompt 체크하는 것이 있습니다. 이걸 False로 하...
-
- 박준영
- •
- 2004.01.20 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2004.01.29 23:47TField객체의 특성이라고 해얄지.. DBMS의 특성이라고 해야할지 모르겠습니다만 일반적으로 델파이의 TQu...
-
- 강지형
- 2004.01.20 02:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 마이크로디지털
- •
- 2004.01.20 01:18
- 2 COMMENTS
- /
- 0 LIKES
-
남양원•2004.01.20 02:03CStream.Seek(0, soFromEnd)...
-
마이크로디지털•2004.01.20 05:28정말 감사합니다.. 이제 좀 이해가 되네요 ^^" 스트림의 특성을 모르고 일반 변수처럼 생각해서 문제가 ...
-
- 김진석
- •
- 2004.01.20 00:54
- 2 COMMENTS
- /
- 0 LIKES
-
박진수•2004.01.20 22:20팁 게시판에 ADO관련 부분을 찾아보세요..
-
김진석•2004.02.17 20:46안찾아봤겠습니까? 그런 문제가 아니고 ADOQuery 에 Group By 구문이 들어가면 ADOQuery Componen...
-
- 곰다방~미스김
- •
- 2004.01.20 00:19
- 4 COMMENTS
- /
- 0 LIKES
-
손희석•2004.01.21 06:34클리어 메서드가 있네요 if _rain <> '' then ...
-
델파이6•2004.01.20 00:52이렇게 하면 안될까요. if _rain <> '' then &...
-
곰다방~미스김•2004.01.20 01:16db 테이블에 지정된 타입이 float타입이라그런지 null값이 들어가는게 아니라 0 이 들어가네요...기본값엔 ...
-
^ㅡ^•2004.01.20 19:18방법이라고까지 할꺼는 없지만요 일단 Sql문장이 있을꺼에요 Insert 문이든 UpDate 문이든 Delete문이든 ...
-
- 강지형
- •
- •
- 2004.01.20 00:11
- 2 COMMENTS
- /
- 18 LIKES
procedure TFequip_insert.BitBtn5Click(Sender: TObject); begin dm2.ADODataSet1.Close; dm2.ADOConnection1.open; with DM2.ADOQuery16 do begin dm2.ADOQuery16.close; dm2.ADOQuery16.SQL.Clear; dm2.ADOQuery16.SQL.ADD(' select eq...-
이용운•2004.01.20 00:42update sql 문에 depment 필드가 빠졌네요.. 그리고.. With dm2.ADOQuery17 do ...
-
강지형•2004.01.20 00:53^^감사합니다,, 세심하게 프로그램 정리두 해주셔서요,, 즐거운 설 보내시길 바랄께여^^
-
- 알고파요.
- •
- 2004.01.20 00:08
- 2 COMMENTS
- /
- 0 LIKES
-
뚱~•2004.01.20 00:47[팁]에서 <소트>로 검색하시면 답이 있습니다.. ^^
-
알고파요.•2004.01.20 20:54팁을 검색안해봤군요... ^^;; 정말 감사합니다.... 해결됐어요... 정말 감사드리구여... 새해 ...
-
- 김성태
- 2004.01.19 23:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지수
- •
- 2004.01.19 22:23
- 1 COMMENTS
- /
- 0 LIKES
-
시나브로•2004.01.19 23:05답변이 되는지는 모르겠습니다. 예전에도 비슷한걸 질문에 올린분이 계셔서 한번 만들어봤습니다. 참...
-
- Formas
- •
- 2004.01.19 22:13
- 3 COMMENTS
- /
- 0 LIKES
-
이용운•2004.01.20 00:17procedure TForm1.splitpath(const FileName: string; var Adrive, ADir, AFileName ,Aext :string); &n...
-
시나브로•2004.01.19 23:15function ExtractFileDrive(const FileName: string): string; function ExtractFilePath(const FileName:...
-
^ㅡ^•2004.01.19 23:14답변이 될련지 모르겠습니다. ExtractFileName('c:\windows\temp.dat' ) ...
-
- 장의성
- 2004.01.19 22:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 이돌쇠
- •
- 2004.01.19 21:56
- 1 COMMENTS
- /
- 0 LIKES
-
안기연•2004.01.20 03:04procedure TformMain.prtOpen; begin Port1.Port ...
-
- 최일준
- •
- 2004.01.19 19:00
- 1 COMMENTS
- /
- 0 LIKES
-
이준원•2004.01.20 03:13http://www.nevrona.com/rave/tips/rvtip28.html 참고하시기 바랍니다..^^ 기타 reve에 관한 Tips an...
-
- 김상균
- •
- 2004.01.19 18:59
- 2 COMMENTS
- /
- 0 LIKES
-
민수•2004.01.19 19:43테이블 변경에 관한 쿼리문입니다. ALTER TABLE aaa RENAME TO bbb ;
-
김상균•2004.01.19 20:02with main.temp_data do begin &nb...
-
- 이강미
- •
- 2004.01.19 18:55
- 2 COMMENTS
- /
- 0 LIKES
-
성더기•2004.01.19 22:01퀵리포트때문에 델파이를 설치하고 실행하기 위해선 로컬에 프린터 드라이브가 적어도 한개는 설치되어 있...
-
이강미•2004.01.20 00:53설치되어 있는대두 그러네요~ CD 문제인지.. 운영체제까지 밀었었으니... 아뭏든 답변 넘 감사합니다... 설...
-
- 최원식
- 2004.01.19 11:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 김상균
- •
- 2004.01.19 07:51
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2004.01.19 08:57안녕하세요. 한원희입니다. 제 경험으로는 파라미터의 데이터형을 일치시켜 주면 잘 삽입이 되었던 걸로...
-
- 이상석
- •
- 2004.01.19 07:19
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2004.01.19 22:13답변이 될지는 모르겠습니다만 여기 자료실에도 있을 겁니다
-
- 박희경
- 2004.01.19 04:21
- 0 COMMENTS
- /
- 0 LIKES
그리고..
With dm2.ADOQuery17 do
Begin
Close;
SQL.Clear;
SQL.Add('update equ_content
SQL.Add(' SET equ_large = :combobox1_class_name ');
SQL.Add(' ,equ_middle = :Combobox2_class_step1 ');
SQL.Add(' ,equ_name = :combobox3_Class_step2 ');
SQL.Add(' ,unitcost = :Edit6_unitcost ');
SQL.Add(' ,equ_rule = :Edit1_equ_rule ');
SQL.Add(' ,person = :Combobox25_person_name ');
SQL.Add(' ,equ_state = :combobox5_state_name ');
SQL.Add(' ,building = :combobox6_build_name ');
SQL.Add(' ,room = :combobox7_build_room ');
SQL.Add(' ,nation = :combobox8_nation_name ');
SQL.Add(' ,company_made = :combobox9_company_made ');
SQL.Add(' ,company_buy = :combobox10_company_buy ');
SQL.Add(' ,company_repair = :combobox11_company_repair ');
SQL.Add(' ,buydate = :buydate ');
SQL.Add(' ,repairdate = :edit4_repairdate ');
SQL.Add(' ,ruler = :combobox12_ruler_name ');
SQL.Add(' ,useyear = :edit5_useyear ');
SQL.Add(' ,lendyn = :checkbox2 ');
SQL.Add(' ,notecolumn = :notecolumn ');
SQL.Add('WHERE equ_num = ''' + equ_num.text ''' '); //이부분이 687부분입니다
Parameters.ParamByName('equ_large' ) := combobox1_class_name.Text;
Parameters.ParamByName('equ_middle' ) := combobox2_class_step1.Text;
Parameters.ParamByName('equ_name' ) := combobox3_class_step2.Text;
Parameters.ParamByName('unitcost' ) := Edit6_unitcost.Text;
Parameters.ParamByName('equ_rule' ) := edit1_equ_rule.Text;
Parameters.ParamByName('depment' ) := combobox4_dep_name.Text;
Parameters.ParamByName('person' ) := combobox25_person_name.Text;
Parameters.ParamByName('equ_state' ) := combobox5_state_name.Text;
Parameters.ParamByName('building' ) := combobox6_build_name.Text;
Parameters.ParamByName('room' ) := combobox7_build_room.Text;
Parameters.ParamByName('nation' ) := combobox8_nation_name.Text;
Parameters.ParamByName('company_made' ) := combobox9_company_made.Text;
Parameters.ParamByName('company_buy' ) := combobox10_company_buy.Text;
Parameters.ParamByName('company_repair') := combobox11_company_repair.Text;
Parameters.ParamByName('buydate' ) := buydate.Text;
Parameters.ParamByName('repairdate' ) := edit4_repairdate.Text;
Parameters.ParamByName('ruler' ) := combobox12_ruler_name.Text;
Parameters.ParamByName('useyear' ) := edit5_useyear.Text;
Parameters.ParamByName('lendyn' ) := checkbox2.Text;
Parameters.ParamByName('notecolumn' ) := notecolumn.Text;
ExecSql;
end;
이렇게 정리한다면 소스가독성이 조금 높아지지 않을까 싶네여..