- <%@ Page Language="VB" %>
- <%@ Import Namespace="System.Data" %>
- <%@ Import Namespace="System.Data.OleDb" %>
-
- <script runat="server">
- ' On définit la connection
- Dim Conn As New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("\testnet\test.mdb"))
-
- sub Page_Load(obj as object, e as eventargs)
- dim objTrans as OleDbTransaction
- dim objCmd as OleDbCommand = new OleDbCommand ("DELETE FROM CLIENT WHERE CL_ID = 7", Conn)
-
- Conn.Open()
- objTrans = Conn.BeginTransaction()
- objCmd.Transaction = objTrans
-
- try
- objCmd.ExecuteNonQuery
-
- objCmd.CommandText = "xcvDELETE FROM CLIENT WHERE CL_ID = 8"
- objCmd.ExecuteNonQuery()
- objTrans.Commit()
- Label1.Text = "Les 2 requêtes de suppression ont été executées avec succès !"
- catch ex as OleDbException
- objTrans.RollBack()
- Label1.Text = ex.Message & "<p>"
- Label1.Text = "Une erreur est survenue durant l'execution des requêtes !"
- finally
- objCmd.Connection.Close()
- end try
- end sub
- </script>
-
- <html>
- <body>
- <form runat="server">
- <asp:Label id="Label1" runat="server" maintainstate=false />
- </form>
- </body>
- </html>
-
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
' On définit la connection
Dim Conn As New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("\testnet\test.mdb"))
sub Page_Load(obj as object, e as eventargs)
dim objTrans as OleDbTransaction
dim objCmd as OleDbCommand = new OleDbCommand ("DELETE FROM CLIENT WHERE CL_ID = 7", Conn)
Conn.Open()
objTrans = Conn.BeginTransaction()
objCmd.Transaction = objTrans
try
objCmd.ExecuteNonQuery
objCmd.CommandText = "xcvDELETE FROM CLIENT WHERE CL_ID = 8"
objCmd.ExecuteNonQuery()
objTrans.Commit()
Label1.Text = "Les 2 requêtes de suppression ont été executées avec succès !"
catch ex as OleDbException
objTrans.RollBack()
Label1.Text = ex.Message & "<p>"
Label1.Text = "Une erreur est survenue durant l'execution des requêtes !"
finally
objCmd.Connection.Close()
end try
end sub
</script>
<html>
<body>
<form runat="server">
<asp:Label id="Label1" runat="server" maintainstate=false />
</form>
</body>
</html>