Office中国论坛/Access中国论坛

标题: ADO连接问题，求救！ [打印本页]

作者: zxh 时间: 2005-7-29 03:48
标题: ADO连接问题，求救！
这样的，我在我的电脑上开发C/S结构的系统，客户端是ACCESS，数据库是MS SQL 2000 ，我的电脑是Win2K+MSDE，用ADO实现数据库的连接的（连的是我的电脑的MS SQL 2000），在我的机子上应用没有问题，一切正常，但是当我在同事那机子测试时问题就来了，一定要在那机子里执行此操作：开始->运行->\\192.168.1.10\d$回车，输入我的用户名和密码进入我的电脑才行，进了一次我的机子，以后就成功连上了，否则在同事那的机子一直连不上我机子的数据库，我现在不想那么麻烦，客户端在局域网里的任一台机子装上就能运行，如何解决？要不这个系统就不能应用了，白做了。谢谢！

作者: LucasLynn 时间: 2005-7-29 04:50
文件夹选项中去掉“简单文件共享”

共享安全中添加Evceryone读取

作者: zxh 时间: 2005-7-29 16:54
谢谢！您的意思是说把program files\Microsoft SQL Server共享出来对吗？如果是的话岂不是数据库很不安全了？

作者: secowu 时间: 2005-7-29 16:57
只有这个办法数据库的安全很重要。

作者: zxh 时间: 2005-7-29 17:10
能否不共享数据库文件夹啊？万一给人进入了岂不是什么都没了。

作者: LucasLynn 时间: 2005-7-29 18:20

以下是引用zxh在2005-7-29 9:10:00的发言：

能否不共享数据库文件夹啊？万一给人进入了岂不是什么都没了。

当然可以，关键是你的数据库连接是怎么做的。

按照标准的SQL连接方式来写，不会出现你遇到的问题。

作者: gaoqiwen 时间: 2005-7-30 02:52
我做的也是MSDE，在我的电脑上开发C/S结构的系统，客户端是ACCESS，不会有此问题；可能你的MSDE未作网络库等设置（我有试过）；装一个MS SQL 2000 客户端管理工具（MS SQL 2000 安装盘有）进行配置一下就可以了！[em04]

作者: zxh 时间: 2005-7-30 05:15
我的连接数据库代码是：Private Sub test_Click()

'数据库连接

Dim Server As String

Dim userid As String

Dim PassWord As String

Dim Catalog As String

On Error Resume Next

Server = Trim(DLookup("[Server]", "TB_Server"))

userid = Trim(DLookup("[UserId]", "TB_Server"))

PassWord = Trim(DLookup("[PassWord]", "TB_Server"))

Catalog = Trim(DLookup("[Catalog]", "TB_Server"))

'MsgBox Server

Dim Conn As ADODB.Connection

Set Conn = New ADODB.Connection

Conn.ConnectionString = "

rovider='SQLOLEDB';Data Source='" & Server & "';" & _

"Initial Catalog='" & Catalog & "';Integrated Security='SSPI';User Id='" & userid & "'

assword='" & PassWord & "'"

Conn.open

MsgBox GetState(Conn.State), vbOKOnly + vbInformation, "连接状态:"

End SubPublic Function GetState(intState As Integer) As String

Select Case intState

   Case adStateClosed

      GetState = "未能成功与数据库建立连接，请重试或与管理员联系！"

   Case adStateOpen

      GetState = "已与数据库成功连接！"

End SelectEnd Function其中TB_Server是存放IP、User ID 、PassWord、数据库等信息的我已经搞了一天，还是连不上数据库服务器，但是连本机就一切正常。

作者: zxh 时间: 2005-7-31 03:49
搞掂了，终于搞掂了，两天了，原来是ConnectionString里写多了单引号，结果就不成功连接数据库服务器，谢谢各位帮忙。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)