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:
Ver originalProtected 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