1 Тема от Space-06

  • Space-06
  • Участник
  • Неактивен

Тема: HTA: построение диаграммы

Многоуважаемые форумчане подскажите: Каким образом возможно создать hta приложение - в котором будет видна Диаграмма - данные для построения которой будут браться из БД хранящейся на MS SQL 2000

диаграмма будет содержать в себе следующие критерии: дата; Теплота в ГКал(1 точка);Теплота в ГКал(2 точка);Теплота в ГКал(3 точка)

Вообще возможно ли такое?

Может быть есть и простое решение - но вот какое - мозг уже взорван поиском решения ...

Подскажите пожалуйста.


на данный вопрос получен исчерпывающий ответ -  в том что диаграмму можно построить с помощью фреймворков от Jquery

собственно следующий вопросик:
каким образом удобнее внести данные из EXCEL файла, который уже с помощью скрипта убирает лишние данные, вот сам код:

 'первая часть скрипта - подготовка файла 
Dim objExcel
Dim objWorkbook
Dim objWorksheet
Dim Argument

For Each xFile In WScript.Arguments
  'msgbox xFile  



Set objExcel     = WScript.CreateObject("Excel.Application")
Set objWorkbook  = objExcel.Workbooks.open (xFile)
Set objWorksheet = objWorkbook.Worksheets.Item(1)

objExcel.Visible  = True
With objWorksheet
    
.Range(.Columns(2), .Columns(8)).EntireColumn.Delete
.Range(.Columns(4), .Columns(5)).EntireColumn.Delete
.Range(.Columns(6), .Columns(11)).EntireColumn.Delete
.Range(.Columns(8), .Columns(9)).EntireColumn.Delete
.Range(.Columns(12), .Columns(15)).EntireColumn.Delete
.Range(.Columns(10), .Columns(11)).EntireColumn.Delete
    
End With
objWorksheet.Rows(1).Delete

Next
'здесь у нас открыто два файла - из которых нам нужно внести данные в Базу, 
'при том содержимое обоих файлов отличается только количеством столбцов
 



'вторая часть: открытие базы для записи


Const ADS_SCOPE_SUBTREE = 5 

'Под файловую систему
Set FSO = CreateObject("Scripting.FileSystemObject") 

'Под AD
Set objConnection = CreateObject("ADODB.Connection") 
Set objCommand = CreateObject("ADODB.Command") 
objConnection.Provider = "ADsDSOObject" 
objConnection.Open "Active Directory Provider" 
Set objCommand.ActiveConnection = objConnection 

'Для SQLя
Dim cn
Dim rst
Set cn=CreateObject("ADODB.Connection")
Set rst=CreateObject("ADODB.Recordset")
'cn.open "uid=DOMAIN\admin;pwd=**********; driver={SQL Server}; server=DBSERVER2\MNG; database=SpoolLog"
cn.open "driver={SQL Server}; server=SQL; trusted_connection=yes; database=prolog"
'Проверим статус соединения.
If cn.State=1 Then 
Msgbox "Connected" 
else 
Msgbox "Ошибка, не подключен SQL" 
End If 
'запись данных .... ????
cn.close

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

Подскажите пожалуйста - хотя бы как из массива, который содержит в себе консолидированные данные обоих файлов, либо построчно с помощью инсерта ...