Программа добавляет новую запись в таблицу работник базы данных db1.mdb. Операция добавления объединена в транзакцию и работает, как ни странно, правильно. НО! Sub conn_BeginTransComplete ( не отрабатывает. Скорее всего я не вижу синтаксическую ошибку. Помогите! | Код |
<%@ LANGUAGE="VBSCRIPT" %>
<%
Add_Tab_=Request("Add_Tab")
Add_Fio_=Request("Add_Fio")
%>
<HTML>
<HEAD>
<TITLE>Document Title</TITLE>
<script language="VBS">
Sub conn_BeginTransComplete (ByVal TransactionLevel as Long, ByVal pError as ADODB.Error, adStatus as ADODB.EventStatusEnum, ByVal pConnection as ADODB.Connection)
alert "ZZ"
End Sub
</script>
</HEAD>
<BODY>
<!-- Подключение к БД -->
<%
Set conn = Server.CreateObject("ADODB.Connection")
strDbPathAndName ="d:\Users\db1.mdb"
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDbPathAndName
conn.Open strCon
Set Session("СпрТел_conn") = conn
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT работник.* FROM работник ORDER BY работник.таб_ном;"
rs.Open sql, conn, 3,3
Set Session("СпрТел_rsl") = rs
%>
<form action="zakaz.asp" method="post" name="zakaz" align="center" compact>
<!-- Нужно добавлять запись -->
<% 'Дабавляем запись - Вариант 1
If Add_Tab_<>"" Then
'Начинаем транзакцию
conn.BeginTrans
rs.addnew
rs.Fields("таб_ном")= Add_Tab_
rs.Fields("фио")= Add_Fio_
rs.update
'Заканчиваем транзакцию
conn.CommitTrans
End If
%>
<TABLE align="center" cellspacing="0" width="100%">
<tr>
<td align="left" valign="Top" width="15%">
<!-- Построение и заполнение самой таблицы -->
<%
' On Error Resume Next
rs.MoveFirst
Do While Not rs.eof%>
<tr>
<TD><%=Server.HTMLEncode(rs.Fields("таб_ном").Value)%></TD>
<TD><%=Server.HTMLEncode(rs.Fields("фио").Value)%></TD>
</tr>
<%
rs.MoveNext
Loop%>
</td>
<td align="center" valign="top" width="85%">
таб_ном:<input type="text" name="Add_Tab"><br>
фио:<input type="text" name="Add_Fio"><br>
<input type="submit" name="Add" value="Добавить"><br>
</td>
</tr>
</table>
</form>
<%
rs.close
conn.close
set rs = Nothing
set conn = Nothing
%>
</BODY>
</HTML>
|
|
Перехват события BeginTransComplete 
Загрузка ...
