Visual Basic.NET - Problema Visual studio y access 2007

   
Vista:

Problema Visual studio y access 2007

Publicado por Merkury (2 intervenciones) el 02/08/2010 23:32:48
Buenas noches.

A es la primera vez que posteo uno de mis problemas de programación.

El caso es que estoy haciendo un trabajo de programación para clase y en los requerimientos nos piden que utilicemos VB.NET y Access 2007.

Tengo una variable adaptador que me hace de tableadapter para la tabla tripulantes y esta definido asi:

Dim adaptador As New EnterpriseDataSetTableAdapters.TripulantesTableAdapter

Entonces yo tengo mi proyecto enlazado a una base de datos de access 2007 y los datos los cargo en un DataGrid de la siguiente manera:

Private Sub cargaColumnasDelGrid()
'COLUMNAS
'DataGridView1.Columns.Add("Id", "Id")
DataGridView1.Columns.Add("Nombre", "Nombre")
DataGridView1.Columns.Add("Funcion", "Funcion")
DataGridView1.Columns.Add("Rango", "Rango")
DataGridView1.Columns.Add("Raza", "Raza")

End Sub

Private Sub cargaFilasDelGrid()
'FILAS()
ReDim idsArray(EnterpriseDataSet.Tripulantes.Rows.Count - 1)
For i As Integer = 0 To EnterpriseDataSet.Tripulantes.Rows.Count - 1
Dim fila As DataRow = EnterpriseDataSet.Tripulantes.Item(i)
DataGridView1.Rows.Add()
idsArray(i) = fila.Item(0)
'DataGridView1.Item(0, i).Value = fila.Item(0) 'ID
DataGridView1.Item(0, i).Value = fila.Item(1) 'Nombre
DataGridView1.Item(1, i).Value = fila.Item(2) 'Función
DataGridView1.Item(2, i).Value = fila.Item(3) 'Rango
DataGridView1.Item(3, i).Value = fila.Item(4) 'Raza

Next
End Sub

Bueno despues de esto, vamos a lo que interesa, yo quiero agregar un nuevo tripulante y tiro de este codigo

Sub NuevoTripulante()
Dim valido
If CompruebaCampos() = True Then
MessageBox.Show("Guardando...")
valido = adaptador.NuevoTripulante(Me.TB_nombre.Text, Me.TB_funcion.Text, Me.TB_Rango.Text, Me.TB_raza.Text)
If valido > 0 Then
MessageBox.Show("Se ha guardado correctamente.")
actualizaDB()
'filaSeleccionada = DataGridView1.Rows.Count - 2 ' Se insertara en la ultima posicion
'cargaFilaSeleccionada(filaSeleccionada)
'DataGridView1.CurrentCell = DataGridView1.Rows.Item(filaSeleccionada).Cells(0)

Else
MessageBox.Show("Error al guardar los datos.")
End If
DesactivaCampos()
refreshDataGrid()

Else
MessageBox.Show("Ninguno de los campos puede estar en blanco, vuelva a rellenarlos", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub

Pero lo unico que hace es agregarlo al DataGrid, no lo consigo guardar en la BBDD y ya no se que hacer... si alguien tiene alguna idea se lo agradeceria infinitamente.
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

RE:Problema Visual studio y access 2007

Publicado por Merkury (2 intervenciones) el 02/08/2010 23:36:46
Me acabo de dar cuenta de que me he olvidado borrar una linea, en NuevoTripulante la funcion actualizaDB() no hace nada es una linea muerta que no va a ningun sitio :D

Perdon por el fallo, pero llevo una empanada considerable.
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