Помогите идиоту

Тема в разделе "Visual Basic", создана пользователем Guest, 18 фев 2005.

Статус темы:
Закрыта.
  1. Guest

    Guest Гость

    Записан макрос, в котором идет запрос на SQL в БД, причем не один а много, когда макрос запущен он просит вводить пароль столько раз сколько запросов. Как бы пароль забабахать в переменную и указать ее в каждом запросе?
    примерно следующее:

    Sub Макрос4()
    '
    ' Макрос4 Макрос
    '

    '

    With ActiveSheet.QueryTables.Add(Connection:= _
    "ODBC;DRIVER={Microsoft ODBC для Oracle};UID=user;PWD = passwd; SERVER=123;", _
    Destination:=Range("C4"))
    .CommandText = Array( _
    "select ....)" _
    )
    .NAME = "Запрос"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
    End With

    With ActiveSheet.QueryTables.Add(Connection:= _
    "ODBC;DRIVER={Microsoft ODBC для Oracle};UID=user;PWD = passwd; SERVER=123;", _
    Destination:=Range("C4"))
    .CommandText = Array( _
    "select ....)" _
    )
    .NAME = "Запрос"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
    End With
    End Sub
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей