连接到 SQL

Question

我想添加一个到工作表的连接，以便每次刷新单元格时，都会从 SQL 传入一个值。我希望它引用其他工作表之一上的文本框，其中 ID =

如何设置连接以使用该值刷新。我应该在连接字符串中放入什么？我可以让它静态工作。

Answer 1

Excel 有一个方便的小功能，称为“导入外部数据”。这是我要做的：

1. 在 Excel 文件中，转到数据->导入外部数据->新数据库查询 (在您的情况下，“导入数据”选项不是最好的方法）

2. 完成向导。选择您的数据源等。除最后一个选项外，请选择在 Microsoft Query 中查看数据或编辑查询

3. MS Query 基本上是一个小型查询设计器。选择显示/隐藏条件图标（看起来像眼镜+漏斗）。

4. 这个用于输入条件的界面很像 Access。选择一个字段，而不是硬编码值，而是使用[Criteria]（或其他内容）。

5. 关闭 MS Query 并返回到 Excel 文件。

6. 在新数据范围中，右键单击参数。->从以下单元格获取值

7. 不要忘记单元格值更改时自动刷新

总而言之，您正在使用参数导入外部数据，并将该参数的值声明为文件中的单元格。嗯，这是我工作之余的一次愉快的休息。我希望这有帮助。

Answer 2

是什么导致细胞被刷新？连接字符串取决于您使用的数据库。下面的示例使用 Access 并需要引用 Microsoft ActiveX Dataobjects 2.8

数据放置在sheet1 上的单元格(1,1) 中。 where 子句取自sheet2 上的textbox1：

Private Sub CommandButton1_Click() 

Dim sqlQuery As String

sqlQuery = "SELECT * FROM myTable WHERE " & Worksheets("sheet2").TextBox1.Text
fetchData "C:\file_databases\myDatabase.accdb", Worksheets("sheet1").Cells(1, 1), sqlQuery

End Sub

Private Function fetchData(databaseName As String, targetRange As Range, sqlQuery As String)

Dim connection As New ADODB.connection
Dim records As New ADODB.Recordset
Dim connectionString As String
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & databaseName & ";"

connection.Open connectionString
records.Open sqlQuery, connection
targetRange.CopyFromRecordset records

records.Close
connection.Close

End Function