database.sarang.net
UserID
Passwd
Database
DBMS
MySQL
PostgreSQL
Firebird
Oracle
Informix
Sybase
ㆍMS-SQL
DB2
Cache
CUBRID
LDAP
ALTIBASE
Tibero
DB 문서들
스터디
Community
공지사항
자유게시판
구인|구직
DSN 갤러리
도움주신분들
Admin
운영게시판
최근게시물
MS-SQL Q&A 6345 게시물 읽기
No. 6345
union all 문제입니다.
작성자
정명규
작성일
2012-03-14 16:59
조회수
8,036

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)만 들어가면 에러가 납니다.

 

 

 

이 글에 대한 댓글이 총 2건 있습니다.

 질문이 정확히 무엇인지 잘 모르겠지만

 

union을 사용하는 경우 맨 마지막에만 한 번 order by절을 넣을 수 있습니다.

http://msdn.microsoft.com/ko-kr/library/ms180026.aspx의 3번 예제 참조

 

 cast(a.reader_cd as bigint)가 들어갔을때 에러가 난다면 a.reader_cd에 bigint로 바꿀 수 없는 경우가 있나봅니다. (에러 문구도 없이 파악은 힘든 관계로 추측성입니다.)

우욱님이 2012-03-20 13:18에 작성한 댓글입니다. Edit

isql = isql & " distinct(a.reader_cd), " = > isql = isql & " distinct(cast(a.reader_cd as bigint)), "
 

이승철(yamyo)님이 2012-03-28 17:10에 작성한 댓글입니다.
[Top]
No.
제목
작성자
작성일
조회
6348mssql2005에서 DB생성 문제(다른사람 DB가 보임) [1]
권혁진
2012-03-21
7552
6347[MS SQL 2005] Server IP 변경 후 생성한 계정 Lock ?! [2]
초보
2012-03-20
8003
6346날짜별 가격 범위 검색 쿼리 문의 드립니다. [4]
김성호
2012-03-20
7710
6345union all 문제입니다. [2]
정명규
2012-03-14
8036
6344MS SQL 2008 에서 SSL 사용하는법.. [1]
cos
2012-03-13
7790
6343서버 구성 조언좀 부탁드립니다... [1]
김성률
2012-03-13
8540
6341MS-SQL 2005 입출력 현황을 모니터링 하고 싶습니다. [1]
이동일
2012-03-10
7465
Valid XHTML 1.0!
All about the DATABASE... Copyleft 1999-2024 DSN, All rights reserved.
작업시간: 0.021초, 이곳 서비스는
	PostgreSQL v16.4로 자료를 관리합니다