本地SQL Server的连接问题

Question

我本地有一SQL Server服务，参数如下：
name：local_temp_server
ip: 22.33.44.55怎样能使我本地的程序可以访问呢？我用ADO它老提示“服务不存在……”

Answer 1

dim ac_tmp   as new adodb.connection
dim ar_tmp   as new adodb.recordsetWith ac_tmp     '打开数据库连接
    If .State = adStateOpen Then .Close
    .ConnectionString = "driver=SQL Server;server=" & 服务器名或IP地址 & ";uid=sa;pwd=;database=" & 数据库名称
    .CommandTimeout = 120
    .Open
End Withif ar_tmp.state=adstateopen then ar_tmp.close
ar_tmp.open "select * from tablename",ac_tmp,adopenkeyset,adlcokreadonly
set mshflexgrid.datasource=ar_tmp
set ar_tmp=nothing

Answer 2

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=密码;User ID=sa;Initial Catalog=数据库名;Data Source=local_temp_server"

Answer 3

"Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=数据库名;Data Source=local_temp_server;Password=密码"

Answer 4

'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=local_temp_server;Initial Catalog=数据库;User Id=用户名;Password=密码;"    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from 表", CN, adOpenDynamic, adLockOptimistic