a todos !
Aqui ahora les coloco una conjunto de rutinas y funciones que permiten conectarse a cualquier base de datos transaccional sin DSN (probado en sql server y oracle)
En un include colocar
Código:
dim dbcSuperConexion
db_provider = "sqloledb" 'tipo de conexion
db_userid = "test" ' usuario a usar
db_password = "test" ' password del usuario a usar
db_database = "test" ' nombre de la base de datos
db_datasource = "10.10.10.10" ' Numero IP o Nombre del servidor que contiene la base de datos
sub abre_conexion
Set dbcSuperConexion = Server.CreateObject("ADODB.Connection")
On Error Resume Next
dbcSuperConexion.Open "Provider=" & db_Provider & ";" _
& "Data Source=" & db_DataSource & ";" _
& "User Id=" & db_UserID & ";" _
& "Password=" & db_Password & ";" _
& "Database=" & db_Database & ";"
If Err.Number <> 0 Then
escribe "Error en la Conexion a la Base de Datos"
end if
end sub
sub cierra_conexion
dbcSuperConexion.Close
Set dbcSuperConexion = Nothing
end sub
function ejecuta(strsql)
on error resume next
Set dbcRec = Server.CreateObject("ADODB.RecordSet")
Set dbcRec = dbcSuperConexion.Execute(strSQL)
If Err.Number <> 0 Then
ejecuta = False
else
ejecuta = True
end if
dbcRec.Close
Set dbcRec = Nothing
end function
y el codigo quedaria asi de simplecito y facil de leer
Código:
abre_conexion
strsql = "poner aqui string sql a ejecutar"
ejecuta(strsql)
cierra_conexion
