ado连时,我在局域网内连服务器上的sql server用internet ip 地址可以,但拔号上网连就连不上了,我设置是不是需要注意哪些呢?
---- 在对数据库操作时,用户往往会碰到多种数据库表格数据的互导,如将SYBASE表中的数据导入WINDOWS的Sql Server表中或是Access的*.mdb表。如果用传统的DB-Libraryf方式:先用select语句读出数据再用insert语句导入数据。这种方法的缺陷是:如果表格的字段太多编程时势必要出错且不易调试;字段数据中有“’”符号时无法用insert将其插入。ADO(Activex Data Objects)很好的解决了这些问题。ADO处在DB-Liberary的上端,Microsoft将其捆在MDAC发布。自今ADO已由ADO1.0,ADO1.5发展到ADO2.0版,ADO1.0以上版本支持大字段(如Access表中的备注)。ADO对字段名即可以直接写出其字段名称也可以用阿拉伯数字代替。我们以ADO1.5为例,VB5.0英文版为编程语言。如果机器里装有ADO,则在Windows 95下在c:\Program Files\ Common Files\ System\ado下有msado15.dll,msador15.dll文件。打开VB5.0,建立一个应用程序,在“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数据表中已有数据。 Dim cjconn As ADODB.Connection Dim cjrst As ADODB.Recordset 注:cjconn,cjrst是要从objconn,objrst导入数据 Dim i As Long
Private Sub Command1_Click() Set objconn = New ADODB.Connection objconn.Open "servername", "username", "userpassword" 注:“servername”是用户在“控制面板” 的“ODBC 32” 中建立的数据源、“username” 是用户对数据源(SYBASE)的用户名, ”userpassword” 用户对数据源 (SYBASE)的用户密码。
Set objrst = New ADODB.Recordset Set objrst.ActiveConnection = objconn objrst.LockType = adLockOptimistic objrst.CursorType = adOpenKeyset objrst.Source = "tablename" 注:“tablename” 数据源中的表名。 objrst.Open
Set cjconn = New ADODB.Connection cjconn.Open "servername", "username", "userpassword" 注:“servername”,”username”, ”userpassword”含义同上, 只不过数据源是其他数据库。 Set cjrst = New ADODB.Recordset Set cjrst.ActiveConnection = cjconn cjrst.Source = "tablename" 注:“tablename” 含义同上, 该表中的字段类型应 与上面的表中的字段类型一致 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”用于显示已导入了多少条记录。 Loop End Sub ---- 以上的1到14就是字段的索引值,用起来非常方便。以上的程序不但适用于SYBASE与WINDOWS的Sql server 、Access之间互导;还适用于SYBASE与SYBASE,Sql server与Access之间互导,只要“ODBC 32”中有各自数据源即可。
Dim objrst As ADODB.Recordset
注:objconn,objrst数据表中已有数据。
Dim cjconn As ADODB.Connection
Dim cjrst As ADODB.Recordset
注:cjconn,cjrst是要从objconn,objrst导入数据
Dim i As Long
Private Sub Command1_Click()
Set objconn = New ADODB.Connection
objconn.Open "servername", "username",
"userpassword"
注:“servername”是用户在“控制面板”
的“ODBC 32”
中建立的数据源、“username”
是用户对数据源(SYBASE)的用户名,
”userpassword” 用户对数据源
(SYBASE)的用户密码。
Set objrst = New ADODB.Recordset
Set objrst.ActiveConnection = objconn
objrst.LockType = adLockOptimistic
objrst.CursorType = adOpenKeyset
objrst.Source = "tablename"
注:“tablename” 数据源中的表名。
objrst.Open
Set cjconn = New ADODB.Connection
cjconn.Open "servername", "username",
"userpassword"
注:“servername”,”username”,
”userpassword”含义同上,
只不过数据源是其他数据库。
Set cjrst = New ADODB.Recordset
Set cjrst.ActiveConnection = cjconn
cjrst.Source = "tablename"
注:“tablename” 含义同上,
该表中的字段类型应
与上面的表中的字段类型一致
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”用于显示已导入了多少条记录。
Loop
End Sub
---- 以上的1到14就是字段的索引值,用起来非常方便。以上的程序不但适用于SYBASE与WINDOWS的Sql server 、Access之间互导;还适用于SYBASE与SYBASE,Sql server与Access之间互导,只要“ODBC 32”中有各自数据源即可。