Question

急急急！！！！！！！！！！！！数据库链接问题

有两台电脑，一台电脑上没有装SQL SERVER2008数据库，但是我写了个链接数据库的程序，另一台服务器电脑上有SQL SERVER2008数据库,我想用我这台没有数据库的电脑去链接服务器电脑上的数据库，出现了问题。先声明：我已经把服务器电脑上的SQL 配置服务全部开启，防火墙也关了，链接代码如下：
Dim connectionstring As String
connectionstring = "Data Source=ninghao-PC;" & "Network Library=DBMSSOCN;Initial Catalog=tianchounh;User ID=saassword=sa123456;"
Dim databaseinfo As String = ""
Dim con As New SqlConnection(connectionstring)
con.Open()
databaseinfo = "Server Version：" & con.ServerVersion & vbCrLf
databaseinfo += "Connection Is：" & con.State.ToString & vbCrLf
con.Close()
databaseinfo &= "Now Connection Is：" & con.State.ToString
Label1.Text = databaseinfo
出现的问题下所示：
在建立与服务器的连接时出错。在连接到SQL SERVER2005时，在默认的设置下SQL SERVR 不运行进行远程连接可能会导致此失败。（provider:TCP 提供程序，error:0-由于连接方在一段时间后没有正确答复或连接的主机没有反应，连接尝试失败。）

Answer 1

可是好像根本就没连上数据库。还是哪儿错了？？求高手解答啊~急急急~~！！ Private Sub Form_Load() Dim con As ADODB.Connection Dim str As

Answer 2

Private Sub Form_Load()
Dim con As ADODB.Connection
Dim str As ADODB.Recordset
Dim sql As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\dm.mdb;Persist Security Info=False"
sql = "select 状态 from yj where id = '001'"
str.open sql,con,1,3 '根本就没这句，没打开数据库

If 状态 = True Then
Label2.ForeColor = &HC000&
Else
Label2.ForeColor = &HFF&
End If
con.Close
End Sub

Answer 3

你开启了外围服务？数据库连接上了？
set rs=createObject("adodb.recordset");
rs.open exec,conn,1,3'打开数据库