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

wdwd05 2003-07-09 10:11:34
我如何用ODBC 通过 INTERNET 连接 远程的 数据库?其实也是应用程序层,如何用ODBC 远程连接 数据库服务器呢?
...全文
15 点赞 收藏 12
写回复
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
射天狼 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
回复
wdwd05 2003-07-10
frank_xpy(椰子)

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

有没有能帮忙回答的了?

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

: cuizm(射天狼) 随便什么数据库都行~
回复
frank_xpy 2003-07-10
先手动配置ODBC,DSN为name,之后加个adodc控件,其属性:
通用->odbc数据源,选择name,确定即可
回复
射天狼 2003-07-10
连接的是什么数据库!?
回复
wdwd05 2003-07-10
zhp80(zhp80) 当然知道远程IP,例如局域网不用计算机名连,而是用局域网的IP连,其实也算是 远程IP,但ODBC根本就不支持IP啊~~

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

还有谁能帮我~~~~
回复
zhp80 2003-07-09
只要知道远程数据库器的IP或DNS名就行了,把把服务器名换成远程数据库器的IP或DNS名
如果没有安全性考虑,不一定必须用VPN
回复
wdwd05 2003-07-09
难道ODBC没有象OLEDB那样支持写对方的IP地址这个功能吗?不会吧?
回复
wdwd05 2003-07-09
那么每个企业一定都有VPN吗?

我是说万一没有VPN的话应该怎么处理?
回复
hiker_lx 2003-07-09
应用程序和数据库部署在VPN上。
回复
wdwd05 2003-07-09
alicky(周松) 谢谢你~

其实用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
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告