|
else밑에 있는 update쿼리 끝에 ) 가 하나 더 들어가 있네요...
강경신 님이 쓰신 글 :
: 몇 번 글을 올렸었는데 여기다가 글을 올리고나면 자체적으로 하나씩 해결을 해나가고 있네요.. ㅎㅎ
: (질문 글들은 자삭하고 있어요..)
:
: Form1->Query1->SQL->Clear();
:
: if (Form1->newcommend == true ) {
: Form1->Query1->SQL->Add("INSERT INTO NewType (Reserve, ReserveD, PartyD, PartyName, Pro, Sex, Father, FatherP, Mother, MotherP, Address1, Address2, Connector, GoodType, Officer, RCash, Memo) ");
: Form1->Query1->SQL->Add("VALUES (:Reserve, :ReserveD, :PartyD, :PartyName, :Pro, :Sex, :Father, :FatherP, :Mother, :MotherP, :Address1, :Address2, :Connector, :GoodType, :Officer, :RCash, :Memo) ");
:
: Form1->Query1->Params->Items[0]->AsString = Edit1->Text; // 예약번호
: Form1->Query1->Params->Items[1]->AsString = Edit2->Text; // 예약일
: Form1->Query1->Params->Items[2]->AsString = Edit3->Text; // 행사일
: Form1->Query1->Params->Items[3]->AsString = Edit6->Text; // 행사명
: Form1->Query1->Params->Items[4]->AsString = Edit7->Text; // 주인공
: Form1->Query1->Params->Items[5]->AsInteger = SexRadio->ItemIndex; // 성별
: Form1->Query1->Params->Items[6]->AsString = Edit8->Text; // 아빠
: Form1->Query1->Params->Items[7]->AsString = Edit13->Text; // 아빠전화
: Form1->Query1->Params->Items[8]->AsString = Edit9->Text; // 엄마
: Form1->Query1->Params->Items[9]->AsString = Edit14->Text; // 엄마전화
: Form1->Query1->Params->Items[10]->AsString = Edit10->Text; // 주소1
: Form1->Query1->Params->Items[11]->AsString = Edit11->Text; // 주소2
: Form1->Query1->Params->Items[12]->AsString = Edit12->Text; // 예약자
: Form1->Query1->Params->Items[13]->AsInteger = StrToInt(Edit15->Text); // 상품타입
: Form1->Query1->Params->Items[14]->AsString = Edit5->Text; // 담당실장
: Form1->Query1->Params->Items[15]->AsInteger = StrToInt(Edit16->Text); // 예약금
: Form1->Query1->Params->Items[16]->AsMemo = Memo1->Lines->Text; // 메모
: Form1->Query1->SQL->Text;
: }
: else {
: Form1->Query1->SQL->Add("UPDATE NewType SET ReserveD = :ReserveD, PartyD = :PartyD, PartyName = :PartyName, Pro = :Pro, Sex = :Sex, Father = :Father, FatherP = :FatherP, Mother = :Mother, MotherP = :MotherP, Address1 = :Address1, Address2 = :Address2, Connector = :Connector, GoodType = :GoodType, Officer = :Officer, RCash = :RCash, Memo = :Memo) ");
: Form1->Query1->SQL->Add("Where Reserve = :Reserv");
:
: Form1->Query1->Params->Items[0]->AsString = Edit2->Text; // 예약일
: Form1->Query1->Params->Items[1]->AsString = Edit3->Text; // 행사일
: Form1->Query1->Params->Items[2]->AsString = Edit6->Text; // 행사명
: Form1->Query1->Params->Items[3]->AsString = Edit7->Text; // 주인공
: Form1->Query1->Params->Items[4]->AsInteger = SexRadio->ItemIndex; // 성별
: Form1->Query1->Params->Items[5]->AsString = Edit8->Text; // 아빠
: Form1->Query1->Params->Items[6]->AsString = Edit13->Text; // 아빠전화
: Form1->Query1->Params->Items[7]->AsString = Edit9->Text; // 엄마
: Form1->Query1->Params->Items[8]->AsString = Edit14->Text; // 엄마전화
: Form1->Query1->Params->Items[9]->AsString = Edit10->Text; // 주소1
: Form1->Query1->Params->Items[10]->AsString = Edit11->Text; // 주소2
: Form1->Query1->Params->Items[11]->AsString = Edit12->Text; // 예약자
: Form1->Query1->Params->Items[12]->AsInteger = StrToInt(Edit15->Text); // 상품타입
: Form1->Query1->Params->Items[13]->AsString = Edit5->Text; // 담당실장
: Form1->Query1->Params->Items[14]->AsInteger = StrToInt(Edit16->Text); // 예약금
: Form1->Query1->Params->Items[15]->AsMemo = Memo1->Lines->Text; // 메모
: Form1->Query1->Params->Items[16]->AsString = Edit1->Text; // 예약번호
:
: Form1->Query1->SQL->Text;
:
: }
: Form1->Query1->Active = true;
:
: Insert 에서는 첫번째 에러...
: Update에서는 두번째 에러...
:
: 어디서 문제가 있는 것인지 답변 좀 부탁드리겠습니다.
:
: 동생놈이 스튜디오를 하는데 예약관련 프로그램 좀 만들어달라고 해서 오래 전에 해봤던 경험으로 프로그램을 만들어보고 있는데 여간 힘든게 아니네요..
:
: 좋은 조언 부탁드립니다.
|