VB远程连接SQL server 2005

VB远程连接SQL server 2005

想以办公室电脑作为服务器，用VB链接它的sql server 2005数据库，第一次弄，试了好几天都没成功，看网上说的方法都很简单，只要将连接字符串设置为如下语句就可以：

strConnection = "driver={SQL Server};Database=数据库名;U

可是我也是按照这个做的，就是连不上，后来偶然看见一个帖子，随口提了一句，服务器的配置要允许远程访问，这才想到装sql server的时候一般都有个选项，让选择本地连接还是远程连接，一般都默认选择本地连接。这才想到首先要打开服务器的远程访问功能，以sql server 2005为例：

sql server 的配置工具---外围应用配置器----服务和连接的外围应用配置器---打开之后在左侧列表中选择“远程连接”----默认的是“仅限本地连接”，我们选择“本地连接和远程连接”，然后再选“仅使用TCP/IP”----应用---确定 即可打开远程访问功能。

然后在程序中设置连接字符串如下，以下两句都可以，我已经试过了：

strConnection = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;" & _

"User

strConnection = "driver={SQL Server};Database=DBmydata;U

我的数据库连接的整个函数如下：

Public Function OpenDatabase(strDatabaseName As String, strDBSrvName As String) As Boolean

On Error GoTo err_Handle

Dim strConnection As String

Dim strFullPath As String

If gCN.State = adStateConnecting Then

MsgBox "数据库已经被打开！", vbOKOnly + vbInformation, "提示！"

Else

strConnection = ""

OpenDatabase = False

'///连接SQLServer数据库///

strConnection = "Provider=SQLOLEDB.1;Password=chdeducn;Persist Security Info=True;" & _

"User & strDatabaseName & ";Data Source=10.190.1.33"

'strConnection = "driver={SQL Server};Database=DBMiomi;U

gCN.ConnectionString = strConnection

gCN.CursorLocation = adUseClient

gCN.ConnectionTimeout = 15

gCN.CommandTimeout = 600

gCN.Open

OpenDatabase = True

End If

Exit Function

err_Handle:

MsgBox "数据库连结失败！", vbOKOnly + vbInformation, "提示！"

OpenDatabase = False

End Function