no ingresa datos

[felipe_ceg]

estimados soy nuevo en esto de ASP. NET y no puedo ingresar registros en mi base de datos acces, les dejo el codigo para ver si me pueden ayudar

gracias de antemano

Código ASP:

Protected Sub btngrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngrabar.Click
        ' definir el objeto conexion
        Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source=D:\ejemplo_asp\TipoPrueba\alumnos.mdb")
        ' definir el data reader para almacena el resultado de la consulta
        Dim dr As OleDbDataReader
        ' definir el objeto comando para ejecutar la consulta SQL
        Dim existe As Boolean
        ' manejo de excepciones
        Try
            ' abrir la conexion
            conn.Open()
            ' definir un string con la sentencia sql
            Dim sqlstr As String
            sqlstr = "SELECT * from alumnos where rut = " & Me.txtrut.Text
            MsgBox(sqlstr)
            ' creando el objeto comando y asignandole la sentencia sql
            ' asociado a la conexion conn
            existe = False
            ' se crea un objeto del tipo comando usando el string de la consulta y el
            ' objeto conexion
            Dim cmd As New OleDbCommand(sqlstr, conn)
            ' ejecuta el objeto comando y almcena el resultado de la ejecucion
            ' en el data reader
            dr = cmd.ExecuteReader
            While dr.Read
                existe = True
            End While
            If Not existe Then
                'MsgBox("El Rut no existe", 16 + 0, "Error")
                sqlstr = "insert into alumnos (rut, dv, nombres, apaterno,amaterno,direccion,comuna, cod_carrera, cod_sede) values('txtrut.Text','txtdv.text','txtnombres.text','txtapaterno.text', 'txtamaterno.text','txtdireccion.text','txtcomuna.text', 'txtdescarrera.text','txtdessede.text');"
 
 
            Else
                MsgBox("el rut existe no se puede agregar", 16 + 0, "error")
            End If
        Catch ex As Exception
            MsgBox("No se pudo conectar a la base de datos", 16 + 0, "Error")
        End Try
    End Sub
 

[jaullo]

Cual es el error que te da?

[felipe_ceg]

ninguno,
solo me doy cuenta que no ingresa porque me meto a la bases de datos y no encuentro el nuevo registro.

[jaullo]

Mira estos ejemplos

http://www.codefixer.com/asp-net/tut...database-1.asp

http://www.beansoftware.com/ASP.NET-...ql-Server.aspx