Buenas noches.
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." )
'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.
