Trabajar con Access en Visual Basic . Net
Publicado por Raquel (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
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


0