数据库链接问题

[财务会计从入门到跑路]

本来一直很好用的，我误删了什么东西后每次链接就会提示

在建立与服务器的链接时出错，在链接到sql server 2005时，在默认的设置 sqlserver 不允许进行远程连接可能会导致次失败（provider:共享内存提供程序error 40-无法打开到 sql server的链接）

该怎么改呢，我用的是sql2000数据库，安装vs2005它给我加了装了个sql2005

[magicbacon]

请参见：http://topic.csdn.net/t/20061103/09/5130028.html

[magicbacon]

请看最后一个回复。

[风上人]

Dim sqlConnection1 As SqlClient.SqlConnection

Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”

sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)

sqlConnection1.open ‘打开数据库

sqlConnection1.close

[风上人]

'设置连接串...
Dim strConnString as String

strConnString="Provider=SQLOLEDB;Persist Security Info=True;Data Source=192.168.0.245;Initial Catalog=pubs;User ID=saa;Password=liang;"
'创建对象ADOConnection
Dim objConn as OleDbConnection
objConn = New OleDbConnection

'设置ADOCOnnection对象的连接串
objConn.ConnectionString = strConnString

objConn.Open() '打开数据链路

'创建SQL字符串
Dim strSQL as String = "SELECT * FROM authors"

'创建对象ADODatasetCommand 和Dataset
Dim objDSCommand as OleDbCommand
Dim objDataset as Dataset = New Dataset
objDSCommand = New OleDbCommand(strSQL, objConn)

'填充数据到Dataset
'并将数据集合命名为 "Author Information"
objDSCommand.Fill(objDataset,"Author Information")
objConn.Close() '关闭数据链路
objConn = Nothing '清除对象


Authors.DataSource = _
objDataset.Tables("Author Information").DefaultView
Authors.DataBind()