web-dev-qa-db-ja.com

VBAを使用してSQLテーブルにのみ新しいレコードを挿入する

以下のコードを含むExcelワークブックがあります-

Sub Button1_Click()
    Dim conn As New ADODB.Connection
    Dim iRowNo As Integer
    Dim sFirstName, sLastName As String

    With Sheets("Sheet1")

        'Open a connection to SQL Server
        conn.Open "Provider=SQLOLEDB;" & _
            "Data Source=server1;" & _
            "Initial Catalog=table1;" & _
            "User ID=user1; Password=pass1"

        'Skip the header row
        iRowNo = 2

        'Loop until empty cell in CustomerId
        Do Until .Cells(iRowNo, 1) = ""
            sFirstName = .Cells(iRowNo, 1)
            sLastName = .Cells(iRowNo, 2)

            'Generate and execute sql statement
            ' to import the Excel rows to SQL Server table
            conn.Execute "Insert into dbo.Customers (FirstName, LastName) " & _
                         "values ('" & sFirstName & "', '" & sLastName & "')"

            iRowNo = iRowNo + 1
        Loop

        MsgBox "Customers imported."

        conn.Close
        Set conn = Nothing

    End With

End Sub

これは私のデータベースへの接続を開き、指定された列から値を入力します。

主キーは、データベースの増分キーです。問題は、すべての値をコピーすることです。

Excelシートにデータの新しい行を追加し、まだ存在しない行のみを挿入したいのですが。

私はさまざまな方法（「マージ」、「存在する場合」、存在しない場合など）を試しましたが、正しく行えません。

ソリューションはVBAを介する必要があります。 SSMSを使用してリンクを設定することはできません。

一時テーブルを使用してマージを実行するプロシージャをトリガーすることが可能であることを理解していますが、それを最後の手段として調べたいと思います。まだ読んでいませんが（MS SQL聖書の本を読み進めています）、それが必要ないことを願っています。

--- @ Kannanの回答からの更新---

VBAの新しい部分-

conn.Execute "IF EXISTS (SELECT 1 FROM dbo.Customers WHERE FirstName = '" &      sFirstName & "' and LastName = '" & sLastName & "') " & _
             "THEN UPDATE dbo.customers SET WHERE Firstname = '" & sFirstName & "' and LastName = '" & sLastName & "' " & _
             "ELSE INSERT INTO dbo.Customers (FirstName, LastName) " & _
             "VALUES ('" & sFirstName & "', '" & sLastName & "')"

これは、キーワード「THEN」の近くにエラー「不正な構文」を返します。

sql-serverexcel-vbassmsvbaexcel
9
Jamsandwich

あなたのSQLクエリは正しくありません-SQLにはTHENがありませんIF。

また、存在する場合は何もする必要がないため、存在しない場合はそのまま使用してください。

"IF NOT EXISTS (SELECT 1 FROM dbo.Customers WHERE FirstName = '" & sFirstName & "' and LastName = '" & sLastName & "') " & _
         "INSERT INTO dbo.Customers (FirstName, LastName) " & _
         "VALUES ('" & sFirstName & "', '" & sLastName & "')"
7
BeanFrog

これでうまくいくはずです。

Sub Button_Click()
'TRUSTED CONNECTION
    On Error GoTo errH

    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strPath As String
    Dim intImportRow As Integer
    Dim strFirstName, strLastName As String

    Dim server, username, password, table, database As String


    With Sheets("Sheet1")

            server = .TextBox1.Text
            table = .TextBox4.Text
            database = .TextBox5.Text


            If con.State <> 1 Then

                con.Open "Provider=SQLOLEDB;Data Source=" & server & ";Initial Catalog=" & database & ";Integrated Security=SSPI;"
                'con.Open

            End If
            'this is the TRUSTED connection string

            Set rs.ActiveConnection = con

            'delete all records first if checkbox checked
            If .CheckBox1 Then
                con.Execute "delete from tbl_demo"
            End If

            'set first row with records to import
            'you could also just loop thru a range if you want.
            intImportRow = 10

            Do Until .Cells(intImportRow, 1) = ""
                strFirstName = .Cells(intImportRow, 1)
                strLastName = .Cells(intImportRow, 2)

                'insert row into database
                con.Execute "insert into tbl_demo (firstname, lastname) values ('" & strFirstName & "', '" & strLastName & "')"

                intImportRow = intImportRow + 1
            Loop

            MsgBox "Done importing", vbInformation

            con.Close
            Set con = Nothing

    End With

Exit Sub

errH:
    MsgBox Err.Description
End Sub

参照を追加：Microsoft ActiveX Data Objects 2.8 Library

ちなみに、私のシートはこんな感じです。

enter image description here

1
user7075507

次のようなSQLクエリを使用できます。

IF Exists ( Select 1 from dbo.customers where Firstname = '" & sFirstName & "' and LastName = '" & sLastName & "' THEN Update dbo.customers set --other columns where Firstname = '" & sFirstName & "' and LastName = '" & sLastName & "'
ELSE Insert into dbo.Customers (FirstName, LastName) " & _
                     "values ('" & sFirstName & "', '" & sLastName & "')"

ExcelとC＃の構文がわからない場合は、このクエリと同様に修正できます

0
Kannan Kandasamy