MECHEAL的专栏

最近项目一直在做plsql，逻辑不太复杂，可是测试文档比较麻烦，特别是把每个表的结构从DB中取出来贴到excel中，以前用toad现在用plsql/developer速度好慢，所以决定用vba一次提出多个表结构根据表的名称。大致分2步 1 用vba连接到oracle2 用一个sql取出表结构首先准备环境不打算用家里有前几天安装的oracle express版，重新下了个最新版的oracle 11.2发现不会安装又老实安装oracle 10.2, 然后解除锁定的scott用户，并且可以用其自带的dept表如下

<br />用vba连接到oracle<br />连接oracle其实不算难，添加如下图的引用<br /><br /> <br />然后如下的代码<br />Sub DBConnection()<br />Dim DBRst As ADODB.Recordset<br />Dim ConnDB As ADODB.Connection<br />Set DBRst = New ADODB.Recordset<br />Set ConnDB = New ADODB.Connection<br />Dim sql

<br /> 查询表结构的sql文，如下<br />select base.val from<br />( select column_name as val, column_id as cid, 2000 + column_id as rid<br /> from user_tab_columns<br /> where table_name ='@'<br /> union all<br /> select data_type as val, column_id as cid, 3000 + colum

<br />把完整代码贴出来，明天去公司改些就可以用了<br />Sub getTableDefinition()<br />Dim DBRst As ADODB.Recordset<br />Dim ConnDB As ADODB.Connection<br />Set DBRst = New ADODB.Recordset<br />Set ConnDB = New ADODB.Connection<br />Dim sqlrst As String<br />Dim OraOpen As Boolea