Ver Mensaje Individual
  #7 (permalink)  
Antiguo 18/10/2008, 06:28
Avatar de Peterpay
Peterpay
Colaborador
 
Fecha de Ingreso: septiembre-2007
Ubicación: San Francisco, United States
Mensajes: 3.858
Antigüedad: 16 años, 8 meses
Puntos: 87
Respuesta: No logro que me funcione el select en vb.net

en vez de cambiar el postback url solo haz un response.redirect a la respectiva pagina dependiendo el codigo.

y si declara resul al principio del sub, es por eso que te marca el error

Código:
Protected Sub Aceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Aceptar.Click
Dim a, b As String
Dim resul as OleDbDataReader

Dim cnn As OleDbConnection

If DropDownList1.Text = "Profesor" Then


a = TextBox1.Text
b = TextBox2.Text


cnn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db")
cnn.Open()
Dim query As String = "SELECT Apellido " & _
"FROM Profesor " & _
"WHERE Nombre = '" & a & "'" _
& "AND DNI = '" & b & "'"

Dim objCmd As New OleDbCommand(query, cnn)
resul = objCmd.ExecuteReader()


Dim apellido as string=string.Empty

While resul.Read()
            apellido=resul.Getstring(0) 'esto retornara el nombre
End WhileResponse.Write(resul)

cnn.Close()
End If

If apellido <> string.Empty   THEN
  'aqui pones tus acciones si encontro una coinciadencia con ese dni y con ese nombre
End IF

End Sub
__________________
Curso WF4
http://cursos.gurudotnet.com/ DF
Aprende HTML5