Tenemos una base de datos alojada en Godaddy que alimenta un sitio web creado en ASP clásico con algo de Javascript. Tenemos un script diario que actualiza la base de datos con una sobrescritura, es decir. reemplazo completo y no incremental.
La desventaja de esto es que si el sitio web está en uso y la base de datos está bloqueada, el sitio se caerá cuando lo sobrescribamos.
Por lo tanto, estamos investigando la opción de insertar registros nuevos/actualizados modificados solamente; no podemos hacer que funcione el siguiente código:
Aquí hay un código de muestra que necesita pulirse pero funciona para probar el escenario que estamos evaluando:
<% ' ' Show Date ' Response.Write ("Date Today :" & Date & "<br/>") ' ' Connect to DB object ' sConnect = "Driver={Microsoft Access Driver (*.MDB)}; DBQ=" & Server.MapPath("/temp/propertyDB.mdb") sConnect_tmp = "Driver={Microsoft Access Driver (*.MDB)}; DBQ=" & Server.MapPath("/temp/propertyDB_tmp.mdb") ' ' Create recordset object ' Set rsProperty = Server.CreateObject("ADODB.Recordset") Set rsProperty_tmp = Server.CreateObject("ADODB.Recordset") ' ' Compose the SQL statement for the recordset. ' sSQL = "SELECT * FROM Property ORDER BY txtRefNo" ' ' Open a recordset and move to the first record ' rsProperty_tmp.Open sSQL, sConnect_tmp, 3 rsProperty_tmp.MoveFirst Response.write "- The number of records to INSERT into PropertyDB is : [ " & rsProperty_tmp.RecordCount & " ] <br/>" ' ' Open a recordset and move to the first record + show record count ' rsProperty.Open sSQL, sConnect_tmp, 3 rsProperty.MoveFirst Response.write "- Total Number of Records before Insert = : [ " & rsProperty.RecordCount & " ] <br/>" rsProperty.Close ' ' Insert Into SQL ' sSQL ="INSERT INTO [property] SELECT distinct * FROM " & Server.MapPath("/temp/propertyDB_tmp.mdb") &".property" rsProperty.Open sSQL,sConnect,3 Response.write "- The number of records in PropertyDB is now: [ " & rsProperty.RecordCount & " ] <br/>" ' ' CLOSE RecordCount ' rsProperty_tmp.Close rsProperty.Close Set sConnect = nothing set sConnect_tmp = nothing Response.Write "- Connection & Recordsets CLOSED OK" %>