ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
12 сообщений из 12, страница 1 из 1
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609079
Sergiy52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiy52
Участник
Помогите!
VBS, не работает хранимка с параметром на MS SQL Sever 2000
...
Рейтинг: 0 / 0
08.04.2014, 22:33
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609292
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
а должна?
...
Рейтинг: 0 / 0
09.04.2014, 08:57
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609474
Sergiy52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiy52
Участник
Задача. В Верхнем фрейме страницы index.htm на странице "MyParams.asp" в форме "Form1" из "Select1" выбирается текстовое значение, например, "Компьютер" и отсылается на страницу "Razdel.asp" в хранимку с параметром. Данные из рекордсета (поле "AuthorName") считываюстя в таблицу на этой же странице, вся страница “Razdel.asp” передается в нижний фрейм.

Ошибка: из "Select1" передается не текст, а числовой индекс - вместо "Компьютер" -"14", в результате хранимка не выполняется, страница "Razdel.asp" передается в верхний фрейм с значением "14".
...
Рейтинг: 0 / 0
09.04.2014, 10:58
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609475
Sergiy52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiy52
Участник
MyParams.asp

<SCRIPT LANGUAGE="VBScript">
dim selectedRazdel
Sub cmdSubmit_onclick()
MyText = document.form1.Select1.options(document.Form1.Select1.selectedIndex).text
document.Form1.submit
End Sub
</script>

<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1251">
<body bgcolor=#f2f8ff style="font:10pt sans-serif">
<b>Это фрейм с параметрами
</b>
<br><br>
Выберите значение: <br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
' Строка открытия сессии использует нашу глобальную переменную, объявленную
'в файле GLOBAL.ASA (Шаг 2)
Conn.ConnectionTimeout = 15
Conn.CommandTimeout = 30
Conn.Open Session("DBConnectionString")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandType =1 ' adCmdStoredProc 'adCmdStoredProc '1
Set RS = Server.CreateObject ("ADODB.Recordset")
cmd.CommandText = "prRazdelPodst" 'prAuthorID300 'prRazdelPodst AuthorName
Set cmd.ActiveConnection = Conn
RS.Open cmd %>

<form name="form1" action = "Razdel.asp" method ="post" style="float:left;">
<input type="Button" Name="cmdSubmit" value="cmdSubmit">
<select name="select1" size=1 >
<option value="a0" selected>-- Не выбрано --</option>
<%Do While Not RS.EOF%>
<option value ="<% =RS("NRazdel")%>"> <% =RS("RazdelPodst")%> </option>
<%
RS.MoveNext
Loop%>
</select>



</body>

</form>

 <button onclick="SendValue()">Передать</button><br>


<SCRIPT LANGUAGE="VBScript">
Sub SendValue()
MyVal = document.form1.Select1.value
if MyVal = "a0" then
MsgBox "Не выбрано значение", 16, "Ошибка"
exit sub
end if
MyText = document.form1.Select1.options(document.Form1.Select1.selectedIndex).text
set fw = Parent.frames("Work").document
fw.getElementById("SomeValue").value = MyVal
fw.getElementById("SomeText").value = MyText


End sub
</script>
</html>
...
Рейтинг: 0 / 0
09.04.2014, 11:00
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609476
Sergiy52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiy52
Участник
Razdel.asp:

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1251">
<TITLE>Razdel</TITLE>
<hr><font face="Times New Roman"></TD>
</HEAD>
<BODY>
<font color=#993300></p>Razdel.asp</font>
<%@ Language=VBScript %>
<%
dim selectedRazdel
'selectedRazdel="Легкие"
if not isEmpty(Request.Form("Select1")) then
selectedRazdel=(request.Form("Select1"))

response.write (selectedRazdel)
End if
%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
' Строка открытия сессии использует нашу глобальную переменную, объявленную
'в файле GLOBAL.ASA (Шаг 2)
Conn.ConnectionTimeout = 15
Conn.CommandTimeout = 30
Conn.Open Session("DBConnectionString")


Set sp = Server.CreateObject("ADODB.Command")
sp.CommandType =4 '1 ' adCmdStoredProc 'adCmdStoredProc '1
Set RS = Server.CreateObject ("ADODB.Recordset")

sp.CommandText = "prRazdel"
'sp.ActiveConnection = CurrentProject.Connection
Set sp.ActiveConnection = Conn
sp.CommandTimeout = 600
sp.Parameters.Refresh
sp.Parameters("@ParRazdel").Value = selectedRazdel ' "КФДА" 'selectedRazdel "Сердце" ' "Heart" ' "Сердце"
sp.Execute , , -1
RS.Open sp
Do While Not RS.EOF %>
<TABLE BORDER=3 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE="Arial" COLOR=#000000><CAPTION></CAPTION></FONT>
<TD Width = 10 ALIGN=LEFT>
<FONT SIZE=+1 face="Times New Roman">
<%= RS("AuthorName") %>
<% =selectedRazdel %>
</FONT></TD>
<% RS.MoveNext
Loop
%>
<% Server.transfer ("Razdel.asp")%>

</TR>
</table>

</BODY>

</HTML>
...
Рейтинг: 0 / 0
09.04.2014, 11:01
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609582
carrotik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
carrotik
Участник
Sergiy52,

... я классический ASP не знал, да и забыл ), но по-моему вот тут
Код: vbnet
1.
document.form1.Select1.options(document.Form1.Select1.selectedIndex).text


надо поменять TEXT на VALUE
Код: vbnet
1.
document.form1.Select1.options(document.Form1.Select1.selectedIndex).value
...
Рейтинг: 0 / 0
09.04.2014, 11:57
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609735
Sergiy52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiy52
Участник
carrotik,
с "value" не получается.
...
Рейтинг: 0 / 0
09.04.2014, 12:59
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609776
Фотография user89
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
user89
Участник
Sergiy52,

а раньше вроде получилось...

Еще, как вариант сделать value = text , т.е. вместо
Код: javascript
1.
<option value="a4">Я не использую JQuery</option>

попробовать
Код: javascript
1.
<option value="Я не использую JQuery">Я не использую JQuery</option>
...
Рейтинг: 0 / 0
09.04.2014, 13:16
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38609957
Sergiy52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiy52
Участник
user89,
Благодарю за участие!
С передачей параметра разобрался. В верхнем фрейме выбираю значение из "Select1", передаю его в "Razdel.asp", затем "Razdel.asp"
считываю в нижний фрейм.
Следующий шаг - считывать эти данные в красивую форму (в прикрепленном файле). Как это сделать?
P.S.В Ваших предыдущих ответах я получил прикрепленные формы с крестиками, которые при нажатии раскрывались. Не поделитесь секретом ?
...
Рейтинг: 0 / 0
09.04.2014, 14:35
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38610190
Фотография user89
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
user89
Участник
Sergiy52В Ваших предыдущих ответах я получил прикрепленные формы с крестиками, которые при нажатии раскрывались. Не поделитесь секретом ? Способ 1. Выделяем текст, нажимаем кнопку дополнит. , выбираем spoiler (второй сверху)
Способ 2. Вместо Ответить нажать Цитировать и там будет всё видно
Подробнее тут http://www.sql.ru/faq/faq_topic.aspx?fid=202




Sergiy52Следующий шаг - считывать эти данные в красивую форму (в прикрепленном файле). Как это сделать?У меня файл отображается как в блокноте, HTML-разметка игнорируется. Наверное файл сделан для ASP, а я с ASP не работал.
Могу только предположить, что этот файл надо скормить в отдельный фрейм.
...
Рейтинг: 0 / 0
09.04.2014, 16:23
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38610223
Sergiy52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergiy52
Участник
Это файл "Author300htmSH.htm"
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns=" http://www.w3.org/TR/REC-html40" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:a =
"urn:schemas-microsoft-com:office:access" xmlns:x =
"urn:schemas-microsoft-com:office:excel" xmlns:dt =
"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"><HEAD
xmlns=" http://www.w3.org/TR/REC-html40"><TITLE>FrmAuthor</TITLE>
<META content="HTML 4.0" name=vs_targetSchema><LINK
href="Author300htmSH.files/filelist.xml" type=text/xml rel=File-List>
<META content=Access.Application name=ProgId>
<META name=VBSForEventHandlers value="true">
<META http-equiv=Content-Type content="text/html; charset=unicode">
<META content=10.00.3420 name=DesignerVersion>
<OBJECT id=MSODSC tabIndex=-1
classid=CLSID:0002E553-0000-0000-C000-000000000046><PARAM NAME="XMLData" VALUE='<xml xmlns:a="urn:schemas-microsoft-com:office:access">
<a:DataSourceControl>
<a:OWCVersion>10.0.0.6765 </a:OWCVersion>
<a:ConnectionString>Provider=SQLOLEDB.1;Password=pR52#345;Persist Security Info=True;User ID=sa;Initial Catalog=Libr;Data Source=COMP1\APR29;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=COMP1;Use Encryption for Data=False;Tag with column collation when possible=False</a:ConnectionString>
<a:MaxRecords>10000</a:MaxRecords>
<a:GridX>10</a:GridX>
<a:GridY>10</a:GridY>
<a:OfflineType>2</a:OfflineType>
<a:OfflinePublication></a:OfflinePublication>
<a:XMLLocation>0</a:XMLLocation>
<a:XMLDataTarget></a:XMLDataTarget>
<a:ConnectionFile></a:ConnectionFile>
<a:ElementExtension>
<a:ElementID>Author</a:ElementID>
<a:ControlSource>AuthorName</a:ControlSource>
<a:ChildLabel>Надпись1</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>AuthorID</a:ElementID>
<a:ControlSource>AuthorID</a:ControlSource>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>I</a:ElementID>
<a:ControlSource>I</a:ControlSource>
<a:ChildLabel>Надпись94</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>O</a:ElementID>
<a:ControlSource>O</a:ControlSource>
<a:ChildLabel>Надпись95</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>Coauthors</a:ElementID>
<a:ControlSource>Coauthors</a:ControlSource>
<a:ChildLabel>Coauthors_Надпись</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>Поле22</a:ElementID>
<a:ControlSource>Nazvanie</a:ControlSource>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>Year</a:ElementID>
<a:ControlSource>Year</a:ControlSource>
<a:ChildLabel>Year_Надпись</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>MonthTP</a:ElementID>
<a:ControlSource>MonthTP</a:ControlSource>
<a:ChildLabel>MonthTP_Надпись</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>Journal</a:ElementID>
<a:ControlSource>Journal</a:ControlSource>
<a:ChildLabel>Надпись180</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>File</a:ElementID>
<a:ControlSource>File</a:ControlSource>
<a:ChildLabel>Надпись182</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>ArticleID</a:ElementID>
<a:ControlSource>ArticleID</a:ControlSource>
<a:ChildLabel>Надпись50</a:ChildLabel>
</a:ElementExtension>
<a:ElementExtension>
<a:ElementID>prAuthorID300NavLabel</a:ElementID>
<a:RecordsetLabel>prAuthorID300 |0 of |2;prAuthorID300 |0-|1 of |2</a:RecordsetLabel>
</a:ElementExtension>
<a:GroupLevel>
<a:RecordSource>prAuthorID300</a:RecordSource>
<a:DefaultSort></a:DefaultSort>
<a:HeaderElementId>HeaderprAuthorID300</a:HeaderElementId>
<a:FooterElementId></a:FooterElementId>
<a:CaptionElementId></a:CaptionElementId>
<a:RecordNavigationElementId>NavigationprAuthorID300</a:RecordNavigationElementId>
<a:DataPageSize>1</a:DataPageSize>
<a:GroupFilterControl></a:GroupFilterControl>
</a:GroupLevel>
<a:Datamodel a:version="0816">
<a:SchemaRowsource a:id="dbo.prAuthorID300" a:type="dscProcedure">
<a:SchemaField a:id="File" a:datatype="3" a:size="4"/>
<a:SchemaField a:id="Nazvanie" a:datatype="202" a:size="255"/>
<a:SchemaField a:id="Position1" a:datatype="202" a:size="50"/>
<a:SchemaField a:id="AuthorID" a:datatype="3" a:size="4"/>
<a:SchemaField a:id="AuthorName" a:datatype="202" a:size="50"/>
<a:SchemaField a:id="Journal" a:datatype="202" a:size="255"/>
<a:SchemaField a:id="Coauthors" a:datatype="202" a:size="100"/>
<a:SchemaField a:id="Year" a:datatype="3" a:size="4"/>
<a:SchemaField a:id="ArticleID" a:datatype="3" a:size="4"/>
<a:SchemaField a:id="MonthTP" a:datatype="202" a:size="50"/>
<a:SchemaField a:id="I" a:datatype="202" a:size="50"/>
<a:SchemaField a:id="O" a:datatype="202" a:size="50"/>
</a:SchemaRowsource>
<a:RecordsetDef a:id="dbo.prAuthorID300">
<a:PageField a:id="File"/>
<a:PageField a:id="Nazvanie"/>
<a:PageField a:id="Position1"/>
<a:PageField a:id="AuthorID"/>
<a:PageField a:id="AuthorName"/>
<a:PageField a:id="Journal"/>
<a:PageField a:id="Coauthors"/>
<a:PageField a:id="Year"/>
<a:PageField a:id="ArticleID"/>
<a:PageField a:id="MonthTP"/>
<a:PageField a:id="I"/>
<a:PageField a:id="O"/>
</a:RecordsetDef>
</a:Datamodel>
</a:DataSourceControl>
</xml>'></OBJECT>
<STYLE id=MSODAPDEFAULTS type=text/css>.MSTheme-Label {
BORDER-RIGHT: 0px; PADDING-RIGHT: 3px; BORDER-TOP: 0px; PADDING-LEFT: 3px; FONT-SIZE: 8pt; OVERFLOW: visible; BORDER-LEFT: 0px; WIDTH: 2.539cm; BORDER-BOTTOM: 0px; FONT-FAMILY: Tahoma; HEIGHT: 0.396cm; TEXT-ALIGN: left
}
.MsoTextbox {
PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 8pt; OVERFLOW: hidden; WIDTH: 2.539cm; FONT-FAMILY: Tahoma; HEIGHT: 0.502cm
}
.MsoBoundSpan {
BORDER-RIGHT: 0px; PADDING-RIGHT: 3px; BORDER-TOP: 0px; PADDING-LEFT: 3px; FONT-SIZE: 8pt; OVERFLOW: hidden; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px; FONT-FAMILY: Tahoma; TEXT-ALIGN: left
}
.MsoHyperlinkDisplayText {
BORDER-RIGHT: 0px; PADDING-RIGHT: 3px; BORDER-TOP: 0px; PADDING-LEFT: 3px; FONT-SIZE: 8pt; OVERFLOW: hidden; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px; FONT-FAMILY: Tahoma; TEXT-ALIGN: left
}
.Mso2dSection {
LEFT: 0px; BEHAVIOR: url(#DEFAULT#Mso2dSection); OVERFLOW: hidden; POSITION: relative; TOP: 0px; BACKGROUND-COLOR: transparent
}
.Mso2dSectionBanner {
PADDING-RIGHT: 4px; DISPLAY: none; PADDING-LEFT: 4px; FONT-WEIGHT: normal; FONT-SIZE: 8pt; LEFT: 0px; BEHAVIOR: url(#DEFAULT#Mso2dSectionBanner); OVERFLOW: visible; PADDING-TOP: 2px; FONT-FAMILY: Tahoma; TOP: 0px; HEIGHT: 0.507cm; BACKGROUND-COLOR: buttonface
}
.MsoRectangle {
BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; OVERFLOW: hidden; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid
}
.MsoTitle {
DISPLAY: none; FONT-WEIGHT: normal; COLOR: inactivecaptiontext
}
.MsoExpandCollapse {
CURSOR: hand
}
.MsoNavContainer {
BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; Z-INDEX: -1; BORDER-LEFT: gainsboro 1px solid; CURSOR: hand; BORDER-BOTTOM: gainsboro 1px solid; HEIGHT: 25px; BACKGROUND-COLOR: gainsboro
}
.MsoNavButton {
BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; BORDER-LEFT: gainsboro 1px solid; CURSOR: auto; BORDER-BOTTOM: gainsboro 1px solid; BACKGROUND-REPEAT: no-repeat
}
.MsoNavButtonMouseOver {
BORDER-RIGHT: highlight 1px solid; BORDER-TOP: highlight 1px solid; BORDER-LEFT: highlight 1px solid; BORDER-BOTTOM: highlight 1px solid; BACKGROUND-COLOR: buttonhighlight
}
.MsoNavToggleButtonMouseOver {
BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; BORDER-LEFT: buttonshadow 1px solid; BORDER-BOTTOM: buttonshadow 1px solid; BACKGROUND-REPEAT: no-repeat; BACKGROUND-COLOR: buttonshadow
}
.MsoNavButtonMouseDown {
BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; BORDER-LEFT: buttonshadow 1px solid; CURSOR: hand; BORDER-BOTTOM: buttonshadow 1px solid; BACKGROUND-COLOR: buttonshadow
}
.MsoNavRecordsetLabel {
BORDER-RIGHT: gainsboro 1px solid; BORDER-TOP: gainsboro 1px solid; PADDING-LEFT: 0px; FONT-SIZE: 8pt; OVERFLOW: hidden; BORDER-LEFT: gainsboro 1px solid; WIDTH: 100%; CURSOR: default; PADDING-TOP: 0px; BORDER-BOTTOM: gainsboro 1px solid; FONT-FAMILY: Tahoma; POSITION: relative
}
.MsoRecordSelector {
BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; OVERFLOW: hidden; BORDER-LEFT: buttonshadow 1px solid; BORDER-BOTTOM: buttonshadow 1px solid; HEIGHT: 100%; BACKGROUND-COLOR: gainsboro
}
.MsoRecordSelectorCurrent {
BACKGROUND-POSITION: 1px 0px; BACKGROUND-IMAGE: url(owc://GIF/#11240); BACKGROUND-REPEAT: no-repeat
}
.MsoRecordSelectorSelectedImage {
BACKGROUND-POSITION: 1px 0px; BACKGROUND-IMAGE: url(owc://GIF/#11241); BACKGROUND-REPEAT: no-repeat
}
.MsoRecordSelectorSelected {
BORDER-RIGHT: buttonshadow 1px solid; BORDER-TOP: buttonshadow 1px solid; LEFT: 0px; OVERFLOW: hidden; BORDER-LEFT: buttonshadow 1px solid; BORDER-BOTTOM: buttonshadow 1px solid; TOP: 0px; HEIGHT: 100%; BACKGROUND-COLOR: buttonshadow
}
.MsoRecordSelectorDirty {
BACKGROUND-POSITION: -1px 0px; BACKGROUND-IMAGE: url(owc://GIF/#11245); BACKGROUND-REPEAT: no-repeat
}
.MsoRecordSelectorTransparent {
LEFT: 0px; OVERFLOW: hidden; TOP: 0px
}
HR {
COLOR: black
}
SELECT {
FONT-SIZE: 8pt; FONT-FAMILY: Tahoma
}
INPUT {
FONT-SIZE: 8pt; FONT-FAMILY: Tahoma
}
BODY {
FONT-SIZE: 10pt; FONT-FAMILY: Tahoma
}
MARQUEE {
FONT-SIZE: 8pt; FONT-FAMILY: Tahoma
}
LEGEND {
FONT-SIZE: 8pt; FONT-FAMILY: Tahoma
}
BUTTON {
FONT-SIZE: 8pt; FONT-FAMILY: Tahoma
}
TEXTAREA {
FONT-SIZE: 8pt; FONT-FAMILY: Tahoma
}
.Style0 {
BORDER-RIGHT: transparent 2px inset; BORDER-TOP: transparent 2px inset; FONT-WEIGHT: 400; FONT-SIZE: 12pt; VISIBILITY: visible; BORDER-LEFT: transparent 2px inset; COLOR: #000000; BORDER-BOTTOM: transparent 2px inset; FONT-STYLE: normal; FONT-FAMILY: Arial Cyr; WRITING-MODE: lr-tb; BACKGROUND-COLOR: #ffffff
}
.Style1 {
BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; FONT-WEIGHT: 400; FONT-SIZE: 12pt; VISIBILITY: visible; BORDER-LEFT: #000000 1px; COLOR: #000000; BORDER-BOTTOM: #000000 1px; FONT-STYLE: normal; FONT-FAMILY: Arial Cyr; WRITING-MODE: lr-tb; BACKGROUND-COLOR: transparent
}
.Style2 {
BORDER-RIGHT: transparent 2px inset; BORDER-TOP: transparent 2px inset; FONT-WEIGHT: 400; FONT-SIZE: 12pt; VISIBILITY: visible; BORDER-LEFT: transparent 2px inset; COLOR: #000000; BORDER-BOTTOM: transparent 2px inset; FONT-STYLE: normal; FONT-FAMILY: Arial Cyr; BACKGROUND-COLOR: #ffffff
}
.Style3 {
BORDER-RIGHT: transparent 2px inset; BORDER-TOP: transparent 2px inset; FONT-WEIGHT: 400; FONT-SIZE: 12pt; VISIBILITY: visible; BORDER-LEFT: transparent 2px inset; COLOR: #000000; BORDER-BOTTOM: transparent 2px inset; FONT-STYLE: normal; FONT-FAMILY: Arial Cyr; WRITING-MODE: lr-tb; BACKGROUND-COLOR: #ffffff; TEXT-ALIGN: left
}
.Style4 {
BORDER-RIGHT: transparent 2px inset; BORDER-TOP: transparent 2px inset; FONT-WEIGHT: 400; FONT-SIZE: 12pt; VISIBILITY: visible; BORDER-LEFT: transparent 2px inset; COLOR: #000000; BORDER-BOTTOM: transparent 2px inset; FONT-STYLE: normal; FONT-FAMILY: Arial Cyr; WRITING-MODE: lr-tb; BACKGROUND-COLOR: #ffffff
}
.Style5 {
FONT-WEIGHT: 400; FONT-SIZE: 8pt; VISIBILITY: visible; COLOR: #000000; FONT-STYLE: normal; FONT-FAMILY: Tahoma
}
.Style6 {
BORDER-RIGHT: transparent 2px inset; BORDER-TOP: transparent 2px inset; FONT-WEIGHT: 600; FONT-SIZE: 12pt; VISIBILITY: visible; BORDER-LEFT: transparent 2px inset; COLOR: #000000; BORDER-BOTTOM: transparent 2px inset; FONT-STYLE: normal; FONT-FAMILY: Tahoma; WRITING-MODE: lr-tb; BACKGROUND-COLOR: #ffffff
}
.Style7 {
BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; FONT-WEIGHT: 600; FONT-SIZE: 12pt; VISIBILITY: visible; BORDER-LEFT: #000000 1px; COLOR: #000000; BORDER-BOTTOM: #000000 1px; FONT-STYLE: normal; FONT-FAMILY: Tahoma; WRITING-MODE: lr-tb; BACKGROUND-COLOR: transparent
}
.MsoRecordSelectorDirtyCurrent {
BACKGROUND-POSITION: -1px 0px; BACKGROUND-IMAGE: url(owc://GIF/#11242); BACKGROUND-REPEAT: no-repeat
}
</STYLE>

<META content="MSHTML 6.00.3790.3959" name=GENERATOR>
<SCRIPT language=Javascript id=MSODSC_Validation>
validateBrowser();

function validateBrowser() {
strVers=navigator.appVersion
strName=navigator.appName
strPlat=navigator.platform
intIndex1=strVers.indexOf("MSIE");
intIndex1=intIndex1+5
intIndex2=strVers.lastIndexOf(";");
intVer=strVers.substring(intIndex1, intIndex2)
intVer=parseInt(intVer)
if (strName=="Microsoft Internet Explorer" && strPlat=="Win32" && intVer>="5") {
validateOWC();
}
else {
strMsgGetIE="<TABLE cellSpacing=0 cellPadding=0 width='95%' border=0 height='8'><TR>"
strMsgGetIE+="<TD bgColor='#336699' height=25 width=15> </TD><TD bgColor='#666666' width=500px><FONT face=Tahoma "
strMsgGetIE+="size=4 color=white><b> Уведомление страницы доступа к данным</B></FONT></TD></TR>"
strMsgGetIE+="<TR><TD bgColor='#cccccc' width=15> </TD><TD bgColor='#cccccc' width=500px><BR>"
strMsgGetIE+="<p><font face='Tahoma' size='2'>"
strMsgGetIE+="Для отображения страницы требуется Windows IE 5.0 или более поздней версии.</p>"
strMsgGetIE+="<a href='http://www.microsoft.com/isapi/redir.dll?Prd=Office&Sbp=Access&Pver=10&Ar=DPdesigner&Sba=IEhome&Plcid=1049'><p align='center'>"
strMsgGetIE+="Выберите эту ссылку для установки последней версии Internet Explorer.</a></font></p><br></TD></TR></TABLE>"
document.write(strMsgGetIE)
}
}

function validateOWC() {
if (MSODSC.object==null) {
strMsgGetOWC="<TABLE width='95%' cellpadding=0 cellspacing=0 border=0 height='8'>"
strMsgGetOWC+="<TR><TD bgColor='#336699' height=25 width=15> </TD><TD bgColor='#666666' width=500px>"
strMsgGetOWC+="<FONT face=Tahoma color=white size=4><B>  "
strMsgGetOWC+="Уведомление страницы доступа к данным</B></FONT></TD></TR><TR><TD bgColor='#cccccc' width=15> </TD>"
strMsgGetOWC+="<TD bgColor='#cccccc' width='500px'><BR>"
strMsgGetOWC+="<p><font face='Tahoma' size='2'>Для отображения страницы требуется наличие веб-компонентов Microsoft Office.</p>"
strMsgGetOWC+="</font><p><font face='Tahoma' size='2'>See the <a HRef=' http://r.office.microsoft.com/r/rlidmsowcpub?clid=1049&p1=Microsoft Access&HelpLCID=1049'>Microsoft Office Web site</a> for more information. "
strMsgGetOWC+="</font></p><BR></TD></TR></TABLE>"
document.write(strMsgGetOWC)
}
}

</SCRIPT>
<!--[if gte mso 9]><xml>
<o:DocumentProperties>
<o:LastAuthor>Администратор</o:LastAuthor>
<o:Revision>14</o:Revision>
<o:TotalTime>2</o:TotalTime>
<o:LastSaved>2014-04-09T08:36:39Z</o:LastSaved>
<o:Version>11.6568</o:Version>
</o:DocumentProperties>
</xml><![endif]--></HEAD>
<BODY style="FONT-SIZE: medium; OVERFLOW: auto" vLink=#800080 link=#0000ff>
<DIV class=Mso2dSectionBanner id=HeaderprAuthorID300Banner
style="WIDTH: 21.674cm" tabIndex=-1><SPAN
id=HeaderprAuthorID300BannerCaption>Заголовок: prAuthorID300</SPAN></DIV>
<DIV class=Mso2dSection id=HeaderprAuthorID300
style="WIDTH: 21.674cm; BORDER-TOP-STYLE: none; BORDER-BOTTOM: black 1px solid; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; HEIGHT: 6.795cm; BACKGROUND-COLOR: #ece9d8"
tag="ИБС"><TEXTAREA class="MsoTextbox Style0" id=Author style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 2; LEFT: 2.71cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 4.241cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 0.274cm; HEIGHT: 0.754cm" tabIndex=0 MsoTextAlign="General"></TEXTAREA><SPAN
class="MSTheme-Label Style1" id=Надпись1
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 1; LEFT: 0.297cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 2.179cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 0.297cm; HEIGHT: 0.698cm"
MsoTextAlign="General">Author</SPAN><TEXTAREA class="MsoTextbox Style3" id=AuthorID style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 9; LEFT: 13.101cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 2.428cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 0.274cm; HEIGHT: 0.55cm" tabIndex=4></TEXTAREA><TEXTAREA class="MsoTextbox Style0" id=I style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 11; LEFT: 8.192cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 0.947cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 0.274cm; HEIGHT: 0.634cm" tabIndex=5 MsoTextAlign="General"></TEXTAREA><SPAN
class="MSTheme-Label Style1" id=Надпись94
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 10; LEFT: 7.196cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 0.91cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 0.297cm; HEIGHT: 0.571cm"
MsoTextAlign="General">Имя</SPAN><TEXTAREA class="MsoTextbox Style0" id=O style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 13; LEFT: 11.41cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 1.539cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 0.274cm; HEIGHT: 0.634cm" tabIndex=6 MsoTextAlign="General"></TEXTAREA><SPAN
class="MSTheme-Label Style1" id=Надпись95
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 12; LEFT: 9.291cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 1.947cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 0.297cm; HEIGHT: 0.571cm"
MsoTextAlign="General">Отчество</SPAN><TEXTAREA class="MsoTextbox Style4" id=Coauthors style="PADDING-RIGHT: 0cm; OVERFLOW-Y: scroll; PADDING-LEFT: 0cm; Z-INDEX: 15; LEFT: 2.71cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 10.756cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 1.163cm; HEIGHT: 0.634cm" tabIndex=7 MsoTextAlign="General"></TEXTAREA><SPAN
class="MSTheme-Label Style1" id=Coauthors_Надпись
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 14; LEFT: 0.297cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 2.179cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 1.186cm; HEIGHT: 0.592cm"
MsoTextAlign="General">Соавторы</SPAN><TEXTAREA class="MsoTextbox Style4" id=Поле22 style="PADDING-RIGHT: 0cm; OVERFLOW-Y: scroll; PADDING-LEFT: 0cm; Z-INDEX: 16; LEFT: 0.169cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 21.359cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 2.666cm; HEIGHT: 1.354cm" tabIndex=8 MsoTextAlign="General"></TEXTAREA><TEXTAREA class="MsoTextbox Style3" id=Year style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 18; LEFT: 1.694cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 1.862cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 1.885cm; HEIGHT: 0.634cm" tabIndex=9></TEXTAREA><SPAN
class="MSTheme-Label Style1" id=Year_Надпись
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 17; LEFT: 0.401cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 1.169cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 1.905cm; HEIGHT: 0.592cm"
MsoTextAlign="General">Год</SPAN><TEXTAREA class="MsoTextbox Style0" id=MonthTP style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 20; LEFT: 3.899cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 6.92cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 4.984cm; HEIGHT: 0.634cm" tabIndex=10 MsoTextAlign="General"></TEXTAREA><SPAN
class="MSTheme-Label Style1" id=MonthTP_Надпись
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 19; LEFT: 0.105cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 3.809cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 5.005cm; HEIGHT: 0.592cm"
MsoTextAlign="General">Выходные Данные</SPAN><TEXTAREA class="MsoTextbox Style0" id=Journal style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 22; LEFT: 3.779cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 12.248cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 4.084cm; HEIGHT: 0.783cm" tabIndex=11 MsoTextAlign="General"></TEXTAREA><SPAN
class="MSTheme-Label Style1" id=Надпись180
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 21; LEFT: 0.183cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 3.407cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 4.123cm; HEIGHT: 0.571cm"
MsoTextAlign="General">Журнал</SPAN><BUTTON class=Style5 id="Скачать файл"
style="Z-INDEX: 23; LEFT: 0cm; WIDTH: 3.197cm; POSITION: absolute; TOP: 5.804cm; HEIGHT: 0.899cm"
tabIndex=12>Скачать файл</BUTTON><TEXTAREA class="MsoTextbox Style6" id=File style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 25; LEFT: 4.477cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 1.751cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 5.878cm; HEIGHT: 0.634cm" tabIndex=13 MsoTextAlign="General"></TEXTAREA><SPAN
class="MSTheme-Label Style7" id=Надпись182
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 24; LEFT: 3.398cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 1.015cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 5.899cm; HEIGHT: 0.571cm"
MsoTextAlign="General">File:</SPAN><TEXTAREA class="MsoTextbox Style3" id=ArticleID style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 27; LEFT: 11.006cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 3.042cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 2.075cm; HEIGHT: 0.571cm" tabIndex=14></TEXTAREA><SPAN
class="MSTheme-Label Style1" id=Надпись50
style="PADDING-RIGHT: 0cm; PADDING-LEFT: 0cm; Z-INDEX: 26; LEFT: 8.997cm; PADDING-BOTTOM: 0cm; OVERFLOW: hidden; WIDTH: 2.179cm; PADDING-TOP: 0cm; POSITION: absolute; TOP: 2.096cm; HEIGHT: 0.507cm"
MsoTextAlign="General">ArticleID</SPAN></DIV>
<DIV class=Mso2dSectionBanner id=NavigationprAuthorID300Banner
style="WIDTH: 21.674cm" tabIndex=-1><SPAN
id=NavigationprAuthorID300BannerCaption>КнопкиПерехода:
prAuthorID300</SPAN></DIV>
<DIV class=Mso2dSection id=NavigationprAuthorID300
style="VISIBILITY: hidden; WIDTH: 21.674cm; HEIGHT: 0.427in">
<TABLE class=MsoNavContainer id=prAuthorID300Navigation
style="LEFT: 4px; WIDTH: 21.596cm; POSITION: absolute; TOP: 4px" cellSpacing=0
cellPadding=0>
<TBODY>
<TR>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavFirst id=prAuthorID300NavFirst tabIndex=1 height=20
src="owc://GIF/#11200" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavPrevious id=prAuthorID300NavPrevious tabIndex=2 height=20
src="owc://GIF/#11202" width=20></TD>
<TD style="VERTICAL-ALIGN: middle; WIDTH: 100%; TEXT-ALIGN: center"
noWrap><SPAN class=MsoNavRecordsetLabel id=prAuthorID300NavLabel
style="VISIBILITY: hidden">prAuthorID300 |0-|1 of |2</SPAN></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavNext id=prAuthorID300NavNext tabIndex=4 height=20
src="owc://GIF/#11204" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavLast id=prAuthorID300NavLast tabIndex=5 height=20
src="owc://GIF/#11206" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavAddNew id=prAuthorID300NavNew tabIndex=6 height=20
src="owc://GIF/#11208" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavDelete id=prAuthorID300NavDelete tabIndex=7 height=20
src="owc://GIF/#11210" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavSave id=prAuthorID300NavSave tabIndex=8 height=20
src="owc://GIF/#11214" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavUndo id=prAuthorID300NavUndo tabIndex=9 height=20
src="owc://GIF/#11212" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavSortAsc id=prAuthorID300NavSortAscending tabIndex=10 height=20
src="owc://GIF/#11216" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavSortDesc id=prAuthorID300NavSortDescending tabIndex=11
height=20 src="owc://GIF/#11218" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavFilter id=prAuthorID300NavFilterBySelection tabIndex=12
height=20 src="owc://GIF/#11220" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavToggleFilter id=prAuthorID300NavFilterToggle tabIndex=13
height=20 src="owc://GIF/#11222" width=20></TD>
<TD class=MsoNavButton style="WIDTH: 20px; HEIGHT: 20px"><IMG
class=MsoNavHelp id=prAuthorID300NavHelp tabIndex=14 height=20
src="owc://GIF/#11224" width=20></TD></TR></TBODY></TABLE></DIV><!--
- - - - - - - - - - BEGIN VBA CODE - - - - - - - - - -
Option Compare Database 'Option Explicit
Dim frm As Access.Form 'Access.Form 'strFrmNm As String
Public ScArtID As Integer

Private Sub Form_Close()
Me.RecordSource = ""
'objConn.Close
'Set objConn = Nothing
End Sub
Private Sub Form_Load()
'Disable_Shift
Set frm = Forms![FrmAuthor]

'Set objConn = CreateObject("ADODB.Connection")
'''''''''''''Определяем параметры подключения к базе данных
'ServerName = "studlibr.com.ua" ' "Comp1\Libr" ' "mssql1.1gb.ua" ' "mssql1.1gb.ua" ' "mssql3.1gb.ua" 'имя или IP-адрес сервера
'DSN = "Comp1\Libr" ' "studlibr.com.ua" ' "1gb_Libr2000" ' "1gb_Libr2000" ' "1gb_L08" 'имя базы данных
'UID = "sa" ' "1gb_studlibrary" 'логин пользователя SQL-сервера
'PWD = "pQ52#345" ' "eb836bbe" 'пароль пользователя SQL-сервера
'ConnectString = "Provider=SQLOLEDB;" & _
' "Data Source=" & ServerName & _
' ";Initial Catalog=" & DSN & _
' ";UID=" & UID & ";PWD=" & PWD
'objConn.ConnectionString = ConnectString
'objConn.ConnectionTimeout = 15
'objConn.CommandTimeout = 30
'Подключаемся к базе данных
'objConn.Open
Dim Razdel As String 'Создаем Recordset для формы
Dim rs As ADODB.Recordset
Dim sp As ADODB.Command
Set rs = New ADODB.Recordset
Set sp = New ADODB.Command
sp.CommandType = adCmdStoredProc
sp.CommandText = "prAuthorID300" 'ProcName prScachat prAuthorID300
sp.ActiveConnection = CurrentProject.Connection
sp.CommandTimeout = 200
sp.Execute , , -1
Set rs = sp.Execute
Set frm.Recordset = rs 'Set Application.Forms(strFrmNm).recordset = recset1
rs.Close
Set rs = Nothing 'Создаем RowSource для "AddItem "
Me.ZaprObzor = Null
Me.ZaprPunct = Null
Dim rsRazdelPodst As ADODB.Recordset
Set rsRazdelPodst = New ADODB.Recordset
rsRazdelPodst.CursorType = adOpenKeyset
rsRazdelPodst.LockType = adLockOptimistic
Dim spr As ADODB.Command
Set spr = New ADODB.Command
spr.CommandType = adCmdStoredProc
spr.CommandText = "prRazdelPodst" 'ProcName
spr.ActiveConnection = CurrentProject.Connection
spr.CommandTimeout = 200
spr.Execute , , -1
Set rsRazdelPodst = spr.Execute 'Набор записей
Do While Not rsRazdelPodst.EOF
Me.ZaprRazdel.SetFocus
Me.ZaprRazdel.AddItem rsRazdelPodst("RazdelPodst")
rsRazdelPodst.MoveNext
Loop
rsRazdelPodst.Close
Set rsRazdelPodst = Nothing
End Sub
Private Sub ZaprObzor_AfterUpdate()
Dim Obzor As String
Me.ZaprPunct.Value = ""
Me.ZaprPunct.RowSource = ""
Obzor = Me.ZaprObzor.Value 'Obzor = Me.Tag 'Создаем Recordset для формы
Dim rso As ADODB.Recordset
Set rso = New ADODB.Recordset
Dim spo As ADODB.Command
Set spo = New ADODB.Command
spo.CommandType = adCmdStoredProc
spo.CommandText = "prObzor" 'ProcName
spo.ActiveConnection = CurrentProject.Connection
spo.CommandTimeout = 200
spo.Parameters.Refresh
spo.Parameters("@ParObzor").Value = Obzor 'Me.Tag 'Obzor
spo.Execute , , -1
Set rso = spo.Execute
Set frm = Forms![FrmAuthor]
Set frm.Recordset = rso
'rso.Close
'objConn.Close
'Set rso = Nothing
'Set con = Nothing
'Me.Author.ControlSource = "AuthorName"
'Me''Me.Position2..ControlSource = "Position1"
''Me.Position2.ControlSource = "Position2"
'Создаем Rowsource для ZaprPunct
Dim rsPunctPodst As ADODB.Recordset
Set rsPunctPodst = New ADODB.Recordset
rsPunctPodst.CursorType = adOpenKeyset
rsPunctPodst.LockType = adLockOptimistic
Dim prpp As ADODB.Command
Set prpp = New ADODB.Command
prpp.CommandType = adCmdStoredProc
prpp.CommandText = "prPunctPodst" 'ProcName
prpp.ActiveConnection = CurrentProject.Connection
prpp.CommandTimeout = 200
prpp.Parameters.Refresh
prpp.Parameters("@parObzorPodst").Value = Obzor ' parObzorPodst
prpp.Execute , , -1
Set rsPunctPodst = prpp.Execute
Do While Not rsPunctPodst.EOF
Me.ZaprPunct.SetFocus
Me.ZaprPunct.AddItem rsPunctPodst("PunctPodst")
rsPunctPodst.MoveNext
Loop
'Do Until rsPunctPodst.EOF
'Debug.Print rsPunctPodst.Fields("PunctPodst") 'Не печатает поле "ObzorPodst" !!!!!
'rsPunctPodst.MoveNext
' Loop
rsPunctPodst.Close
Set rsPunctPodst = Nothing
End Sub

Private Sub ZaprPunct_AfterUpdate()
Dim Punct As String
Me.Tag = Me.ZaprPunct.Value
'Me.ZaprPunct.RowSource = ""
'Set objConn = CreateObject("ADODB.Connection")
Punct = Me.Tag 'Создаем Recordset для формы
Dim rsp As ADODB.Recordset
Set rsp = New ADODB.Recordset
Dim prp As ADODB.Command
Set prp = New ADODB.Command
prp.CommandType = adCmdStoredProc
prp.CommandText = "prPunct" 'ProcName
prp.ActiveConnection = CurrentProject.Connection
prp.CommandTimeout = 200
prp.Parameters.Refresh
prp.Parameters("@ParPunct").Value = Punct 'Me.Tag 'Obzor
prp.Execute , , -1
Set rsp = prp.Execute
Set frm = Forms![FrmAuthor]
Set frm.Recordset = rsp
rsp.Close
'objConn.Close
Set rsp = Nothing
'Set objConn = Nothing
'Me.Author.ControlSource = "AuthorName"
''Me.Position2..ControlSource = "Position1"
'Me.Position2.ControlSource = "Position2"
'Me.Position3.ControlSource = "Position3"
End Sub
Private Sub ZaprRazdel_AfterUpdate()
Dim Razdel As String
Me.Tag = Me.ZaprRazdel.Value
Razdel = Me.Tag
Me.ZaprRazdel.Value = Me.Tag
Razdel = Me.ZaprRazdel.Value
Me.ZaprObzor.Value = ""
Me.ZaprObzor.RowSource = ""
'Set objConn = CreateObject("ADODB.Connection")
Dim rs As ADODB.Recordset
Dim frm As Access.Form 'strFrmNm As String
Dim sp As ADODB.Command
Set rs = New ADODB.Recordset
Set sp = New ADODB.Command
sp.CommandType = adCmdStoredProc
sp.CommandText = "prRazdel" 'ProcName
sp.ActiveConnection = CurrentProject.Connection
sp.CommandTimeout = 200
sp.Parameters.Refresh
sp.Parameters("@ParRazdel").Value = Razdel '= @Razdel
sp.Execute , , -1
Set rs = sp.Execute
Set frm = Forms![FrmAuthor]
Set frm.Recordset = rs 'Set Application.Forms(strFrmNm).recordset = recset1
Me.ZaprRazdel.Value = Me.Tag
'Me.ArticleID.ControlSource = "ArticleID"
'Me.Author.ControlSource = "AuthorName"
'Me.Position2..ControlSource = "Position1"
rs.Close
Set rs = Nothing 'Создаем Rowsource для ZaprObzor
Me.ZaprObzor.Value = ""
Me.ZaprPunct.Value = ""
Dim rsObzorPodst As ADODB.Recordset
Set rsObzorPodst = New ADODB.Recordset
rsObzorPodst.CursorType = adOpenKeyset
rsObzorPodst.LockType = adLockOptimistic
Dim spr As ADODB.Command
Set spr = New ADODB.Command
spr.CommandType = adCmdStoredProc
spr.CommandText = "prObzorPodst" 'ProcName
spr.ActiveConnection = CurrentProject.Connection
spr.CommandTimeout = 200
spr.Parameters.Refresh
spr.Parameters("@ParRazdelPodst").Value = Razdel ' "КФДА" 'Razdel
spr.Execute , , -1
Set rsObzorPodst = spr.Execute
Do While Not rsObzorPodst.EOF
Me.ZaprObzor.SetFocus
Me.ZaprObzor.AddItem rsObzorPodst("ObzorPodst")
rsObzorPodst.MoveNext
Loop
' Do Until rsObzorPodst.EOF
' Debug.Print rsObzorPodst.Fields("ObzorPodst") 'Не печатает поле "ObzorPodst" !!!!!
' rsObzorPodst.MoveNext
' Loop
rsObzorPodst.Close
Set rsObzorPodst = Nothing
End Sub

Private Sub Скачать_файл_Click()
ScArtID = Me.ArticleID
DoCmd.OpenForm "FrmArtickleSkachat"
End Sub
- - - - - - - - - - - END VBA CODE - - - - - - - - - - -
--></BODY></HTML>
...
Рейтинг: 0 / 0
09.04.2014, 16:43
| Ответить | Цитировать | Написать  
страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
    #38610301
Фотография user89
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
user89
Участник
Теперь файл нормально открылся.
Sergiy52Следующий шаг - считывать эти данные в красивую форму (в прикрепленном файле). Как это сделать? ??? Возможно так (для поля Author )
Код: javascript
1.
document.getElementById('AuthorID').value = 'Нужное значение'

Для других полей аналогично.

А может в ASP есть и готовые механизмы...
...
Рейтинг: 0 / 0
09.04.2014, 17:23
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / страница с VBS "подключена" к MS SQL Sever 2000 с помощью классической ASP
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=22&gotonew=1&tid=1447223]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 151ms
get topic data:
 11ms
get first new msg:
 5ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 208ms
total:  459ms
созд. / загр.: 459ms
x
x
Закрыть


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