ADODB 记录集不会在 MS SQL 的临时表中添加新记录

Question

I want to create a temporary table with two fields "ID" and "TempData". Then wants to insert data into that table from an excel sheet through looping. I created temporary table but when I try to add data into that table then it fails. Does anyone have idea to move an excel column values to a temporary table without looping? Can anyone please help.

Sub MPNTEST()

Dim dbCon As ADODB.Connection, dbt As ADODB.Recordset, dbtf As ADODB.Field, r As Range, SqlQry1 As String
Set dbCon = New ADODB.Connection
Set dbt = New ADODB.Recordset
dbCon.ConnectionString = SqlConStr
On Error GoTo CloseConnection

SqlQry1 = "Use tempdb CREATE TABLE #TempTbl ( ID INT Primary KEY IDENTITY(1,1),TempData NVARCHAR(255))"

dbCon.Open   
dbCon.Execute (SqlQry1)

With dbt
    .ActiveConnection = dbCon
    .Source = "#TempTbl"
    .LockType = adLockOptimistic
    .CursorType = adOpenForwardOnly
    .Open
    For Each r In ActiveSheet.Range("AE2:AE10")
        .AddNew
        .Fields("TempData").Value = r.Value
        .Update                                               '###Here it fails
    Next r
End With
dbt.Close    
dbCon.Close

End Sub

Answer 1

Hope this help (I have not tested:

Sub MPNTEST()

Dim dbCon As ADODB.Connection, dbt As ADODB.Recordset
Dim dbtf As ADODB.Field, r As Range, SqlQry1 As String
Dim SQLInsert$

Set dbCon = New ADODB.Connection
'Set dbt = New ADODB.Recordset

dbCon.ConnectionString = SqlConStr

On Error GoTo CloseConnection

''create table db..table
SqlQry1 = "CREATE TABLE tempdb..#TempTbl ( ID INT Primary KEY IDENTITY(1,1),TempData NVARCHAR(255))"

dbCon.Open   
dbCon.Execute (SqlQry1)
dbCon.Execute "use tempdb" ' Move to tempdb

With dbt

    For Each r In ActiveSheet.Range("AE2:AE10")
        SQLInsert = "Insert into #TempTbl(TempData) values('" & Replace(""& r.Value, "'", "''") &"')"
        dbCon.Execute (SQLInsert)
    Next r
End With
'dbt.Close    
dbCon.Close

End Sub