ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Универсальная WEB-форма (на ASP) для SQL-запросов
10 сообщений из 10, страница 1 из 1
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048040
Ната
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ната
Гость
Требуется subj-ик :-) для Select-ов всяких и разных
Чегой-нибудь могу взамен...
...
Рейтинг: 0 / 0
04.09.2002, 13:42:51
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048044
Фотография Maxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxx
Участник
Чегой-нибудь могу взамен... Плачу,плачу.........горькими слезами:))) Но к сожалению ничего под рукой нет:(( Вам для отбражения или для постороения онных?
...
Рейтинг: 0 / 0
04.09.2002, 13:47:26
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048047
Ната
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ната
Гость
...Для отображения...
...
Рейтинг: 0 / 0
04.09.2002, 13:48:28
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048049
qu-qu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qu-qu
Участник
Была у меня где-то...
счаз поищу...
(только - простенькая, без "изысков"... например - значения NULL в столбцах - просто пустыми ячейками в таблице отображались, устроит?)
...
Рейтинг: 0 / 0
04.09.2002, 13:51:17
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048057
Ната
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ната
Гость
...Посмотрим...
...
Рейтинг: 0 / 0
04.09.2002, 13:58:32
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048215
qu-qu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qu-qu
Участник
Дико извиняюсь - долго ищется что-то... до завтра потерпите?

Была у меня когда-то такая штука на brinkster.com (тогда он еще даже brinkster-ом не назывался)... :-)).

С тех пор - много воды утекло... пароль на brinkster я - благополучно забыл, но он родимый - мой аккаунт помнит и обещал прислать мне пароль на мое "левое" мыло (к которому я пароль тоже забыл давно... :-)), вот он - бич "левых" адресов...). Так что прямо сейчас - я не могу туда попасть никак... :-)).

Но дома - этот пароль сохранен в настройках аутлука - получу вечером пароль от brinkster-а... тогда и вам - что-нибудь наверное перепадет... :-)).

P.S. Не слишком все - затянуто?
...
Рейтинг: 0 / 0
04.09.2002, 18:08:47
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048227
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
На скорую руку. Запросы и процедуры выполнять сможет.

Код: 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.
<%
Option Explicit

Const adStateOpen = &H00000001
Dim cn, rs, strCmd, I

strCmd = Request.Form( "strCmd" )
%>

<FORM METHOD=POST>
<TEXTAREA NAME= "strCmd"  ROWS= 5  COLS= 60 ><%=strCmd%></TEXTAREA>
<BR>
<INPUT TYPE=SUBMIT>
</FORM>


<TABLE BORDER>
<%
If Trim(strCmd) <>  "" Then

Set cn = Server.CreateObject(" ADODB.Connection ")
Set rs = Server.CreateObject(" ADODB.RecordSet ")
cn.Open " Provider=SQLOLEDB;Server=localhost;UID=sa;PWD=mt; "

On Error Resume Next
rs.Open strCmd, cn

If Err.Number <> 0  Then
  Response.Write "<PRE> " & Err.Number & "   " & Err.Description & " </PRE> "
End If

If rs.State = adStateOpen Then
Do While NOT rs.EOF
  Response.Write " <TR> "
  For I = 0  To rs.Fields.Count -  1 
    Response.Write "<TD> " &  rs.Fields(I).Value & " </TD> "
  Next
  Response.Write " </TR>"
rs.MoveNext
Loop

End If

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End If
%>
</TABLE>
...
Рейтинг: 0 / 0
04.09.2002, 18:38:59
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048245
Ната
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ната
Гость
2 qu-qu - Подождем чем обрадуете

2 jimmers - Большое спасибо
...
Рейтинг: 0 / 0
04.09.2002, 19:53:45
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048262
qu-qu(дома)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qu-qu(дома)
Гость
2 Ната
на: Подождем чем обрадуете

Да, в принципе, ничего более существенного, чем предложил jimmers у меня и не было... (тем более, что brinkster - меня не обрадовал своим письмом, понулили они мой старый аккаунт и файлики все там сгинули).

Та же самая TEXTAREA была - для ввода запроса...
Такие же самые - проверки на ошибки...

Единственное отличие - по коллекции FIELDS у готового рекордсета я "пробегался" для того, чтобы имена полей в столбцы таблички закидать... А сам рекордсет - не циклами выгружал в HTML, а методом GETSTRING евонным... (удобная штука - указываешь ему разделители строк и столбцов типа "</td></tr><tr>", "</td><td>", заменитель значения NULL, и - сразу получаешь почти готовую HTML таблицу... надо только "хвосты" аккуратно дописать).

P.S. Ну и замечание jimmers -у - у вас там в коде используется предопределенная константа adStateOpen ... так не всякий IIS такое поймет... (может 5-й счаз уже и понимает, я "не слежу за событиями"), для того чтобы использовать эти константы в свое время нужно было "цеплять" к ASP-сранице специальный файлик:
Код: plaintext
<!--#include file= "adovbs.inc" -->

за неимением такового - придется заменить эту константу на простую 1-ничку... :-))
...
Рейтинг: 0 / 0
04.09.2002, 23:01:12
| Ответить | Цитировать | Написать  
Универсальная WEB-форма (на ASP) для SQL-запросов
    #32048316
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
Да, adStateOpen есть. У меня в global.asa прописана ADO TypeLib, посему все работает. А в общем случае, следует поступить, как Вы сказали, конечно.

Кроме названий столбцов я бы еще добавил перемещение по множественным resultset'ам и вывод ошибок из объекта cn. Благо сие несложно.


Удачи
...
Рейтинг: 0 / 0
05.09.2002, 10:42:23
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Универсальная WEB-форма (на ASP) для SQL-запросов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=46&msg=32048057&tid=1820601]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 84ms
get topic data:
 8ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 237ms
total:  414ms
созд. / загр.: 414ms
x
x
Закрыть


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