Hola y gracias por la respuesta, ayer investigando un poco, logre hacerlo funcionar con este codigo:
Código:
Private Sub DGV1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV1.CellValueChanged
If DGV1.Columns(DGV1.CurrentCellAddress.X).Name.ToString = "Codigo" Then
Dim cod As String
cod = DGV1.CurrentCell.Value.ToString
Dim qry_rs As String = "SELECT Articulos.nId AS Id, Articulos.sCodigo AS Codigo, Articulos.sNombre AS Nombre, " & _
"Stocks.dStockActual AS Stock FROM Stocks INNER JOIN Articulos ON Stocks.nIdArticulo = Articulos.nId" & _
" WHERE (((Articulos.sCodigo)='" & cod & "') AND ((Stocks.bClose)=0));"
Try
Dim rs As ADODB.Recordset
rs = New ADODB.Recordset
Dim can As ADODB.Connection
can = New ADODB.Connection
can.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\temp\inventario.mdb")
rs.Open(qry_rs, can)
If rs.EOF = False Then DGV1.CurrentRow.Cells(0).Value = rs.Fields("Id").Value
If rs.EOF = False Then DGV1.CurrentRow.Cells(2).Value = rs.Fields("Nombre").Value
If rs.EOF = False Then DGV1.CurrentRow.Cells(4).Value = rs.Fields("Stock").Value
rs.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Ayer cuando deje esto funcionaba perfecto des pues de agregar la condición "if .eof = false then" pero hoy que pruebo, algo me falla y no se muy bien a que se debe, me sale un mensaje: [controlador odbc ms access] demasiadas tareas de cliente
Aunque los cambios se realizan correctamente en los campos, pero tarda mucho, ayer lo hacia casi al instante
