|
isql = "update custor set " & _
"Book_cd = '" + Trim(Text3.Text) + "'," & _
"Reader_nm = '" + Trim(Text5.Text) + "'," & _
"industry_cd = '" + Trim(Text6.Text) + "'," & _
"Companay = '" + Trim(Text8.Text) + "'," & _
"Give_nm = '" + Trim(Text9.Text) + "'," & _
"Give_print = '" + Trim(Text10.Text) + "'," & _
"position = '" + Trim(Text11.Text) + "'," & _
"tel = '" + Trim(Text57.Text) + "'," & _
"tel1 = '" + Trim(Text58.Text) + "'," & _
"tel2 = '" + Trim(Text60.Text) + "'," & _
"tel3 = '" + Trim(Text61.Text) + "'," & _
"hp = '" + Trim(Text59.Text) + "'," & _
"dou = '" + Trim(Text23) + "'," & _
"send = '" + Trim(Text21.Text) + "'," & _
"area = '" + Trim(Text22.Text) + "'," & _
"zip = '" & Trim(MaskEdBox4.Text) & "'" & _
"where reader_cd = '" + Trim(TCODE) + "'"
adoOraCon.Execute (isql)
isql = "update custor set " & _
"addr = '" & Trim(Text26.Text) & "'," & _
"addr1 = '" & Trim(Text27.Text) & "'," & _
"addr2 = '" & Trim(Text28.Text) & "'," & _
"addr3 = '" & Trim(Text29.Text) & "'," & _
"expand_gu = '" & Trim(Text30.Text) & "'," & _
"Receive = '" & Trim(Text32.Text) & "'," & _
"exp_dt = '" & Trim(MaskEdBox1.Text) & "'," & _
"exp_dt1 = '" & Trim(MaskEdBox2.Text) & "'," & _
"su = '" & Trim(Text33.Text) & "'," & _
"Wol = '" & Trim(Text34.Text) & "'," & _
"ho = '" & Trim(Text35.Text + Text36.Text) & "'," & _
"ho1 = '" & Trim(Text37.Text + Text38.Text) & "'," & _
"bonus = '" & Trim(Text39.Text) & "'," & _
"bonus1 = '" & Trim(Text42.Text) & "'," & _
"bonus2 = '" & Trim(Text40.Text) & "'," & _
"buis = '" & Trim(Text45.Text) & "'," & _
"delivery = '" & Trim(Text46.Text) & "'," & _
"Station = '" & Trim(Text48.Text) & "'," & _
"Amount = " & Val(Amount) & "," & _
"Su_amount = '" & Trim(Text50.Text) & "'," & _
"Su_year = '" & Trim(MaskEdBox3.Text) & "'" & _
"where reader_cd = '" + Trim(TCODE) + "'"
adoOraCon.Execute (isql)
isql = "update custor set " & _
"zip1 = '" & Trim(MaskEdBox5.Text) & "'," & _
"addr4 = '" & Trim(Text63.Text) & "'," & _
"addr5 = '" & Trim(Text62.Text) & "'," & _
"addr6 = '" & Trim(Text25.Text) & "'," & _
"addr7 = '" & Trim(Text24.Text) & "'," & _
"Memo = '" & Trim(Text51.Text) & "'," & _
"Memo1 = '" & Trim(Text64.Text) & "'," & _
"input = '" & Trim(Text52.Text) & "'," & _
"post = '" & Trim(Check1.Value) & "'," & _
"post1 = '" & Trim(Check2.Value) & "'," & _
"post2 = '" & Trim(Check3.Value) & "'," & _
"give = '" & Trim(Check4.Value) & "'," & _
"giro1 = '" & Trim(Check6.Value) & "'," & _
"gironm = '" & Trim(Text65.Text) & "'," & _
"giro = '" & Trim(Check5.Value) & "'" & _
"where reader_cd = '" + Trim(TCODE) + "'"
adoOraCon.Execute (isql)
isql = "update custor set " & _
"Jobcode = '" & Trim(Text72.Text) & "'," & _
"Dwelling = '" & Trim(Text70.Text) & "'," & _
"Sex = '" & Trim(Text68.Text) & "'," & _
"Income = '" & Trim(Text13.Text) & "'," & _
"Gift_nm = '" & Trim(Text15.Text) & "'," & _
"Gift1_nm = '" & Trim(Text41.Text) & "'," & _
"Gift2_nm = '" & Trim(Text43.Text) & "'," & _
"Addr8 = '" & Trim(Text14.Text) & "'," & _
"Card_cd = '" & Trim(Text18.Text) & "'," & _
"Gift_cd = '" & Trim(Text16.Text) & "'," & _
"Bonbu = '" & Trim(Text49.Text) & "'" & _
"where reader_cd = '" + Trim(TCODE) + "'"
adoOraCon.Execute (isql)
제가 서버프로그램이 처음이라 답답한것이 많아 계속 질문을 드립니다.
이 4번의 업데이트를 한번으로 줄이려고 하면 어떻게 해야 하나요....
다시한번 답변을 부탁드립니다.
개인용 프로그램에서는 별로 상관이 없던것이 서버용으로 넘어오면서
많은 문제가 생기네요......
|
