#1 el error es el tipo DataTable no esta definido
Problema con ASP.NET
Tengo un formulario con
Usuario(textbox)
Contraseña(textbox)
Aceptar(Button)
Me saca error en el codigo en DataTable(el error es el tipo DataTable no esta definido
ProtectedSub btnAceptar_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnAceptar.Click
Dim oComando AsNew SqlCommand("Select * From tblUsuario Where Usuario='" & txtUsuario.Text & "' and Contrasea='" & txtContrasea.Text & "'", oAbrirbasedatos.Conectar)
Dim oAdaptador AsNew SqlDataAdapter(oComando)
Dim otabla AsNew DataTable
oAdaptador.Fill(otabla)
If otabla.Rows.Count > 0 Then
Usuario = Val(txtUsuario.Text) And Clave = Val(txtContrasea.Text)
Response.Redirect("FrmLogin.aspx")
Else
If MsgBox("Usuario o clave incorrecta") Then
txtUsuario.Text = ""
txtContrasea.Text = ""
txtUsuario.Focus()
EndIf
EndIf
EndSub
Tengo un formulario con
Usuario(textbox)
Contraseña(textbox)
Aceptar(Button)
Me saca error en el codigo en DataTable(el error es el tipo DataTable no esta definido
ProtectedSub btnAceptar_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnAceptar.Click
Dim oComando AsNew SqlCommand("Select * From tblUsuario Where Usuario='" & txtUsuario.Text & "' and Contrasea='" & txtContrasea.Text & "'", oAbrirbasedatos.Conectar)
Dim oAdaptador AsNew SqlDataAdapter(oComando)
Dim otabla AsNew DataTable
oAdaptador.Fill(otabla)
If otabla.Rows.Count > 0 Then
Usuario = Val(txtUsuario.Text) And Clave = Val(txtContrasea.Text)
Response.Redirect("FrmLogin.aspx")
Else
If MsgBox("Usuario o clave incorrecta") Then
txtUsuario.Text = ""
txtContrasea.Text = ""
txtUsuario.Focus()
EndIf
EndIf
EndSub
0
