Visual Basic.NET - Trabajar con Access en Visual Basic . Net

   
Vista:

Trabajar con Access en Visual Basic . Net

Publicado por Raquel raquel.m66@gmail.com.ar (2 intervenciones) el 11/05/2011 01:19:24
Hola, estoy haciendo un programa y utilizo base de datos en access, pero no me graba los archivos en la tabla, el código utilizado es el siguiente:

Private Sub Agregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Agregar.Click
Dim Cn As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = Alumnos.mdb"
Dim s As String
s = "SELECT * FROM Alumnos"
Dim DA As New OleDb.OleDbDataAdapter(s, Cn)
Dim leg, nom, cur, año As String

Dim rw As DataRow 'Add a new row to the Student table.
rw = dt.NewRow

leg = InputBox("Ingrese el legajo del alumno:")
nom = InputBox("Ingrese el mombre del alumno:")
cur = InputBox("Ingrese el curso del alumno:")
año = InputBox("Ingrese el año de ingreso del alumno:")

rw.Item("Legajo") = leg
rw.Item("Nombre") = nom
rw.Item("Curso") = cur
rw.Item("AñoIng") = año
Try

dt.Rows.Add(rw) 'Actualice la tabla Alumno en la base de datos testdb.
's = "INSERT INTO Alumnos VALUES (" & CStr(leg) & ", " & CStr(nom) & " ', " & CStr(cur) & "', " & CStr(año) & "' )"

DA.Update(s, Cn)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try 'Muestra el número de filas actualizadas.

ActualizaTexto()
End Sub


El error que me muestra es el siguiente:

Un valor de tipo 'String' no se puede convertir en 'System.Data.DataSet'.


Alguien puede decirme que está mal y cómo lopuedo hacer?
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Trabajar con Access en Visual Basic . Net

Publicado por Damian (824 intervenciones) el 13/05/2011 14:27:54
Estas insertando los InputBox dentro de la tabla o esa línea la tienes comentada porque veo al inicio una comilla simple (').
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar