求助!请高人使用正则表达式把下面的sql文的表名,项目名提出来
SELECTb.BANKCD,b.BANKNM,BANKSNM,(SELECTcount(k.BANKCD)FROMBANKSMST1k,BANKSMST2lWHEREk...
SELECT
b.BANKCD,
b.BANKNM,
BANKSNM,
(
SELECT
count( k.BANKCD)
FROM
BANKSMST1 k,
BANKSMST2 l
WHERE
k.BANKCD = 0001
AND l.BANKCD = 0001
AND rownum = 1
)
FROM
(
SELECT
c.BANKCD,
c.BANKNM,
e.BANKSNM,
g.BANKNMK
FROM
BANKMST3 c,
BANKSMST4 e,
(
SELECT
f.BANKNMK
FROM
BANKMST5 f
WHERE
f.BANKCD = 0001
) g
WHERE
c.BANKCD = 0001
AND c.BANKCD = e.BANKCD
) b,
BANKMST6 d
WHERE
b.BANKCD = 0001
AND b.BANKCD = d.BANKCD 展开
b.BANKCD,
b.BANKNM,
BANKSNM,
(
SELECT
count( k.BANKCD)
FROM
BANKSMST1 k,
BANKSMST2 l
WHERE
k.BANKCD = 0001
AND l.BANKCD = 0001
AND rownum = 1
)
FROM
(
SELECT
c.BANKCD,
c.BANKNM,
e.BANKSNM,
g.BANKNMK
FROM
BANKMST3 c,
BANKSMST4 e,
(
SELECT
f.BANKNMK
FROM
BANKMST5 f
WHERE
f.BANKCD = 0001
) g
WHERE
c.BANKCD = 0001
AND c.BANKCD = e.BANKCD
) b,
BANKMST6 d
WHERE
b.BANKCD = 0001
AND b.BANKCD = d.BANKCD 展开
展开全部
Private Sub Form_Load()
Dim dat(14) As String
Dim i As Integer, ii As Integer, iii As Integer
Dim x As Integer
For i = 5 To 1 Step -1
For ii = 0 To 5 - i
dat(iii) = x + ii
iii = iii + 1
Next
x = dat(iii - 1) + i
Next
MsgBox Join(dat, ",")
End Sub
Dim dat(14) As String
Dim i As Integer, ii As Integer, iii As Integer
Dim x As Integer
For i = 5 To 1 Step -1
For ii = 0 To 5 - i
dat(iii) = x + ii
iii = iii + 1
Next
x = dat(iii - 1) + i
Next
MsgBox Join(dat, ",")
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询