VBAOracle表解锁

在项目开发过程中经常会遇到锁表的情况，解锁本身不是什么难事，

但是总有些人问来问去，所以就用VBA做了个工具，

无非就是用VBA把那几个关键的SQL文执行一下，这里把一些个人觉得有点价值的东西共享一下。

1，因为要连接ORACLE，所以不在配置文件里面设置一下是不行的。

配置文件:tnsnames.ora,

比如说起个名字叫testAdm

testAdm=(description***********)

2，主要就是连接字符串的配置，只要能连上DB，就啥都好办了。

代码如下：

Dim conStr As String

conStr = "Provider=OraOLEDB.Oracle;" & _
"Data Source=" & datasrc & _
"User ID=" & userid & _
"Password=" & passwd

datasrc ：testAdm

用户名和密码就不多说了。

3，connection连接

cn.ConnectionString = conStr
'OPEN
cn.Open

就实现了DB的连上，不过不要忘了最后close

4，锁表的查询和出力

sqlstr = " select username, sid, serial#  " & _
" from v$session " & _
" where " & _
" username='" & schema名 & "' " & _
" and sid in (select sid from v$lock where type in ('TM','TX'))"

Set oRS = cn.Execute(colNm)
oRS.MoveFirst
i = 4
Do Until oRS.EOF
Set dbCols = oRS.Fields
Worksheets("workspace").Range("B" & i).Value = dbCols("USERNAME").Value
Worksheets("workspace").Range("C" & i).Value = dbCols("SID").Value
Worksheets("workspace").Range("D" & i).Value = dbCols("SERIAL#").Value
i = i + 1
oRS.MoveNext
Loop

5，kill

colNm = "alter system kill session '" & sid & "," & serial & "'"
cn.Execute (colNm)

6，解决