Saironnie Ответов: 1

Проверка с помощью таблиц SQL server с помощью excel VBA

Мне нужна некоторая помощь в завершении одного из моих действий, которое требует таблиц Excel vba и SQL server...


Таблица SQL server - >

1) Maintain_Table-->который состоит только из одного значения, которое равно 0 или 1.

Действие
1) на листе Excel появится кнопка "нажмите здесь".
2) Когда пользователь нажимает на кнопку, он должен сначала проверить, имеет ли Maintain_Table значение 0 или 1, и показать всплывающее сообщение соответственно.

Что я уже пробовал:

я погуглил, но не смог получить никакой помощи.

1 Ответов

Рейтинг:
0

Leo Chapiro

Вы можете вызвать этот метод, нажав на кнопку.
Это всего лишь пример того, как подключить SQL Server через ADO:

Sub ConnectSqlServer()

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sConnString As String
 
    ' Create the connection string.
    sConnString = "Provider=SQLOLEDB;Data Source=INSTANCE\SQLEXPRESS;" & _
                  "Initial Catalog=MyDatabaseName;" & _
                  "Integrated Security=SSPI;"
    
    ' Create the Connection and Recordset objects.
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    ' Open the connection and execute.
    conn.Open sConnString
    Set rs = conn.Execute("SELECT * FROM Table1;")
    
    ' Check we have data.
    If Not rs.EOF Then
        ' Transfer result.
        Sheets(1).Range("A1").CopyFromRecordset rs
    ' Close the recordset
        rs.Close
    Else
        MsgBox "Error: No records returned.", vbCritical
    End If

    ' Clean up
    If CBool(conn.State And adStateOpen) Then conn.Close
    Set conn = Nothing
    Set rs = Nothing
    
End Sub

Leo Chapiro

Если эта задача слишком сложна для вас, подумайте о том, чтобы приобрести услугу программирования, а не пытаться сделать это самостоятельно. Я пометил ваш пост как "не вопрос".