Tengo 3 clases :
En una tengo la conexion a la base de datos (Access)
Código vb:
Ver original
Public Class ClsBaseAccess Protected _cnClientes As OleDb.OleDbConnection Public Sub New() _cnClientes = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=C:\SergioNet\Agenda 2010\Agenda.mdb") End Sub End Class
En otra la sentencia SQL:
Código vb:
Ver original
Public Class ClsSentencias Inherits ClsBaseAccess Public Function EditarClientes() As OleDb.OleDbDataAdapter Dim CEditar As New OleDb.OleDbDataAdapter '("update tbl_clientes set nombre='" & "', apellidos='" & _ ' "',direccion='" & "',provincia='" & "',ciudad='" & _ ' "',telefono='" & "',cp='" & "',where idcliente = " & "", _cnClientes) Return CEditar End Function End Class
Y en otra tengo el dataset:
Código vb:
Ver original
Public Class ClsTablas Public Function EditarTablaClientes() As DataSet Dim ds As New DataSet Dim da As New ClsSentencias da.EditarClientes.Update(ds) Return ds End Function End Class
Despues en el form1 es cuando quiero editar el Grid:
Código vb:
Ver original
Private Sub BtEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtEditar.Click Dim ds As New ClsTablas Grid1.DataSource = ds.EditarTablaClientes.Tables(0) End Sub
Tambien agrego los datos del datagridview al formulario
Código vb:
Ver original
Me.txtId.Text = Me.Grid1.Rows(e.RowIndex).Cells(0).Value() Me.txtNombre.Text = Me.Grid1.Rows(e.RowIndex).Cells(1).Value() Me.txtApellidos.Text = Me.Grid1.Rows(e.RowIndex).Cells(2).Value() Me.txtDireccion.Text = Me.Grid1.Rows(e.RowIndex).Cells(3).Value() Me.CbProvincia.Text = Me.Grid1.Rows(e.RowIndex).Cells(4).Value() Me.CbCiudad.Text = Me.Grid1.Rows(e.RowIndex).Cells(5).Value() Me.txtTelefono.Text = Me.Grid1.Rows(e.RowIndex).Cells(6).Value() Me.txtCodigoPostal.Text = Me.Grid1.Rows(e.RowIndex).Cells(7).Value()
Lo que quiero que haga es cuando yo cargue los datos del datagrid al formulario, cuando edite en un textbox y le de al boton editar este se edite y guarde en la base de datos y el datagrid
Saludos