Установить Connect Excel c InSQL динамически

Сервер БД Historian, ранее InSQL

Установить Connect Excel c InSQL динамически

Сообщение Art » Пн мар 26, 2012 2:00 pm

Добрый день, такой вопрос возник при разработки отчета в Excel, который цепляет данные с Historian, после перезагрузки машины с Historian падает connect и в листе Excel no connection. Вот не могу найти как установить эту связь через скрипт VBA. Заранее благодарен.
P.S.И еще один вопросик есть ли у кого суппорт InSQLConceptsRus.
Art
 
Сообщения: 20
Зарегистрирован: Чт июл 21, 2011 10:55 am

Re: Установить Connect Excel c InSQL динамически

Сообщение skom » Пн мар 26, 2012 7:06 pm

Через ADO, вся документация есть в MSDN.
skom
 
Сообщения: 173
Зарегистрирован: Вт окт 02, 2007 5:25 pm

Re: Установить Connect Excel c InSQL динамически

Сообщение Генератор зла » Пн мар 26, 2012 11:33 pm

HistClient.pdf
Wonderware Historian Client Workbook Object - Wonderware Historian Client Workbook Object Methods - AddServer

ActiveFactoryWorkbook.AddServer(message serverName, message loginName, message password)
Vita est dolor.
Генератор зла
 
Сообщения: 2860
Зарегистрирован: Вс янв 23, 2011 5:08 pm

Re: Установить Connect Excel c InSQL динамически

Сообщение Генератор зла » Вт мар 27, 2012 12:38 pm

Art писал(а):есть ли у кого суппорт InSQLConceptsRus

http://files.mail.ru/NUB9EE
Vita est dolor.
Генератор зла
 
Сообщения: 2860
Зарегистрирован: Вс янв 23, 2011 5:08 pm

Re: Установить Connect Excel c InSQL динамически

Сообщение Art » Ср мар 28, 2012 1:24 pm

Спасибо, Генератор Зла! За то, что правильно понял вопрос! От себя добавлю, для WorkBook нужно добавить Refernce на ActiveFactoryWorkBook, чтобы компилятор смог понять на что мы ссылаемся. И в Excel 2003 вызов функции делается без скобок:
ActiveFactoryWorkbook.AddServer message serverName, message loginName, message password
Art
 
Сообщения: 20
Зарегистрирован: Чт июл 21, 2011 10:55 am

Re: Установить Connect Excel c InSQL динамически

Сообщение yurec » Чт май 31, 2012 9:06 am

Dim cnnConnect As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim sqlSource As String 'источник запроса
Set cnnConnect = New ADODB.Connection
sqlSource = "Provider=SQLOLEDB;" & _
"Data Source=ip address сервака ;Initial Catalog=Runtime;" & _
"User ID=Имя пользователя;Password=Пароль;"

cnnConnect.Open sqlSource

Set rstRecordset = New ADODB.Recordset

Dim s As String 'строка запроса
s = "Set DateFormat dmy " + _
"SELECT * FROM ................ Запрос на выборку

rstRecordset.Open _
Source:=s, _
ActiveConnection:=cnnConnect

With Worksheets("Имя Листа").QueryTables.Add(rstRecordset, Worksheets("Имя Листа").Range("A5"))
.Name = "Contact List"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells 'xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
rstRecordset.Close
cnnConnect.Close
*********************************************************************************************************************************************88
как-то так
yurec
 
Сообщения: 7
Зарегистрирован: Пн окт 11, 2010 2:17 pm


Вернуться в Historian Server

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

cron