isql = "insert into cit10501 ("
isql = isql + " gu, jundate, juno, accno, ccode, substr(center,2,6), name, gubun, kum, kum1, tname, seqno)"
isql = isql + " select 'A', '" & strdt + "01" & "', a.centerno, a.accno, "
isql = isql + " '50104', a.centerno, '정비보수', '1' , '" & K & "', '" & K1 & "' , '', '" & seq & "' from center a "
isql = isql + " where not exists(select b.* from cit10501 b where b.jundate = '" + strdt + "01" + "' and a.centerno = b.center)"
isql = isql + " and a.myn = '" + "1" + "' and (a.job = '" + "0" + "' or a.job = '" + " " + "' or a.job is null)"
adoOraCon.Execute (isql)
위의 두번째 라인에서 substr(center,2,6)이라고 하고 실행을 하면 컴마 오류라고 에러가 나옵니다.
center code가 7자리인데 2번째부터 뒤로 6번째 자리까지만 입력하려고 합니다.
답변을 부탁드립니다.
프로그램은 Vb6.0으로 작업을 하고 있습니다.
|