在项目开发过程中经常会遇到锁表的情况,解锁本身不是什么难事,
但是总有些人问来问去,所以就用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,解决