SQL Server 2008'de bir Excel Makrosu (ADODB) kullanarak bir geçici tablo oluşturma

Question

Bir çok Google çalışanından sonra, bir veritabanına bağlanmayı, mevcut geçici tabloyu bırakmayı ve ardından bir yeni bir (doldurun ve sonuçları görüntüleyin).

Dim adoCn As ADODB.Connection 
Dim adoRs As ADODB.Recordset 
Dim adoCm As ADODB.Command 
Dim strSQL As String 

Set adoCn = New ADODB.Connection 
With adoCn 
    .ConnectionString = "Provider=SQLOLEDB;" & _ 
         "Initial_Catalog=XXX;" & _ 
         "Integrated Security=SSPI;" & _ 
         "Persist Security Info=True;" & _ 
         "Data Source=XXX;" & _ 
         "Extended Properties='IMEX=1'" 
    .CursorLocation = adUseServer 
    .Open 
End With 

Set adoCm = New ADODB.Command 

With adoCm 
    Set .ActiveConnection = adoCn 
    .CommandType = adCmdText 
    .CommandText = "IF OBJECT_ID('tempdb..#AgedProducts') IS NOT NULL DROP TABLE #AgedProducts" 
    .Execute 
    .CommandText = "CREATE TABLE #AgedProducts " & _ 
        "(Source_Order_Number VARCHAR(255)) " & _ 
        "INSERT INTO #AgedProducts VALUES ('AB-123-456') " & _ 
        "SELECT * FROM #AgedProducts (NOLOCK) " 
    .Execute 
End With 

Set adoRs = New ADODB.Recordset 
With adoRs 
    Set .ActiveConnection = adoCn 
    .LockType = adLockBatchOptimistic 
    .CursorLocation = adUseServer 
    .CursorType = adOpenForwardOnly 
    .Open "SET NOCOUNT ON" 
End With 
adoRs.Open adoCm 

MsgBox "Recordset returned...", vbOKOnly 

While Not adoRs.EOF 
    Debug.Print adoRs.Fields(0).Value 
    adoRs.MoveNext 
Wend 

adoCn.Close 

Set adoCn = Nothing 
Set adoRs = Nothing 

ben aşağıdaki hata mesajı alıyorum sorgu çalıştırdığınızda: (Yukarıdaki kod çok yaptığı gibi)

Run-time error '-2147217887 (80040e21)':

The requested properties cannot be supported

NOCOUNT hat http://support.microsoft.com/kb/235340 geliyor. Sipariş numarasının çok sayıda türü olabileceğini hesaba katmak için IMEX=1 ekledim, ancak sorunun oluştuğu şüphesi var.

Herhangi bir yardım büyük beğeni topluyor!

Answer 1

Rehberin açılma şeklini değiştirin, select komutunu recodset open method çağrısı için taşıyın.

With adoCm 
    Set .ActiveConnection = adoCn 
    .CommandType = adCmdText 
    .CommandText = "IF OBJECT_ID('tempdb..#AgedProducts') IS NOT NULL DROP TABLE #AgedProducts" 
    .Execute 
    .CommandText = "CREATE TABLE #AgedProducts " & _ 
        "(Source_Order_Number VARCHAR(255)) " & _ 
        "INSERT INTO #AgedProducts VALUES ('AB-123-456') " 
    .Execute 
End With 

Set adoRs = New ADODB.Recordset 
With adoRs 
    Set .ActiveConnection = adoCn 
    .LockType = adLockBatchOptimistic 
    .CursorLocation = adUseServer 
    .CursorType = adOpenForwardOnly 

End With 
adoRs.Open "SELECT * FROM #AgedProducts (NOLOCK)" 

Answer 2

Temp tablolar konusundaki bilgilerim, yalnızca onları oluşturan bağlantı için kullanılabilir olmasıdır. Bu durumda, başka bir bağlantıdan birini düşürmek denemesizdir.

Hata iletisi, hangi kod satırının neden olduğunu belirtmiyor. Bu durumda, kod parçalarınızı test etmenizi öneririm. Bağlantıyı oluşturarak başlayın. Sonra aç ve kapat. Ardından bağlantı açıkken bir şeyler yapmaya başlayın, ancak her seferinde bir şey.