VBAOracle表解锁

最新推荐文章于 2024-09-27 08:43:37 发布

原创最新推荐文章于 2024-09-27 08:43:37 发布 · 339 阅读

0 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

1 篇文章

订阅专栏

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