关于远程访问数据库~~求救[在线等候]~~立即结分

[wdwd05]

我如何用ODBC 通过 INTERNET 连接 远程的 数据库？其实也是应用程序层，如何用ODBC 远程连接 数据库服务器呢？

[Alicky]

用ODBC的化就要配置ODBC
用ADO直接连接数据库比较方便些。
下面的用ADO连接SQL的例子：
Option Explicit
Public SqlConn As New ADODB.Connection

'功能简介：建立SQL数据库公共链接
'参数一：服务器名或IP
'参数二：数据库名称
'参数三：登陆用户名称
'参数四：登陆用户密码
'参数五：延时
'返回值："ok"--成功, 否则返回错误信息
Function PulbicSQLConn(StrServerName As String, StrDataName As String, StrUserName As String, StrPassword As String, IntOutTime As Integer) As String
On Error GoTo SQLConnErr
Dim StrSql As String
StrSql = "Provider=sqloledb;Data Source=" & StrServerName & ",1433;Initial Catalog=" & StrDataName & ";User ID=" & StrUserName & ";Password=" & StrPassword & ";"
If SqlConn.State <> 0 Then SqlConn.Close
SqlConn.ConnectionTimeout = IntOutTime
SqlConn.Open StrSql
PulbicSQLConn = "ok"
Exit Function
SQLConnErr:
PulbicSQLConn = Err.Description
If SqlConn.State <> 0 Then SqlConn.Close: Set SqlConn = Nothing
End Function

'功能简介：关闭SOL数据库公共链接
Function PublicMdbClose()
If SqlConn.State <> 0 Then SqlConn.Close: Set SqlConn = Nothing
End Function

[wdwd05]

alicky(周松) 谢谢你~

其实用ADO连接我也多少会点~

我真的想知道ODBC是怎么 远程连接 数据库的~是如何配置的呢？

还有没有会的了？？？？？？帮帮忙啊~

[hiker_lx]

应用程序和数据库部署在VPN上。

[wdwd05]

那么每个企业一定都有VPN吗？

我是说万一没有VPN的话应该怎么处理？

[wdwd05]

难道ODBC没有象OLEDB那样支持写对方的IP地址这个功能吗？不会吧？

[zhp80]

只要知道远程数据库器的IP或DNS名就行了，把把服务器名换成远程数据库器的IP或DNS名
如果没有安全性考虑，不一定必须用VPN

[wdwd05]

zhp80(zhp80) 当然知道远程IP，例如局域网不用计算机名连，而是用局域网的IP连，其实也算是 远程IP，但ODBC根本就不支持IP啊~~

不要和我说局域网，ODBC可以直接连计算机名，这个我知道，我只想知道ODBC怎么连接IP~~~

还有谁能帮我~~~~

[射天狼]

连接的是什么数据库!?

[frank_xpy]

先手动配置ODBC，DSN为name，之后加个adodc控件，其属性：
通用－>odbc数据源,选择name，确定即可

[wdwd05]

frank_xpy(椰子)

这是什么意思？?是我懂的太少了还是你在乱说？我真不明白你的意思~ 我要用ODBC 通过 INTERNET连接 SQL，或者其他数据库~

有没有能帮忙回答的了？

难道斑竹都回答不了吗？？？？？？？？？？？？？？？？？李洪根，站出来说句话啊~

： cuizm(射天狼) 随便什么数据库都行~

[chenyu5188]

你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.X Library”
注：2.X为版本号，如果你机子上有高版本的就用高版本的，如：2.5或2.6的

示例：
dim cn as new adodb.Connection
dim rs as new adodb.recordset
dim sqlstr as string
cn.open "Provider=SQLOLEDB;Driver={SQL Server};Server=服务器名或IP地址;Uid=用户名" & _
";Pwd=密码;Database=数据库名"
rs.cursorlocation=aduseclient
rs.open "select * from XXX",cn,3,3
rs.save "d:\mydata\data.rst",adPersistXML'保存
rs.close
rs.open "d:\mydata\data.rst",cn,AdOpenDynamic,AdLockBatchOptimistic,adCmdFile'打开
msgbox "共有：" & rs.recordcount & "条记录!!!"
rs.close
set rs=nothing
cn.close
set cn=nothing

[射天狼]

不同的数据连接方式不一样,如果是SYBASE的话可以用SYBASE的添加服务器工具直接添加远程服务器,可以通过IP.