Как я могу удалить только один лист?

Управление пулом соединений абстрагируется от вас, используя SqlConnection, как в приведенном выше. По умолчанию в пуле подключений ADO.NET включается, и вы можете дополнительно контролировать это, например, отключать его или управлять размером пула в строке соединения, например.

Отключить

Provider=SQLOLEDB;Data Source=localhost;Integrated Security=SSPI;Pooling=false;

или управлять min и max

Provider=SQLOLEDB;Data Source=localhost;Integrated Security=SSPI;Min Pool Size=5; Max Pool Size=20;

Подробнее объяснение и способ проверки пула http: // www.codeproject.com/KB/dotnet/ADONET_ConnectionPooling.aspx

0
задан CWeed 13 July 2018 в 03:37
поделиться

1 ответ

Я не вижу, чтобы данные очищали оба листа. вы можете использовать этот код

Sub LookUpTable()

'Declare Variables'

Dim Rng As Range
Dim VarArr As Variant
Dim i As Long

Dim BedPre As String
Dim BedSuf As String
Dim HISPre As String
Dim HISSuf As String
Dim ID As String
Dim Bed As String
Dim HIS As String
Dim NextRow As Long

'Assign cell values to variables'
With Sheets("Sheet1")
    BedPre = Range("A2").Value
    BedSuf = Range("B2").Value
    HISPre = Range("D2").Value
    HISSuf = Range("E2").Value
    ID = Range("F2").Value
    Set Rng = .Range("C2")
End With
NextRow = Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "A").End(xlUp).Offset(1, 0).Row
If InStr(Rng, ",") > 0 Then
    VarArr = Split(Rng, ",")
    For i = 0 To UBound(VarArr)
        Bed = BedPre & Trim(VarArr(i)) & BedSuf
        HIS = HISPre & Trim(VarArr(i)) & HISSuf
        NextRow = NextRow + 1
        Sheets("Sheet2").Cells(NextRow, 1) = Bed
        Sheets("Sheet2").Cells(NextRow, 2) = HIS
        Sheets("Sheet2").Cells(NextRow, 3) = ID
    Next
End If
Sheets("Sheet1").Range("A2:F2").ClearContents
End Sub

0
ответ дан Quan Luu 17 August 2018 в 13:42
поделиться
Другие вопросы по тегам:

Похожие вопросы: