Aqui les presento una funcion que realice hoy, que nos ahorrara mucho tiempo de escritura repetitiva y de depuracion, a la vez que nos dara mayor seguridad para las tipicas operaciones de tablas :
Function OP(comando,tabla,where,order,campos,valores)
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open Session("strConn")
if where<>"" then where = " WHERE " & where
if order<>"" then order = " ORDER BY " & order
Select Case comando
Case "Agregar"
sql = "INSERT INTO " & tabla & " (" & campos & ") VALUES (" & valores & ") " & where & order
Case "Actualizar"
sql = "UPDATE " & tabla & " SET " & campos & where
Case "Agregar"
sql = "INSERT INTO " & tabla & " (" & campos & ") VALUES (" & valores & ") " & where & order
Case "Eliminar" ' No olvidarse el Where o borrara toda la tabla !
sql = "DELETE * FROM " & tabla & where
Case "Abrir","Obtener"
sql = "SELECT * FROM " & tabla & where & order
RS.CursorType = 3
RS.CursorLocation = 3
RS.Open sql, conn
if comando="Abrir" then
Set OP = RS
else
OP = Not RS.RecordCount
RS.Close
Conn.Close
end if
End Select
if comando<>"Abrir" And comando<>"Obtener" then
Conn.Execute sql,regs
OP = regs
end if
End Function
