下列语句导入数据库数据与操作系统有关吗？

Question

下面这样一个语句与操作系统有关吗？
因为试过几次，win2000的系统就可以执行，但是XP的系统就不行，提示错误
是在cn.Open那里
请问该这样改为所以操作系统通用的语言？？？
多谢啦！！！！！Dim gh$
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
 
Private Sub CommandButton1_Click()
       gh = TextBox1.Text  
        Dim buttonnum As Integer       cn.Open "UID=GRSEEK;PWD=1234;DRIVER={SQL SERVER};SERVER=\\xxglk\pipe\sql\query;database=grdt2000"
       Set rs = cn.Execute("select contract_number,user_name,main_con_number,tdzj from elevator_parameter where contract_number='" & gh & "'")
          rs.Close
          cn.Close
          Exit Sub

Answer 1

应该是SERVER=\\xxglk\pipe\sql\query;database=grdt2000这句的问题吧。

Answer 2

Provider=MSDASQL.1;Extended Properties="DRIVER=sql server;SERVER=服务器名;UID=数据库用户名;PWD=密码;DATABASE=数据库名"

Answer 3

sql server的连接字符串的SERVER参数是指定服务器的IP或计算机名,不是文件名或路径

Answer 4

但是这该这么解释WIN2000里面运行就没事，XP系统就不行？

Answer 5

我好像发错版面了，上面是应用于excel里面的VBA语句
但是也请大家帮忙查找一下原因

Answer 6

我也觉得是Server参数写得不太规范，楼主把连接字符串该成adamcn提供的模式试试看。

Answer 7

能不能说说adamcn提供的模式是怎么样的？