dbvisualizer怎样连接DB2，Oracle等数据库

1

打开dbvisualizer，点击新建连接按钮（点击其中任意一个即可）。

2

需要填写7项信息

（1）设置格式，默认选择Server Info即可

（2）Name：数据库连接名称（自己随便起）

（3）DataBase Type:数据库类型（MySql，DB2，Oracle等）

（4）Driver：驱动类型

（5）Userid：数据库用户名

（6）Password：密码

（7）Auto Commit：是否自动提交，自动commit

3

驱动(Driver)选择DB2之后，自动出现三个新的内容：

（1）Database Server：数据库的地址，IP

（2）Database Port：数据库端口

（3）Database：数据名称

4

最终填写的信息如下，然后点击【connect】按钮进行连接。

5

如果连接成功，则下方出现如下信息，代表您的DB2连接已经新建完毕。

6

如果出现如下信息，则代表连接错误。需要检查用户名，密码，服务器IP，端口，数据库名等信息填写的是否正确

7

可以点击【Ping Server】按钮，查看与服务器之间的网络是否畅通。

8

如果服务器网路畅通，会提示如下信息

dim

dbConn

As

ADODB.Connection

'定义一个ADODB连接

dim

MenuRs

As

ADODB.Recordset

'定义Recordset对象

dim

WordRs

As

ADODB.Recordset

Function

Conn2DB(byval

dbname

as

string)

As

Boolean

'数据库连函数，dbname为数据库文件的绝对路径

Dim

connStr

As

String

'

Access连接字符串

conStr

=

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

dbName

&

"Persist

Security

Info=FalseJet

OLEDB:Database

Password=abcdef"

Set

dbConn

=

New

ADODB.Connection

'定义一个ADODB连接对象

If

dbConn.State

<>

adStateOpen

Then

'判断ADODB连接是否打开

dbConn.Open

conStr

'如果不是打开状态

就打开连接

End

If

Conn2DB

=

True

End

Function

Function

CloseDb()

As

Boolean

If

dbConn.State

=

adStateOpen

Then

dbConn.Close:

Set

dbConn

=

Nothing

End

If

End

Function

Private

Sub

Form_Load()

dim

dbname

as

string

dbname="D:\db.mdb"

‘数据库文件路径

if

Conn2DB(dbname)=true

then

msgbox

"连接数据库成功!"

CloseDb

end

if

End

sub

简单说一下思路，我想代码应该不会很难，首先要创建两个数据库连接，分别指向两个数据库。然后使用select语句从db1中把数据读取出来放到一个结果集中保存起来。然后在使用循环，在循环当中使用insert语句逐条把db1中student表的数据插入到db2的student表就可以了。没有什么技术难度。

---