请教！

Question

在程序中运行sql脚本呀
用vb的话你可以这样Private Sub CreateDataBase(cnDataBase as connect,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 cnDataBase.Execute strSql
      Close #1
End Sub其他的你可以定义一个到服务器的ado连接
然后可以这样：
比如：vb中
dim cn as New ADODB.Connection 
dim sql as string cn.open ".......到服务器的连接"
sql="master.dbo.xp_cmdshell ' osql -U username -P password -i c:\myquery.sql'"
cn.execute sql

Answer 1

我们用的是vc，所以第一种方式不太好用。zjcxc先生能不能说的具体点，谢了。