Public Sub ReadInfo10()
On Error GoTo ErrProc
isql = " select"
isql = isql & " distinct(a.reader_cd),"
isql = isql & " a.book_cd,"
isql = isql & " b.reader_cd,"
isql = isql & " a.book_cd,"
isql = isql & " a.book_nm,"
isql = isql & " a.reader_cd1,"
isql = isql & " a.reader_nm,"
isql = isql & " a.industry_cd,"
isql = isql & " a.industry_nm,"
isql = isql & " a.companay,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " b.give_nm,"
isql = isql & " b.give_print,"
isql = isql & " b.title,"
isql = isql & " b.tel,"
isql = isql & " b.tel1,"
isql = isql & " b.hp,"
isql = isql & " b.tel2,"
isql = isql & " b.tel3,"
isql = isql & " a.dou,"
isql = isql & " a.send,"
isql = isql & " a.area,"
isql = isql & " a.zip,"
isql = isql & " a.addr,"
isql = isql & " a.addr1,"
isql = isql & " a.addr2,"
isql = isql & " a.addr3,"
isql = isql & " a.zip1,"
isql = isql & " a.addr4,"
isql = isql & " a.addr5,"
isql = isql & " a.addr6,"
isql = isql & " a.addr7,"
isql = isql & " a.sinchung1,"
isql = isql & " a.sintel,"
isql = isql & " a.sinhp,"
isql = isql & " a.sincompany,"
isql = isql & " a.zip2,"
isql = isql & " a.addr10,"
isql = isql & " a.addr11,"
isql = isql & " a.addr12,"
isql = isql & " a.addr13,"
isql = isql & " a.givenm,"
isql = isql & " a.givetel,"
isql = isql & " a.givehp,"
isql = isql & " a.givecompany,"
isql = isql & " a.zip3,"
isql = isql & " a.addr14,"
isql = isql & " a.addr15,"
isql = isql & " a.addr16,"
isql = isql & " a.addr17,"
isql = isql & " a.give_address,"
isql = isql & " a.give_address1,"
isql = isql & " a.expand_gu,"
isql = isql & " a.expand_nm,"
isql = isql & " a.receive,"
isql = isql & " a.exp_dt,"
isql = isql & " a.exp_dt1,"
isql = isql & " a.su,"
isql = isql & " a.wol,"
isql = isql & " a.ho,"
isql = isql & " a.ho1,"
isql = isql & " a.newdok,"
isql = isql & " a.newdok1,"
isql = isql & " a.newdok2,"
isql = isql & " a.newdok3,"
isql = isql & " b.newdok,"
isql = isql & " b.newdok1,"
isql = isql & " b.newdok2,"
isql = isql & " b.newdok3,"
isql = isql & " a.tax,"
isql = isql & " a.sano,"
isql = isql & " a.se_mail,"
isql = isql & " a.oname,"
isql = isql & " a.zip4,"
isql = isql & " a.addr18,"
isql = isql & " a.addr19,"
isql = isql & " a.addr20,"
isql = isql & " a.addr21,"
isql = isql & " a.kita,"
isql = isql & " a.kita1,"
isql = isql & " b.bonus,"
isql = isql & " b.bonus1,"
isql = isql & " b.bonus2,"
isql = isql & " a.buis,"
isql = isql & " a.buis_nm,"
isql = isql & " b.delivery,"
isql = isql & " b.delivery_nm,"
isql = isql & " b.station,"
isql = isql & " b.station_nm,"
isql = isql & " b.amount,"
isql = isql & " b.su_amount,"
isql = isql & " b.su_year,"
isql = isql & " b.memo,"
isql = isql & " b.memo1,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " a.doseo,"
isql = isql & " a.doseo_nm,"
isql = isql & " a.giro2,"
isql = isql & " a.giro_nm,"
isql = isql & " a.sa,"
isql = isql & " a.sa_nm,"
isql = isql & " a.postmail,"
isql = isql & " a.postmainamel,"
isql = isql & " a.mail,"
isql = isql & " a.sms,"
isql = isql & " a.e_mail,"
isql = isql & " a.e_mail1,"
isql = isql & " a.sinchung,"
isql = isql & " a.stop,"
isql = isql & " a.stopho,"
isql = isql & " a.start,"
isql = isql & " a.startho,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " a.post,"
isql = isql & " a.post1,"
isql = isql & " a.post2,"
isql = isql & " b.sosok,"
isql = isql & " b.jik,"
isql = isql & " b.baesong,"
isql = isql & " b.baesong1,"
isql = isql & " b.baesong2,"
isql = isql & " b.baesong3,"
isql = isql & " b.sho,"
isql = isql & " b.shogu,"
isql = isql & " b.ipkum,"
isql = isql & " b.sho1,"
isql = isql & " b.baesong_nm,"
isql = isql & " b.shogu_nm,"
isql = isql & " b.give,"
isql = isql & " b.giro,"
isql = isql & " b.giro1,"
isql = isql & " b.gironm,"
isql = isql & " a.jobcode,"
isql = isql & " a.jobcode_nm,"
isql = isql & " a.dwelling,"
isql = isql & " a.Dwelling_nm,"
isql = isql & " a.sex,"
isql = isql & " a.sex1,"
isql = isql & " a.Sex_nm,"
isql = isql & " a.income,"
isql = isql & " a.income_nm,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " b.addr8,"
isql = isql & " b.gift_nm,"
isql = isql & " b.gift1_nm,"
isql = isql & " b.gift2_nm,"
isql = isql & " b.gift_cd,"
isql = isql & " b.card_cd,"
isql = isql & " b.bonbu,"
isql = isql & " b.link,"
isql = isql & " b.can_name,"
isql = isql & " b.oldcust,"
isql = isql & " b.newcust"
isql = isql & " from custormer a,custormer1 b"
isql = isql & " where b.tel like '" + Trim(Text1.Text) + "%" + "'"
isql = isql & " and a.reader_cd = b.reader_cd"
If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
End If
If Trim(Text4.Text) <> "" Then
isql = isql & " and '" + Trim(Text4.Text) + "' between ho and ho1"
End If
isql = isql & " Union All "
isql = isql & " select"
isql = isql & " distinct(a.reader_cd),"
isql = isql & " a.book_cd,"
isql = isql & " b.reader_cd,"
isql = isql & " a.book_cd,"
isql = isql & " a.book_nm,"
isql = isql & " a.reader_cd1,"
isql = isql & " a.reader_nm,"
isql = isql & " a.industry_cd,"
isql = isql & " a.industry_nm,"
isql = isql & " a.companay,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " b.give_nm,"
isql = isql & " b.give_print,"
isql = isql & " b.title,"
isql = isql & " b.tel,"
isql = isql & " b.tel1,"
isql = isql & " b.hp,"
isql = isql & " b.tel2,"
isql = isql & " b.tel3,"
isql = isql & " a.dou,"
isql = isql & " a.send,"
isql = isql & " a.area,"
isql = isql & " a.zip,"
isql = isql & " a.addr,"
isql = isql & " a.addr1,"
isql = isql & " a.addr2,"
isql = isql & " a.addr3,"
isql = isql & " a.zip1,"
isql = isql & " a.addr4,"
isql = isql & " a.addr5,"
isql = isql & " a.addr6,"
isql = isql & " a.addr7,"
isql = isql & " a.sinchung1,"
isql = isql & " a.sintel,"
isql = isql & " a.sinhp,"
isql = isql & " a.sincompany,"
isql = isql & " a.zip2,"
isql = isql & " a.addr10,"
isql = isql & " a.addr11,"
isql = isql & " a.addr12,"
isql = isql & " a.addr13,"
isql = isql & " a.givenm,"
isql = isql & " a.givetel,"
isql = isql & " a.givehp,"
isql = isql & " a.givecompany,"
isql = isql & " a.zip3,"
isql = isql & " a.addr14,"
isql = isql & " a.addr15,"
isql = isql & " a.addr16,"
isql = isql & " a.addr17,"
isql = isql & " a.give_address,"
isql = isql & " a.give_address1,"
isql = isql & " a.expand_gu,"
isql = isql & " a.expand_nm,"
isql = isql & " a.receive,"
isql = isql & " a.exp_dt,"
isql = isql & " a.exp_dt1,"
isql = isql & " a.su,"
isql = isql & " a.wol,"
isql = isql & " a.ho,"
isql = isql & " a.ho1,"
isql = isql & " a.newdok,"
isql = isql & " a.newdok1,"
isql = isql & " a.newdok2,"
isql = isql & " a.newdok3,"
isql = isql & " b.newdok,"
isql = isql & " b.newdok1,"
isql = isql & " b.newdok2,"
isql = isql & " b.newdok3,"
isql = isql & " a.tax,"
isql = isql & " a.sano,"
isql = isql & " a.se_mail,"
isql = isql & " a.oname,"
isql = isql & " a.zip4,"
isql = isql & " a.addr18,"
isql = isql & " a.addr19,"
isql = isql & " a.addr20,"
isql = isql & " a.addr21,"
isql = isql & " a.kita,"
isql = isql & " a.kita1,"
isql = isql & " b.bonus,"
isql = isql & " b.bonus1,"
isql = isql & " b.bonus2,"
isql = isql & " a.buis,"
isql = isql & " a.buis_nm,"
isql = isql & " b.delivery,"
isql = isql & " b.delivery_nm,"
isql = isql & " b.station,"
isql = isql & " b.station_nm,"
isql = isql & " b.amount,"
isql = isql & " b.su_amount,"
isql = isql & " b.su_year,"
isql = isql & " b.memo,"
isql = isql & " b.memo1,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " a.doseo,"
isql = isql & " a.doseo_nm,"
isql = isql & " a.giro2,"
isql = isql & " a.giro_nm,"
isql = isql & " a.sa,"
isql = isql & " a.sa_nm,"
isql = isql & " a.postmail,"
isql = isql & " a.postmainamel,"
isql = isql & " a.mail,"
isql = isql & " a.sms,"
isql = isql & " a.e_mail,"
isql = isql & " a.e_mail1,"
isql = isql & " a.sinchung,"
isql = isql & " a.stop,"
isql = isql & " a.stopho,"
isql = isql & " a.start,"
isql = isql & " a.startho,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " a.post,"
isql = isql & " a.post1,"
isql = isql & " a.post2,"
isql = isql & " b.sosok,"
isql = isql & " b.jik,"
isql = isql & " b.baesong,"
isql = isql & " b.baesong1,"
isql = isql & " b.baesong2,"
isql = isql & " b.baesong3,"
isql = isql & " b.sho,"
isql = isql & " b.shogu,"
isql = isql & " b.ipkum,"
isql = isql & " b.sho1,"
isql = isql & " b.baesong_nm,"
isql = isql & " b.shogu_nm,"
isql = isql & " b.give,"
isql = isql & " b.giro,"
isql = isql & " b.giro1,"
isql = isql & " b.gironm,"
isql = isql & " a.jobcode,"
isql = isql & " a.jobcode_nm,"
isql = isql & " a.dwelling,"
isql = isql & " a.Dwelling_nm,"
isql = isql & " a.sex,"
isql = isql & " a.sex1,"
isql = isql & " a.Sex_nm,"
isql = isql & " a.income,"
isql = isql & " a.income_nm,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " b.addr8,"
isql = isql & " b.gift_nm,"
isql = isql & " b.gift1_nm,"
isql = isql & " b.gift2_nm,"
isql = isql & " b.gift_cd,"
isql = isql & " b.card_cd,"
isql = isql & " b.bonbu,"
isql = isql & " b.link,"
isql = isql & " b.can_name,"
isql = isql & " b.oldcust,"
isql = isql & " b.newcust"
isql = isql & " from custormer a,custormer1 b"
isql = isql & " where b.tel1 like '" + Trim(Text1.Text) + "%" + "'"
isql = isql & " and a.reader_cd = b.reader_cd"
If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
End If
If Trim(Text4.Text) <> "" Then
isql = isql & " and '" + Trim(Text4.Text) + "' between ho and ho1"
End If
isql = isql & " Union All "
isql = isql & " select"
isql = isql & " distinct(a.reader_cd),"
isql = isql & " a.book_cd,"
isql = isql & " b.reader_cd,"
isql = isql & " a.book_cd,"
isql = isql & " a.book_nm,"
isql = isql & " a.reader_cd1,"
isql = isql & " a.reader_nm,"
isql = isql & " a.industry_cd,"
isql = isql & " a.industry_nm,"
isql = isql & " a.companay,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " b.give_nm,"
isql = isql & " b.give_print,"
isql = isql & " b.title,"
isql = isql & " b.tel,"
isql = isql & " b.tel1,"
isql = isql & " b.hp,"
isql = isql & " b.tel2,"
isql = isql & " b.tel3,"
isql = isql & " a.dou,"
isql = isql & " a.send,"
isql = isql & " a.area,"
isql = isql & " a.zip,"
isql = isql & " a.addr,"
isql = isql & " a.addr1,"
isql = isql & " a.addr2,"
isql = isql & " a.addr3,"
isql = isql & " a.zip1,"
isql = isql & " a.addr4,"
isql = isql & " a.addr5,"
isql = isql & " a.addr6,"
isql = isql & " a.addr7,"
isql = isql & " a.sinchung1,"
isql = isql & " a.sintel,"
isql = isql & " a.sinhp,"
isql = isql & " a.sincompany,"
isql = isql & " a.zip2,"
isql = isql & " a.addr10,"
isql = isql & " a.addr11,"
isql = isql & " a.addr12,"
isql = isql & " a.addr13,"
isql = isql & " a.givenm,"
isql = isql & " a.givetel,"
isql = isql & " a.givehp,"
isql = isql & " a.givecompany,"
isql = isql & " a.zip3,"
isql = isql & " a.addr14,"
isql = isql & " a.addr15,"
isql = isql & " a.addr16,"
isql = isql & " a.addr17,"
isql = isql & " a.give_address,"
isql = isql & " a.give_address1,"
isql = isql & " a.expand_gu,"
isql = isql & " a.expand_nm,"
isql = isql & " a.receive,"
isql = isql & " a.exp_dt,"
isql = isql & " a.exp_dt1,"
isql = isql & " a.su,"
isql = isql & " a.wol,"
isql = isql & " a.ho,"
isql = isql & " a.ho1,"
isql = isql & " a.newdok,"
isql = isql & " a.newdok1,"
isql = isql & " a.newdok2,"
isql = isql & " a.newdok3,"
isql = isql & " b.newdok,"
isql = isql & " b.newdok1,"
isql = isql & " b.newdok2,"
isql = isql & " b.newdok3,"
isql = isql & " a.tax,"
isql = isql & " a.sano,"
isql = isql & " a.se_mail,"
isql = isql & " a.oname,"
isql = isql & " a.zip4,"
isql = isql & " a.addr18,"
isql = isql & " a.addr19,"
isql = isql & " a.addr20,"
isql = isql & " a.addr21,"
isql = isql & " a.kita,"
isql = isql & " a.kita1,"
isql = isql & " b.bonus,"
isql = isql & " b.bonus1,"
isql = isql & " b.bonus2,"
isql = isql & " a.buis,"
isql = isql & " a.buis_nm,"
isql = isql & " b.delivery,"
isql = isql & " b.delivery_nm,"
isql = isql & " b.station,"
isql = isql & " b.station_nm,"
isql = isql & " b.amount,"
isql = isql & " b.su_amount,"
isql = isql & " b.su_year,"
isql = isql & " b.memo,"
isql = isql & " b.memo1,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " a.doseo,"
isql = isql & " a.doseo_nm,"
isql = isql & " a.giro2,"
isql = isql & " a.giro_nm,"
isql = isql & " a.sa,"
isql = isql & " a.sa_nm,"
isql = isql & " a.postmail,"
isql = isql & " a.postmainamel,"
isql = isql & " a.mail,"
isql = isql & " a.sms,"
isql = isql & " a.e_mail,"
isql = isql & " a.e_mail1,"
isql = isql & " a.sinchung,"
isql = isql & " a.stop,"
isql = isql & " a.stopho,"
isql = isql & " a.start,"
isql = isql & " a.startho,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " a.post,"
isql = isql & " a.post1,"
isql = isql & " a.post2,"
isql = isql & " b.sosok,"
isql = isql & " b.jik,"
isql = isql & " b.baesong,"
isql = isql & " b.baesong1,"
isql = isql & " b.baesong2,"
isql = isql & " b.baesong3,"
isql = isql & " b.sho,"
isql = isql & " b.shogu,"
isql = isql & " b.ipkum,"
isql = isql & " b.sho1,"
isql = isql & " b.baesong_nm,"
isql = isql & " b.shogu_nm,"
isql = isql & " b.give,"
isql = isql & " b.giro,"
isql = isql & " b.giro1,"
isql = isql & " b.gironm,"
isql = isql & " a.jobcode,"
isql = isql & " a.jobcode_nm,"
isql = isql & " a.dwelling,"
isql = isql & " a.Dwelling_nm,"
isql = isql & " a.sex,"
isql = isql & " a.sex1,"
isql = isql & " a.Sex_nm,"
isql = isql & " a.income,"
isql = isql & " a.income_nm,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " b.addr8,"
isql = isql & " b.gift_nm,"
isql = isql & " b.gift1_nm,"
isql = isql & " b.gift2_nm,"
isql = isql & " b.gift_cd,"
isql = isql & " b.card_cd,"
isql = isql & " b.bonbu,"
isql = isql & " b.link,"
isql = isql & " b.can_name,"
isql = isql & " b.oldcust,"
isql = isql & " b.newcust"
isql = isql & " from custormer a,custormer1 b"
isql = isql & " where b.tel2 like '" + Trim(Text1.Text) + "%" + "'"
isql = isql & " and a.reader_cd = b.reader_cd"
If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
End If
If Trim(Text4.Text) <> "" Then
isql = isql & " and '" + Trim(Text4.Text) + "' between ho and ho1"
End If
isql = isql & " Union All "
isql = isql & " select"
isql = isql & " distinct(a.reader_cd),"
isql = isql & " a.book_cd,"
isql = isql & " b.reader_cd,"
isql = isql & " a.book_cd,"
isql = isql & " a.book_nm,"
isql = isql & " a.reader_cd1,"
isql = isql & " a.reader_nm,"
isql = isql & " a.industry_cd,"
isql = isql & " a.industry_nm,"
isql = isql & " a.companay,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " b.give_nm,"
isql = isql & " b.give_print,"
isql = isql & " b.title,"
isql = isql & " b.tel,"
isql = isql & " b.tel1,"
isql = isql & " b.hp,"
isql = isql & " b.tel2,"
isql = isql & " b.tel3,"
isql = isql & " a.dou,"
isql = isql & " a.send,"
isql = isql & " a.area,"
isql = isql & " a.zip,"
isql = isql & " a.addr,"
isql = isql & " a.addr1,"
isql = isql & " a.addr2,"
isql = isql & " a.addr3,"
isql = isql & " a.zip1,"
isql = isql & " a.addr4,"
isql = isql & " a.addr5,"
isql = isql & " a.addr6,"
isql = isql & " a.addr7,"
isql = isql & " a.sinchung1,"
isql = isql & " a.sintel,"
isql = isql & " a.sinhp,"
isql = isql & " a.sincompany,"
isql = isql & " a.zip2,"
isql = isql & " a.addr10,"
isql = isql & " a.addr11,"
isql = isql & " a.addr12,"
isql = isql & " a.addr13,"
isql = isql & " a.givenm,"
isql = isql & " a.givetel,"
isql = isql & " a.givehp,"
isql = isql & " a.givecompany,"
isql = isql & " a.zip3,"
isql = isql & " a.addr14,"
isql = isql & " a.addr15,"
isql = isql & " a.addr16,"
isql = isql & " a.addr17,"
isql = isql & " a.give_address,"
isql = isql & " a.give_address1,"
isql = isql & " a.expand_gu,"
isql = isql & " a.expand_nm,"
isql = isql & " a.receive,"
isql = isql & " a.exp_dt,"
isql = isql & " a.exp_dt1,"
isql = isql & " a.su,"
isql = isql & " a.wol,"
isql = isql & " a.ho,"
isql = isql & " a.ho1,"
isql = isql & " a.newdok,"
isql = isql & " a.newdok1,"
isql = isql & " a.newdok2,"
isql = isql & " a.newdok3,"
isql = isql & " b.newdok,"
isql = isql & " b.newdok1,"
isql = isql & " b.newdok2,"
isql = isql & " b.newdok3,"
isql = isql & " a.tax,"
isql = isql & " a.sano,"
isql = isql & " a.se_mail,"
isql = isql & " a.oname,"
isql = isql & " a.zip4,"
isql = isql & " a.addr18,"
isql = isql & " a.addr19,"
isql = isql & " a.addr20,"
isql = isql & " a.addr21,"
isql = isql & " a.kita,"
isql = isql & " a.kita1,"
isql = isql & " b.bonus,"
isql = isql & " b.bonus1,"
isql = isql & " b.bonus2,"
isql = isql & " a.buis,"
isql = isql & " a.buis_nm,"
isql = isql & " b.delivery,"
isql = isql & " b.delivery_nm,"
isql = isql & " b.station,"
isql = isql & " b.station_nm,"
isql = isql & " b.amount,"
isql = isql & " b.su_amount,"
isql = isql & " b.su_year,"
isql = isql & " b.memo,"
isql = isql & " b.memo1,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " a.doseo,"
isql = isql & " a.doseo_nm,"
isql = isql & " a.giro2,"
isql = isql & " a.giro_nm,"
isql = isql & " a.sa,"
isql = isql & " a.sa_nm,"
isql = isql & " a.postmail,"
isql = isql & " a.postmainamel,"
isql = isql & " a.mail,"
isql = isql & " a.sms,"
isql = isql & " a.e_mail,"
isql = isql & " a.e_mail1,"
isql = isql & " a.sinchung,"
isql = isql & " a.stop,"
isql = isql & " a.stopho,"
isql = isql & " a.start,"
isql = isql & " a.startho,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " a.post,"
isql = isql & " a.post1,"
isql = isql & " a.post2,"
isql = isql & " b.sosok,"
isql = isql & " b.jik,"
isql = isql & " b.baesong,"
isql = isql & " b.baesong1,"
isql = isql & " b.baesong2,"
isql = isql & " b.baesong3,"
isql = isql & " b.sho,"
isql = isql & " b.shogu,"
isql = isql & " b.ipkum,"
isql = isql & " b.sho1,"
isql = isql & " b.baesong_nm,"
isql = isql & " b.shogu_nm,"
isql = isql & " b.give,"
isql = isql & " b.giro,"
isql = isql & " b.giro1,"
isql = isql & " b.gironm,"
isql = isql & " a.jobcode,"
isql = isql & " a.jobcode_nm,"
isql = isql & " a.dwelling,"
isql = isql & " a.Dwelling_nm,"
isql = isql & " a.sex,"
isql = isql & " a.sex1,"
isql = isql & " a.Sex_nm,"
isql = isql & " a.income,"
isql = isql & " a.income_nm,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " b.addr8,"
isql = isql & " b.gift_nm,"
isql = isql & " b.gift1_nm,"
isql = isql & " b.gift2_nm,"
isql = isql & " b.gift_cd,"
isql = isql & " b.card_cd,"
isql = isql & " b.bonbu,"
isql = isql & " b.link,"
isql = isql & " b.can_name,"
isql = isql & " b.oldcust,"
isql = isql & " b.newcust"
isql = isql & " from custormer a,custormer1 b"
isql = isql & " where b.tel3 like '" + Trim(Text1.Text) + "%" + "'"
isql = isql & " and a.reader_cd = b.reader_cd"
If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
End If
If Trim(Text4.Text) <> "" Then
isql = isql & " and '" + Trim(Text4.Text) + "' between ho and ho1"
End If
isql = isql & " Union All "
isql = isql & " select"
isql = isql & " distinct(a.reader_cd),"
isql = isql & " a.book_cd,"
isql = isql & " b.reader_cd,"
isql = isql & " a.book_cd,"
isql = isql & " a.book_nm,"
isql = isql & " a.reader_cd1,"
isql = isql & " a.reader_nm,"
isql = isql & " a.industry_cd,"
isql = isql & " a.industry_nm,"
isql = isql & " a.companay,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " b.give_nm,"
isql = isql & " b.give_print,"
isql = isql & " b.title,"
isql = isql & " b.tel,"
isql = isql & " b.tel1,"
isql = isql & " b.hp,"
isql = isql & " b.tel2,"
isql = isql & " b.tel3,"
isql = isql & " a.dou,"
isql = isql & " a.send,"
isql = isql & " a.area,"
isql = isql & " a.zip,"
isql = isql & " a.addr,"
isql = isql & " a.addr1,"
isql = isql & " a.addr2,"
isql = isql & " a.addr3,"
isql = isql & " a.zip1,"
isql = isql & " a.addr4,"
isql = isql & " a.addr5,"
isql = isql & " a.addr6,"
isql = isql & " a.addr7,"
isql = isql & " a.sinchung1,"
isql = isql & " a.sintel,"
isql = isql & " a.sinhp,"
isql = isql & " a.sincompany,"
isql = isql & " a.zip2,"
isql = isql & " a.addr10,"
isql = isql & " a.addr11,"
isql = isql & " a.addr12,"
isql = isql & " a.addr13,"
isql = isql & " a.givenm,"
isql = isql & " a.givetel,"
isql = isql & " a.givehp,"
isql = isql & " a.givecompany,"
isql = isql & " a.zip3,"
isql = isql & " a.addr14,"
isql = isql & " a.addr15,"
isql = isql & " a.addr16,"
isql = isql & " a.addr17,"
isql = isql & " a.give_address,"
isql = isql & " a.give_address1,"
isql = isql & " a.expand_gu,"
isql = isql & " a.expand_nm,"
isql = isql & " a.receive,"
isql = isql & " a.exp_dt,"
isql = isql & " a.exp_dt1,"
isql = isql & " a.su,"
isql = isql & " a.wol,"
isql = isql & " a.ho,"
isql = isql & " a.ho1,"
isql = isql & " a.newdok,"
isql = isql & " a.newdok1,"
isql = isql & " a.newdok2,"
isql = isql & " a.newdok3,"
isql = isql & " b.newdok,"
isql = isql & " b.newdok1,"
isql = isql & " b.newdok2,"
isql = isql & " b.newdok3,"
isql = isql & " a.tax,"
isql = isql & " a.sano,"
isql = isql & " a.se_mail,"
isql = isql & " a.oname,"
isql = isql & " a.zip4,"
isql = isql & " a.addr18,"
isql = isql & " a.addr19,"
isql = isql & " a.addr20,"
isql = isql & " a.addr21,"
isql = isql & " a.kita,"
isql = isql & " a.kita1,"
isql = isql & " b.bonus,"
isql = isql & " b.bonus1,"
isql = isql & " b.bonus2,"
isql = isql & " a.buis,"
isql = isql & " a.buis_nm,"
isql = isql & " b.delivery,"
isql = isql & " b.delivery_nm,"
isql = isql & " b.station,"
isql = isql & " b.station_nm,"
isql = isql & " b.amount,"
isql = isql & " b.su_amount,"
isql = isql & " b.su_year,"
isql = isql & " b.memo,"
isql = isql & " b.memo1,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " a.doseo,"
isql = isql & " a.doseo_nm,"
isql = isql & " a.giro2,"
isql = isql & " a.giro_nm,"
isql = isql & " a.sa,"
isql = isql & " a.sa_nm,"
isql = isql & " a.postmail,"
isql = isql & " a.postmainamel,"
isql = isql & " a.mail,"
isql = isql & " a.sms,"
isql = isql & " a.e_mail,"
isql = isql & " a.e_mail1,"
isql = isql & " a.sinchung,"
isql = isql & " a.stop,"
isql = isql & " a.stopho,"
isql = isql & " a.start,"
isql = isql & " a.startho,"
isql = isql & " a.school,"
isql = isql & " a.school1,"
isql = isql & " a.post,"
isql = isql & " a.post1,"
isql = isql & " a.post2,"
isql = isql & " b.sosok,"
isql = isql & " b.jik,"
isql = isql & " b.baesong,"
isql = isql & " b.baesong1,"
isql = isql & " b.baesong2,"
isql = isql & " b.baesong3,"
isql = isql & " b.sho,"
isql = isql & " b.shogu,"
isql = isql & " b.ipkum,"
isql = isql & " b.sho1,"
isql = isql & " b.baesong_nm,"
isql = isql & " b.shogu_nm,"
isql = isql & " b.give,"
isql = isql & " b.giro,"
isql = isql & " b.giro1,"
isql = isql & " b.gironm,"
isql = isql & " a.jobcode,"
isql = isql & " a.jobcode_nm,"
isql = isql & " a.dwelling,"
isql = isql & " a.Dwelling_nm,"
isql = isql & " a.sex,"
isql = isql & " a.sex1,"
isql = isql & " a.Sex_nm,"
isql = isql & " a.income,"
isql = isql & " a.income_nm,"
isql = isql & " b.incode,"
isql = isql & " b.incode_nm,"
isql = isql & " b.addr8,"
isql = isql & " b.gift_nm,"
isql = isql & " b.gift1_nm,"
isql = isql & " b.gift2_nm,"
isql = isql & " b.gift_cd,"
isql = isql & " b.card_cd,"
isql = isql & " b.bonbu,"
isql = isql & " b.link,"
isql = isql & " b.can_name,"
isql = isql & " b.oldcust,"
isql = isql & " b.newcust"
isql = isql & " from custormer a,custormer1 b"
isql = isql & " where b.hp like '" + Trim(Text1.Text) + "%" + "'"
isql = isql & " and a.reader_cd = b.reader_cd"
If Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
isql = isql & " and a.book_cd >= '" + Trim(Text2.Text) + "'"
isql = isql & " and a.book_cd <= '" + Trim(Text3.Text) + "'"
End If
If Trim(Text4.Text) <> "" Then
isql = isql & " and '" + Trim(Text4.Text) + "' between ho and ho1"
End If
isql = isql & " order by a.book_cd, cast(a.reader_cd as bigint) desc"
Call OpenRecordset5(isql, False)
If ars5.EOF Then
fpSpread3.MaxRows = 1
Else
Command2.Enabled = True
rowcnt = 1: fpSpread3.MaxRows = rowcnt
fpSpread3.GridShowHoriz = False
fpSpread3.GridShowVert = False
fpSpread3.CellBorderStyle = CellBorderStyleSolid
Do While Not ars5.EOF
Call Make_sp3
ars5.MoveNext
rowcnt = rowcnt + 1: fpSpread3.MaxRows = rowcnt
Loop
adTextBox2.Text = Format(Cnt, "###,###,##0")
With fpSpread3
.Row = 1
.Row2 = .MaxRows
.Col = 7
.Col2 = 9
.BlockMode = True
.BackColor = &HC0FFC0
.BlockMode = False
End With
With fpSpread3
.Row = 1
.Row2 = .MaxRows
.Col = 4
.Col2 = 4
.BlockMode = True
.BackColor = &HC0FFC0
.BlockMode = False
End With
With fpSpread3
.Col = 1: .Col2 = .MaxCols: .Row = 1: .Row2 = .MaxRows
.BlockMode = True
.CellBorderType = SS_BORDER_TYPE_TOP Or SS_BORDER_TYPE_LEFT Or SS_BORDER_TYPE_RIGHT Or SS_BORDER_TYPE_BOTTOM
.CellBorderColor = RGB(0, 0, 0)
.Action = SS_ACTION_SET_CELL_BORDER
.BlockMode = False
End With
rowcnt = rowcnt - 1: fpSpread3.MaxRows = rowcnt
fpSpread3.ReDraw = True
If Option5.Value = True Then
Fill_txt1
ElseIf Option5.Value = False Then
Fill_txt
End If
End If
Exit Sub
ErrProc:
pErr_Msg (Err.Description)
Resume Next
end sub
입력 화면에 전화번호를 입력하는 곳이 여러곳이 있어서 전 화번호를 검색시 union all을 쓰고 있습니다.
조회된 독자가 여러명인 경우에 독자 정렬 순서가 도서매체순, 독자번호순으로 되어 있는데
조회시에 문에 union 연산자가 포함된경우 order by 항목이 select 목록에 나타나야 합니다.
라고 에러메세지만 나옵니다.
order by구문을 어떻게 바꿔야 하는지 답변을 부탁드립니다.
order by 구분에 매체로만 정렬하면 에러가 나지 않습니다.
독자번호를 포함하면 에러가 나는데 원 데이터 타입은 문자형이고 정렬을 위해 cast를 써서 숫자형으로 정렬합니다.
orser by 에 cast(a.reader_cd as bigint)만 들어가면 에러가 납니다.
|