在VB中执行SQL脚？？？？

Question

为什么我的SQL脚本在我的机器上可以使用，但在别的机器就提示，找不到数据库？？怎么回事呀？？我是XP系统下做的程序，及安装程序，安装到另一个台WIN 2000 的机器上脚本出错??

Answer 1

[VB] 执行SQL脚本文件(.sql)的两种方法 
1.
Public Sub ExecuteSQLScriptFile(cn as ADODB.Connection,sqlFile As String)
Dim strSql As String, strTmp As String
        
      Open sqlFile For Input As #1
      strSql = ""
      Do While Not EOF(1)
          Line Input #1, strTmp
          If UCase$(strTmp) = "GO" Then
              cn.Execute strSql
              strSql = ""
          Else
              strSql = strSql & strTmp & vbCrLf
          End If
      Loop
      If strSql <> "" Then cn.Execute strSql
      Close #1
End Sub2.
Public Sub ExecuteSQLScriptFile(cn as ADODB.Connection,sqlFile As String)
Dim sql as string        sql="master.dbo.xp_cmdshell ' osql -U username -P password -i " & sqlFile
       cn.execute sql
End Sub