VB如何获得本机SQL服务器名
我在一个VB+SQL的程序用ADO进行连接如下
Dim connstring As String
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=228315315;Persist Security Info=False;User ID=liyi;Initial Catalog=teach;Data Source=YIYI\SHOW "
conn.Open connstring
正确是正确但是这个程序必须在服务器名为YIYI\SHOW上运行才行.那么请问老师们
VB如何获得本机SQL服务器名.....请老师们回答细得谢谢

[解决办法]
本机SQL服务器名,用(local)替代即可
[解决办法]
"Provider=SQLOLEDB.1;Password=228315315;Persist Security Info=False;User ID=liyi;Initial Catalog=teach;Data Source=YIYI\SHOW "
可以转换为
"Provider=SQLOLEDB.1;Password=228315315;Persist Security Info=False;User ID=liyi;Initial Catalog=teach;Data Source= " & xxx
这个xxx可以是个函数或者字符串，表示数据服务器所在计算机的名字



[解决办法]
呵呵，我恰好也在写这部分的程序，把代码给你吧
Dim oNames As SQLDMO.NameList
Dim oApp As SQLDMO.Application
Dim i As Long

Me.MousePointer = vbHourglass
DoEvents
Set oApp = New SQLDMO.Application
Set oNames = oApp.ListAvailableSQLServers()
obj.Clear
For i = 1 To oNames.Count
obj.AddItem oNames.Item(i)
Next
Me.MousePointer = vbArrow

obj是我的程序里用到的一个combobx
[解决办法]
我现在把连接字符串放在了一个ini文件里了，如果不能正确连接，启用自己的一个窗口，设置数据库连接