Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/07/2004, 17:48
walterep
 
Fecha de Ingreso: julio-2004
Ubicación: Santa Marta, Colombia
Mensajes: 20
Antigüedad: 20 años, 7 meses
Puntos: 0
Pregunta 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