en serio muchas gracias si tengo varios problemas y mi error estoy trabajando con acces como base de datos, ya q es de las mas comoplejas para empezar,... bueno les dejo el codigo q tengo para ver si alguien me ayuda ya q me dice q hay una cadena q no esta bn declarada y no se puede realizar la conversion les dejo mi libreria de clase y el codigo del form
Inherits System.Web.UI.Page
Protected Sub BUT_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BUT.Click
Dim u, p As String
u = Request.Form.Item("U")
p = Request.Form.Item("P")
Dim r As New validar()
If r.valite(u, p) Then
Session.Add("valido", True)
Else
Response.Redirect("default.aspx")
End If
End Sub
End Class
Imports Microsoft.VisualBasic
Imports system.data
Public Class validar
Public Function valite(ByVal carnet As String, ByVal obs As String) As Boolean
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Nueva carpeta\Usuario.mdb")
con.Open()
Dim cad As String = String.Format("select carnet, obs from tarde where carnet = '{0}', obs = '{0}'", carnet, obs)
Dim cmd As New OleDb.OleDbCommand(cad, con)
Dim r As String = cmd.ExecuteScalar()
con.Close()
Return r
End Function
End Class
me da graves errores enserio agradeceria su ayuda
FORM
Partial Class _DefaultInherits System.Web.UI.Page
Protected Sub BUT_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BUT.Click
Dim u, p As String
u = Request.Form.Item("U")
p = Request.Form.Item("P")
Dim r As New validar()
If r.valite(u, p) Then
Session.Add("valido", True)
Else
Response.Redirect("default.aspx")
End If
End Sub
End Class
CLASE
Imports Microsoft.VisualBasic
Imports system.data
Public Class validar
Public Function valite(ByVal carnet As String, ByVal obs As String) As Boolean
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Nueva carpeta\Usuario.mdb")
con.Open()
Dim cad As String = String.Format("select carnet, obs from tarde where carnet = '{0}', obs = '{0}'", carnet, obs)
Dim cmd As New OleDb.OleDbCommand(cad, con)
Dim r As String = cmd.ExecuteScalar()
con.Close()
Return r
End Function
End Class
me da graves errores enserio agradeceria su ayuda