---- 在對數(shù)據(jù)庫操作時，用戶往往會碰到多種數(shù)據(jù)庫表格數(shù)據(jù)的互導(dǎo)，如將sysbase表中的數(shù)據(jù)導(dǎo)入WINDOWS的Sql Server表中或是Access的*.mdb表。如果用傳統(tǒng)的DB-Libraryf方式：先用select語句讀出數(shù)據(jù)再用insert語句導(dǎo)入數(shù)據(jù)。這種方法的缺陷是：如果表格的字段太多編程時勢必要出錯且不易調(diào)試；字段數(shù)據(jù)中有“’”符號時無法用insert將其插入。ADO（Activex Data Objects）很好的解決了這些問題。ADO處在DB-Liberary的上端，Microsoft將其捆在MDAC發(fā)布。自今ADO已由ADO1.0,ADO1.5發(fā)展到ADO2.6版，ADO1.0以上版本支持大字段（如Access表中的備注）。ADO對字段名即可以直接寫出其字段名稱也可以用阿拉伯?dāng)?shù)字代替。我們以ADO1.5為例，VB5.0英文版為編程語言。如果機(jī)器里裝有ADO，則在Windows 95下在c:\Program Files\ Common Files\ System\ado下有msado15.dll,msador15.dll文件。打開VB5.0，建立一個應(yīng)用程序，在“Project”菜單中選用“Reference”——> “Microsoft Activex Data Objects 1.5 Library”和 “Microsoft Activex Data Objects Recordset 1.5 Library”
---- 下面是具體的程序：
Dim objconn As ADODB.Connection
Dim objrst As ADODB.Recordset
注：objconn,objrst數(shù)據(jù)表中已有數(shù)據(jù)。
Dim cjconn As ADODB.Connection
Dim cjrst As ADODB.Recordset
注：cjconn,cjrst是要從objconn,objrst導(dǎo)入數(shù)據(jù)
Dim i As Long
Private Sub Command1_Click()
Set objconn = New ADODB.Connection
objconn.Open "servername", "username",
"userpassword"
注：“servername”是用戶在“控制面板”
的“ODBC 32”
中建立的數(shù)據(jù)源、“username”
是用戶對數(shù)據(jù)源（SYBASE）的用戶名,
”userpassword” 用戶對數(shù)據(jù)源
（SYBASE）的用戶密碼。
Set objrst = New ADODB.Recordset
Set objrst.ActiveConnection = objconn
objrst.LockType = adLockOptimistic
objrst.CursorType = adOpenKeyset
objrst.Source = "tablename"
注：“tablename” 數(shù)據(jù)源中的表名。
objrst.Open
Set cjconn = New ADODB.Connection
cjconn.Open "servername", "username",
"userpassword"
注：“servername”,”username”,
”userpassword”含義同上，
只不過數(shù)據(jù)源是其他數(shù)據(jù)庫。
Set cjrst = New ADODB.Recordset
Set cjrst.ActiveConnection = cjconn
cjrst.Source = "tablename"
注：“tablename” 含義同上，
該表中的字段類型應(yīng)
與上面的表中的字段類型一致
cjrst.Open
i = 0
Do While Not cjrst.EOF
i = i + 1
objrst.AddNew
objrst(0) = cjrst(0)
objrst(1) = cjrst(1)
objrst(2) = cjrst(2)
objrst(3) = cjrst(3)
objrst(4) = cjrst(4)
objrst(5) = cjrst(5)
objrst(6) = cjrst(6)
objrst(7) = cjrst(7)
objrst(8) = cjrst(8)
objrst(9) = cjrst(9)
objrst(10) = cjrst(10)
objrst(11) = cjrst(11)
objrst(12) = cjrst(12)
objrst(13) = cjrst(13)
objrst(14) = cjrst(14)
objrst.Update
cjrst.MoveNext
Debug.Print I
注：“I”用于顯示已導(dǎo)入了多少條記錄。
Loop
End Sub
---- 以上的1到14就是字段的索引值,用起來非常方便。以上的程序不但適用于SYBASE與WINDOWS的Sql server 、Access之間互導(dǎo);還適用于SYBASE與SYBASE，Sql server與Access之間互導(dǎo)，只要“ODBC 32”中有各自數(shù)據(jù)源即可。
---- 下面是具體的程序：
Dim objconn As ADODB.Connection
Dim objrst As ADODB.Recordset
注：objconn,objrst數(shù)據(jù)表中已有數(shù)據(jù)。
Dim cjconn As ADODB.Connection
Dim cjrst As ADODB.Recordset
注：cjconn,cjrst是要從objconn,objrst導(dǎo)入數(shù)據(jù)
Dim i As Long
Private Sub Command1_Click()
Set objconn = New ADODB.Connection
objconn.Open "servername", "username",
"userpassword"
注：“servername”是用戶在“控制面板”
的“ODBC 32”
中建立的數(shù)據(jù)源、“username”
是用戶對數(shù)據(jù)源（SYBASE）的用戶名,
”userpassword” 用戶對數(shù)據(jù)源
（SYBASE）的用戶密碼。
Set objrst = New ADODB.Recordset
Set objrst.ActiveConnection = objconn
objrst.LockType = adLockOptimistic
objrst.CursorType = adOpenKeyset
objrst.Source = "tablename"
注：“tablename” 數(shù)據(jù)源中的表名。
objrst.Open
Set cjconn = New ADODB.Connection
cjconn.Open "servername", "username",
"userpassword"
注：“servername”,”username”,
”userpassword”含義同上，
只不過數(shù)據(jù)源是其他數(shù)據(jù)庫。
Set cjrst = New ADODB.Recordset
Set cjrst.ActiveConnection = cjconn
cjrst.Source = "tablename"
注：“tablename” 含義同上，
該表中的字段類型應(yīng)
與上面的表中的字段類型一致
cjrst.Open
i = 0
Do While Not cjrst.EOF
i = i + 1
objrst.AddNew
objrst(0) = cjrst(0)
objrst(1) = cjrst(1)
objrst(2) = cjrst(2)
objrst(3) = cjrst(3)
objrst(4) = cjrst(4)
objrst(5) = cjrst(5)
objrst(6) = cjrst(6)
objrst(7) = cjrst(7)
objrst(8) = cjrst(8)
objrst(9) = cjrst(9)
objrst(10) = cjrst(10)
objrst(11) = cjrst(11)
objrst(12) = cjrst(12)
objrst(13) = cjrst(13)
objrst(14) = cjrst(14)
objrst.Update
cjrst.MoveNext
Debug.Print I
注：“I”用于顯示已導(dǎo)入了多少條記錄。
Loop
End Sub
---- 以上的1到14就是字段的索引值,用起來非常方便。以上的程序不但適用于SYBASE與WINDOWS的Sql server 、Access之間互導(dǎo);還適用于SYBASE與SYBASE，Sql server與Access之間互導(dǎo)，只要“ODBC 32”中有各自數(shù)據(jù)源即可。