
24/01/2002, 16:14
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Urano
Mensajes: 577
Antigüedad: 23 años, 5 meses Puntos: 0 | |
Error............................................ Me pueden decir porque me sale este error
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Controlador ODBC Microsoft Access] No se puede actualizar. Base de datos u objeto de sólo lectura.
Este es el codigo.
Dim rsBookUpd,rsBookUpd1
Dim intMax
intMax=0
Set rsBookUpd = Server.CreateObject("ADODB.Recordset")
Set rsBookUpd1 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Max(tblMaster.FICHA_NO) As Maximo FROM tblMaster"
rsBookUpd.Open strSQL, strCon
intMax=rsBookUpd.Fields("Maximo") + 1
Response.Write(intMax)
rsBookUpd.Close
strSQL = "SELECT tblMaster.*, tblDetail.* FROM tblDetail, tblMaster"
rsBookUpd1.CursorType = 2
rsBookUpd1.LockType = 3
rsBookUpd1.Open strSQL, strCon
rsBookUpd1.AddNew
rsBookUpd1("FICHA_NO")=intMax
rsBookUpd1("TITULO_LAR")="ES UNA PRUEBA"
rsBookUpd1.Update
rsBookUpd1.Close
Set adoCon = Nothing
Set strCon = Nothing
:PSaludos |