1180
社区成员
- 主页
关于远程访问数据库~~求救[在线等候]~~立即结分
我如何用ODBC 通过 INTERNET 连接 远程的 数据库？其实也是应用程序层，如何用ODBC 远程连接 数据库服务器呢？
...全文
请发表友善的回复…
发表回复
射天狼 2003-07-12
不同的数据连接方式不一样,如果是SYBASE的话可以用SYBASE的添加服务器工具直接添加远程服务器,可以通过IP.
chenyu5188 2003-07-12
你首先要在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
“工程”－－＞“引用”－－＞“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
wdwd05 2003-07-10
frank_xpy(椰子)
这是什么意思？?是我懂的太少了还是你在乱说？我真不明白你的意思~ 我要用ODBC 通过 INTERNET连接 SQL，或者其他数据库~
有没有能帮忙回答的了？
难道斑竹都回答不了吗？？？？？？？？？？？？？？？？？李洪根，站出来说句话啊~
： cuizm(射天狼) 随便什么数据库都行~
这是什么意思？?是我懂的太少了还是你在乱说？我真不明白你的意思~ 我要用ODBC 通过 INTERNET连接 SQL，或者其他数据库~
有没有能帮忙回答的了？
难道斑竹都回答不了吗？？？？？？？？？？？？？？？？？李洪根，站出来说句话啊~
： cuizm(射天狼) 随便什么数据库都行~
frank_xpy 2003-07-10
先手动配置ODBC，DSN为name，之后加个adodc控件，其属性：
通用－>odbc数据源,选择name，确定即可
通用－>odbc数据源,选择name，确定即可
射天狼 2003-07-10
连接的是什么数据库!?
wdwd05 2003-07-10
zhp80(zhp80) 当然知道远程IP，例如局域网不用计算机名连，而是用局域网的IP连，其实也算是 远程IP，但ODBC根本就不支持IP啊~~
不要和我说局域网，ODBC可以直接连计算机名，这个我知道，我只想知道ODBC怎么连接IP~~~
还有谁能帮我~~~~
不要和我说局域网，ODBC可以直接连计算机名，这个我知道，我只想知道ODBC怎么连接IP~~~
还有谁能帮我~~~~
zhp80 2003-07-09
只要知道远程数据库器的IP或DNS名就行了，把把服务器名换成远程数据库器的IP或DNS名
如果没有安全性考虑，不一定必须用VPN
如果没有安全性考虑，不一定必须用VPN
wdwd05 2003-07-09
难道ODBC没有象OLEDB那样支持写对方的IP地址这个功能吗？不会吧？
wdwd05 2003-07-09
那么每个企业一定都有VPN吗？
我是说万一没有VPN的话应该怎么处理？
我是说万一没有VPN的话应该怎么处理？
hiker_lx 2003-07-09
应用程序和数据库部署在VPN上。
wdwd05 2003-07-09
alicky(周松) 谢谢你~
其实用ADO连接我也多少会点~
我真的想知道ODBC是怎么 远程连接 数据库的~是如何配置的呢？
还有没有会的了？？？？？？帮帮忙啊~
其实用ADO连接我也多少会点~
我真的想知道ODBC是怎么 远程连接 数据库的~是如何配置的呢？
还有没有会的了？？？？？？帮帮忙啊~
Alicky 2003-07-09
用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
用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