计算机改名后，vb无法运行
各位老师，我把计算机的名称改了，sql server的名称也随之改了，而我写的vb程序却无法运行，请问各位老师是怎么回事，谢谢
将名称换成变量。
icpnm = environ("computername")
原来连接代码是cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理5.11SQL"
计算机改为user_001，sql server的名称也改为user_001，所以我把代码改为cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理5.11SQL;data source=user_001",结果自己编写的vb成绩却无法运行了，请问各位老师是怎么回事，谢谢
机器名改成IP就可以了
先用控制面板上的数据源连接一下数据库服务器看看是否能连接上,试试服务器SQL SERVER是否工作正常.
解决了，谢谢各位老师
相关问答：
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
