SQL「挿入」

Question

行に以下のコードでは問題（タイプの不一致エラー）があります： アクション= ....

は、私は、Excelからの配列をコピーするには、SQL INSERT INTOを使用するようにしてくださいPostgreSQLデータベースに貼り付けます。

Sub UploadToDatamart2() 

'Defining connection objects 
Dim cnn As New ADODB.Connection 
Dim rst As New ADODB.Recordset 
Dim LastRow As Long 

Sheets("AVON DICTIONARY").Activate 

'Opening the ODBC connection 
cnn.Open "Driver={PostgreSQL Unicode(x64)};DSN=postgres;Server=XXX;Port=5432;UID=YYY;PWD=ZZZ;Database=hurtownia;READONLY=0;PROTOCOL=6.4;FAKEOIDINDEX=0;SHOWOIDCOLUMN=0;ROWVERSIONING=0;SHOWSYSTEMTABLES=1" 

'Find the last row 
With ActiveSheet 
    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
'Picking up cell values 
    Category = .Range("A3:A" & LRow).Value 
    segment = .Range("B3:B" & LRow).Value 
    brand = .Range("C3:C" & LRow).Value 
End With 

'Defining and executing SQL insert 
Action = "INSERT INTO temp.avon_dictionary_test" & " VALUES ('{" & Category & "}','{" & segment & "}','{" & brand & "}')" 
Result = cnn.Execute(Action) 

cnn.Close 
End Sub 

、誰もがあなたがCategory、segmentとbrand変数の範囲を割り当てる

Answer 1

を助けることができれば、私は喜んでいるだろう。ある範囲が変数に代入されると、その変数はバリアントから配列に変換されます（変数が特に宣言されていない限り）。変数が配列であるため、項目を参照する必要があります（Category(0)）。 Action =ステートメントの項目を参照してみてください

Answer 2

カテゴリ、セグメントとブランドは2D配列なので、そのような文字列で連結することはできません。あなたは最初にそれらから文字列を構築するためにJOINを使用、その後、1D-配列にそれらを移調する必要があります。次に置き換える

まず

Category = Application.Transpose(.Range("A3:A" & LRow).Value) 
segment = Application.Transpose(.Range("B3:B" & LRow).Value) 
brand = Application.Transpose(.Range("C3:C" & LRow).Value) 

で

Category = .Range("A3:A" & LRow).Value 
segment = .Range("B3:B" & LRow).Value 
brand = .Range("C3:C" & LRow).Value 

を交換

Action = "INSERT INTO temp.avon_dictionary_test" & " VALUES ('{" & Category & "}','{" & segment & "}','{" & brand & "}')" 

と

Action = "INSERT INTO temp.avon_dictionary_test" & " VALUES ('{" & Join(Category, ",") & "}','{" & Join(segment, ",") & "}','{" & Join(brand, ",") & "}')" 

Transposeは、（1〜LRow、1〜1）配列をプレーン（1〜LRow）配列に変更します。

Joinは、区切り文字（ここでは、 "）で区切られた文字列の配列から値を連結します。