
23/07/2004, 17:48
|
| | Fecha de Ingreso: julio-2004 Ubicación: Santa Marta, Colombia
Mensajes: 20
Antigüedad: 20 años, 7 meses Puntos: 0 | |
Ayuda - Emsamblados en MS Web Matrix Tengo dos dias en asp.net y en especial en web matrix, estoy tratando de incorporar un ensamblado a mi pagina aspx, en la pagina incorporo adecuadamente el ensamblado (al menos eso creo), el vbc me compila y crea la dll, pero al momento de la ejecución me genera un error de objeto en la linea cConexion = server.CreateObject("ADODB.Connection"), por favor orienteme para localizar mi error. envio el codigo de la dll.
' KernelWep.vb
Imports System
imports System.Web
imports System.Data
Imports Microsoft.VisualBasic
imports System.web.SessionState
Namespace LibreriasWep
Public Class lWep
Public Sub New()
End Sub
Public sub ValidarUsuario( byval cUsuario as string, cClave as string, byval cReferencia as string )
'dim mServer =system.web.HttpServerUtility
dim session as HttpSessionState
dim response as HttpResponse
dim cConexion as object
dim tblUsuario as object
dim cSql as string
cSql = "select * from usuarios where Usuario='" & cUsuario & "'"
cConexion = server.CreateObject("ADODB.Connection")
cConexion.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("coco2005.mdb") & ";")
tblUsuario= cConexion.Execute(cSql)
if (not tblUsuario.eof) then
'Usuario Ok
if cClave=rtrim(tblUsuario("clave").value) then
session("UsuarioOk") = "si"
response.redirect (cReferencia)
end if
end if
cConexion.Close
cConexion=nothing
tblUsuario=nothing
end sub
End Class
End Namespace |