Os explico mi problema, quiero introducir en una base de datos unos datos pero mediante una transaccion, me da un problemas de Pocos parametros, se esperaba uno.
el codigo es el siguiente:
<% Option Explicit %>
<!-- #INCLUDE FILE="include\adovbs.inc"-->
<HTML>
<HEAD>
<TITLE>Práctica 20</TITLE>
</HEAD>
<BODY>
<%
Dim conexion, consulta1, consulta2
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Mode = adModeWrite
conexion.Open "BaseDeDatos"
consulta1="INSERT INTO Ventas(CódigoVenta, CódigoLibro, Fecha, Cantidad, Total)"
consulta1= consulta1 & " VALUES (17,'P-6344',#03/11/2004#,4,5960)"
consulta2= "UPDATE Libros SET Existencias = Existencias - 4 "
consulta2= consulta2 & " WHERE CódigoLibros='P-6344'"
conexion.BeginTrans
conexion.Execute consulta1,,adCmdText
conexion.Execute consulta2,,adCmdText
If (conexion.Errors.Count=0) Then
conexion.CommitTrans
Response.Write " Transacción ejecutada"
Else
conexion.RollBackTrans
Response.Write " Transacción cancelada"
End If
conexion.Close
Set conexion= Nothing
%>
</BODY>
</HTML>
el error me lo indica en conexion.Open " ", yo me creo el DSN con Access.
Espeo que alguien me lo resuelva. Gracias
