CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Ayuda Con Sentencia

(1/1)

Rro_237:
Necesito ayuda para una pequeña aplicacion que estoy haciendo

En el formulario tengo al principio de este un control (textbox) en cual debe ingresar el alumno para consultar sus notas:
Despues de ingresar el rut (ya validado como alumno) la aplicacion procede a conectarse a la base de datos...y posteriormente llamo a la funcion cargardatos3() el cual se encuentra en el modulo y le envio como parametro el rut.

Private Sub cmdvalidar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdvalidar.Click
        Dim rutt As String
        rutt = txtrut.Text
        conectar()
        cargardatos3(rutt)
        txtnom.DataBindings.Add("Text", dset, "promedio.nombre")
        txtcar.DataBindings.Add("Text", dset, "promedio.carrera")
        txtjor.DataBindings.Add("Text", dset, "promedio.jornada")
        txtasi.DataBindings.Add("Text", dset, "promedio.asignatura")

        txtn1.DataBindings.Add("Text", dset, "promedio.nota1")
        txtn2.DataBindings.Add("Text", dset, "promedio.nota2")
        txtn3.DataBindings.Add("Text", dset, "promedio.nota3")
        txtprom.DataBindings.Add("Text", dset, "promedio.promedio")

        txtprom75.DataBindings.Add("Text", dset, "promedio.prom75")
        txtexam.DataBindings.Add("Text", dset, "promedio.examen")
        txtexam25.DataBindings.Add("Text", dset, "promedio.exam25")
        txtpromf.DataBindings.Add("Text", dset, "promedio.promfinal")

        txtsituacion.DataBindings.Add("Text", dset, "promedio.situacion")

    End Sub


Esta es la estructura del la funcion cargardatos3() en el modulo:

Sub cargardatos3(ByVal rutt)
        MessageBox.Show("Rut digitado es: " & rutt, "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ttabb = New SqlCommand("Select * From Promedio where rut='rutt'", conn)
        dadapter.SelectCommand = ttabb
        dadapter.Fill(dset, "Promedio")
    End Sub

Lamentablemente no me lista los datos del alumno.
Si alguien sabe en que error me estoy cayendo, xfa que me eche una manito..  ;)

Cajami:
Hola, si nu toy mal, aqui:


--- Código: Text ---ttabb = New SqlCommand("Select * From Promedio where rut='rutt'", conn) 
lo que etas pasando en ese SELECT nu el rut si la palabra rut, has esto:


--- Código: Text ---ttabb = New SqlCommand("SELECT * FROM Promedio WHERE rut='" & rutt & "'", conn) 
espero que eso sea, nus vemos  :hola:

Rro_237:
Te pasaste, con la segunda sentencia me funcionó.
Se agradece...  :)

Navegación

[0] Índice de Mensajes