Question

VB连接本地SQL数据库，如何自动获取计算机名 详细的高分追加。

部分程序如下：
Public myCnn As New ADODB.Connection
Public myRs As New ADODB.Recordset

Private Sub Command1_Click()
myRs.AddNew
myRs("日期") = DTPicker1.Value
myRs("甲班矿量") = Val(Text1(0).Text)
myRs("乙班矿量") = Val(Text1(1).Text)
myRs("甲班品位") = Val(Text1(2).Text)
myRs("乙班品位") = Val(Text1(3).Text)
myRs.Update
End Sub

Private Sub Form_Load()
Dim myStr As String
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source=小李飞刀;Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"
myCnn.ConnectionString = myStr
myCnn.Open
myRs.Open "select * from 表2009", myCnn, adOpenDynamic, adLockOptimistic
End Sub

上面的程序已通过，没问题。连接字符串是用新建udl文件的方法生成的。其中的“小李飞刀”是本地计算机名。
当将这个程序及本地数据库移植到另一台计算机上时（数据库路径也相同），需要将“小李飞刀”修改成新的计算机名。
如何实现自动获取计算机名？注意是连接本地数据库。

还有以下问题，如能详述，会追加分数。
在网上搜了，连接字符串花样百出，请问：
连接字符串一共有哪些项，哪些项可以省略，各项可以取什么常数、什么值。若取常数，请详述各常数的含义。

若能继续回答以下问题，会再次追加分数。
以上程序若要访问远程数据库，要改哪些参数

本人分多，决不食言。不设悬赏是怕没人答。

Answer 1

首先定义一个公共变量a
public a As Object
a = CreateObject("Wscript.Network")
然后将
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source=小李飞刀;Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"
改成
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=日报表原始数据;Data Source="+a.ComputerName+";Initial File Name=D:\日报\库\日报表原始数据2009_Data.MDF"

Answer 2

按照你的程序的方法，不需要知道机器名。udl的命名是随意的，不必一定要用计算机名称。

你的软件安装到别的电脑上的时候，只需要建立一个同样名称(小李飞刀)的udl就可以了。

如果你觉得“小李飞刀”这个名称不够通用，换个名字就可以了。