Как написать строку подключения

Question

Я пытаюсь использовать VBA в Excel для запроса базы данных SQL, и мне был предоставлен ниже код в качестве отправной точки, который является удивительным, но я не знаю синтаксиса для написания строки подключения и до сих пор не смогли его найти. Надеюсь, вы, ребята, можете мне помочь.

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

Этот код может помочь вам (это как раз то, что я имел под рукой близко к тому, что вы пытаетесь сделать, и не переписывание вашей), но строка подключения будет меняться в зависимости от вашей базы данных. Пойдите here для получения дополнительной информации о синтаксисе самой строки. Вы получаете ошибку компиляции, потому что у вас нет правильных ссылок. В VBE откройте «Инструменты» и выберите «Ссылки». Убедитесь, что библиотека ActiveX Data Objects 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