如何编写连接string

我想在Excel中使用VBA来查询一个SQL数据库，我给了下面的代码作为起点，这是令人敬畏的，但我不知道编写连接string的语法，到目前为止一直无法find它。 希望你们能帮助我。

Dim cn as new ADODB.Connection Dim rs as new ADODB.Recordset Cn.ConnectionString = “your connection string” Cn.Open Rs.Open “query like SELECT * FROM MYTABLE etc.”, cn Range(“A1”).CopyFromRecordset rs Rs.close Cn.close 

Answer 1

这段代码可能会帮助你（这只是我手头上接近你想做的事情，而不是重写你的），但是你的连接string会根据你的数据库而有所不同。 去这里获取关于string本身的语法的更多信息。 你得到一个编译错误，因为你没有适当的引用。 在VBE中，转到工具并select引用。 确保ActiveX数据对象6.1库被选中。

  Private Sub GetFieldNames() Set con1 = New ADODB.Connection Set rs1 = New ADODB.Recordset Dim ProjectName As String Dim ConCat As String con1.ConnectionString = "Provider=SQLOLEDB;Data Source=SERVERADDRESS;Initial Catalog=DATABSE;IntegratedSecurity=SSPI" con1.Open With rs1 .ActiveConnection = con1 .Open "SELECT column_name,* From information_schema.columns Where table_name = 'Projects' ORDER by ordinal_position" Sheet1.Range("A1").CopyFromRecordset rs1 .Close End With con1.Close Set con1 = Nothing End Sub