急,在线

Question

Set insertData = New ADODB.Command
 For i = 1 To colA.Count
        QSQL = "insert into test(ID,SValue) values('" & i & "'," & "'" & colA.Item(i) & "')"
        
        With insertData
            .ActiveConnection = Conn
            .CommandText = QSQL
            .CommandType = adCmdText
            .Parameters.Append .CreateParameter(, adInteger, adParamInput)
        End With
        'Debug.Print QSQL 'colA.Item(i)
    Next i
怎样执行我的INSERT语句.

Answer 1

commanType,Parameters.append.createparameter()
是什么作用.

Answer 2

With insertData
     .ActiveConnection = Conn
     .commandtext="insert into test(ID,SValue) values('" & i & "','" & colA.Item(i) & "')"
     .execute  '執行
end with