ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Клиент на HTA
2 сообщений из 2, страница 1 из 1
Клиент на HTA
    #35011351
@le)(
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@le)(
Гость
Доброго времени суток.

Кто писал клиентское приложение в формате HTA для отображения запросов к БД MSSQL ???
...
Рейтинг: 0 / 0
14.12.2007, 17:25
| Ответить | Цитировать | Написать  
Клиент на HTA
    #35023530
@le)(
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@le)(
Гость
Вот работающее решение
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
<html>
<head>
  <HTA:APPLICATION
       ID="objMyHTA"
       APPLICATIONNAME="SQL Executer"
       CAPTION="yes"
       SCROLL="auto"
       SINGLEINSTANCE="yes"
       WINDOWSTATE="normal"
  >
<title>Программа выполнения запросов на SQL сервере</title>
<script language=VbScript>
'Описание переменных
Dim objConnection
Dim objRecordset
Dim strSQLCommand
Dim strConnection

strConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=dbase;Data Source=sqlexpress;"
'Разремарьте необходимую строку
strSQLcommand = "SELECT * FROM PRODUCTS"
'strSQLcommand = "SELECT @@version"
'=============================================================================== Function fnMain()
   fnInit()
   intError = fnConnect()
   If Not intError =  0  Then
     MsgBox "fnConnect()", vbOkOnly, "Ошибка"
     Exit Function
   End If
   intError = fnGetData()
   If Not intError =  0  Then
     MsgBox "fnGetData()", vbOkOnly, "Ошибка"
	 Exit Function
   End If
   'Process result
   If objRecordset.RecordCount < 1 Then
     MsgBox "No records found"
     objRecordset.Close()
   Else
     fnResult()
   End If
End Function
'=============================================================================== 
Function fnResult()
  Dim oField
  Dim vValue
  strResult = "<P>"
  strResult = strResult & "<div style=" & Chr( 34 ) & "background-color:white;" & _
                          "border:5px ridge grey" & Chr( 34 ) & ">"
  strResult = strResult & "Количество записей: " & objRecordset.RecordCount & "<hr>"
  strResult = strResult & "<table id=tblResult border = '1'>"
  strResult = strResult & "<tr>"
  For Each oField In objRecordset.Fields
      strResult = strResult & "<td>" + oField.Name + "</td>"
  Next
  strResult = strResult & "</tr>"

  Do Until objRecordset.EOF
     strResult = strResult & "<tr>"
     For Each oField In objRecordset.Fields
         vValue = oField.Value
         If IsNull( vValue ) Then vValue = "<NULL>"
         strResult = strResult & "<td>" & vValue & "</td>"
     Next
     strResult = strResult & "</tr>"
     objRecordset.MoveNext
  Loop
  strResult = strResult & "</table>"
  strResult = strResult & "</div>"
  divResult.InnerHTML = divResult.InnerHTML & strResult
  objRecordset.Close
End Function
'=============================================================================== 
Function fnInit()
divResult.InnerHTML = ""
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
End Function
'=============================================================================== 
Function fnConnect()
fnConnect =  0 
On Error Resume Next
objConnection.Open strConnection
If Not Err.Number =  0  Then 
   MsgBox "Ошибка подключения к базе данных", vbOkOnly,"Ошибка" 
   fnConnect =  1  
   Exit Function 
End If 
On Error Goto  0  
End Function
'=============================================================================== 
Function fnGetData()
fnGetData = 0
On Error Resume Next
objRecordset.Open strSQLCommand,objConnection,1
If Not Err.Number = 0 Then
   MsgBox "Ошибка сбора данных", vbOkOnly,"Ошибка"
   fnGetData = 1
   Exit Function
End If
On Error Goto 0
End Function
'=============================================================================== 
 </script>
 </head>
 <body bgcolor="#C0C0C0" id=TheBody>
  <div id=divSelection style="background-color:white;border:5px ridge grey">
   <table width= 98 %>
    <tr>
     <td>
      <input type = "BUTTON" value = "connect" onclick = "fnMain()">
     </td>
    </tr>
   </table>
  </div>
   <div id=divResult>
  </div>
 </body>
</html>

Хотелось бы вместо тегов подключить какой-нить компонент вида GRID чтобы результат вываливался в него !!!
...
Рейтинг: 0 / 0
20.12.2007, 14:53
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Клиент на HTA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=16&fpage=151&tid=1345612]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 255ms
total:  368ms
созд. / загр.: 368ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]