VBScript如何设置连接字符串

Question

我不确定之前是否讨论过它，但我有以下代码（我从 Access 数据库的示例中更改。）

我不知道在 'Provider' 和 'Data Source' 里面放什么.我正在使用 MS SQL Server 2005，如何在我的机器中找到这些信息？拜托，即使我尝试从这里 http://www.connectionstrings.com/ 关注，但我仍然不知道该怎么做。

Dim conn, sql
sql = "SELECT * FROM tblOutbox"
Set conn = CreateObject("ADODB.Connection")
With conn
      .Provider = "myProvider"
      .Mode = adModeReadWrite
   .ConnectionString = "Data Source=mysource;" & _
          "database=myDbase.mdf;   "
      .Open 
End With
If conn.State = adStateOpen Then
      WScript.Echo "Connection was established."
End If
conn.Close
Set conn = Nothing

这里使用的是访问数据库：

Dim conn 
Dim sql
sql = "SELECT * FROM tblOutbox"
Set conn = CreateObject("ADODB.Connection")
   With conn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Mode = adModeReadWrite
      .ConnectionString = "Data Source= f:/Status.mdb"
      .Open 
   End With
   WScript.Echo "Connection was opened." 
conn.Close
Set conn = Nothing
WScript.Echo "Connection was closed."

Answer 1

尝试在连接字符串中设置提供者

conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=XXX;Initial Catalog=XXX;User ID=<XXX>;Password=<XXX>;"

注意：我还没有测试过，但它应该可以工作

Answer 2

满足您所有的连接字符串需求：http://www.connectionstrings.com/

Answer 3

感谢您的帮助，我终于找到了解决方案。 在管理工具、数据源 (ODBS)、驱动程序选项卡下，我使用提供程序：SQLNCLI，我的服务器：数据源，并将 Recordset rs 添加到代码中。似乎没有这个，连接就没有建立起来。我不知道发生了什么。

Dim conn , rs, sql, ConnString
sql = "SELECT * FROM tblOutbox"
Set rs = CreateObject("ADODB.Recordset")
Set conn = CreateObject("ADODB.Connection")
With conn
      .Provider = "SQLNCLI"
      .Mode = adModeReadWrite
      .ConnectionString = "SERVER=.\SQLExpress;AttachDbFilename=F:\Test2.mdf;Database=Test2.mdf; Trusted_Connection=Yes;"
      .Open
      WScript.Echo "Connection was established."
End With
rs.Open sql,conn
If conn.State = adStateOpen Then
      WScript.Echo "Connection was established."
Else
  WScript.Echo "No Connection ."
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

Answer 4

使用 SQL Server，您不会直接连接到文件。 Access，作为基于文件的 RDBMS 有点不同。

按照你的例子，它看起来像这样：

Dim conn, sql
sql = "SELECT * FROM tblOutbox"
Set conn = CreateObject("ADODB.Connection")
With conn
      .Mode = adModeReadWrite
      .ConnectionString = "Provider=SQLOLEDB;server=[servername];database=[databasename]uid=[insertuser];pwd=[insertpassword];"
      .Open 
End With
If conn.State = adStateOpen Then
      WScript.Echo "Connection was established."
End If
conn.Close
Set conn = Nothing

通常有一种更简洁的方法，但如果没有上下文，很难给出更好的例子