consulta de datadrigview

[alfil123]

hola amigos tengo un problema al cargar un datadrigview, bueno estoy intentanto cargalo al precionar un boton, el siguiente codigo es el que uso

Private Sub Modfificar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Modfificar.Click
Dim cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\_proy01\BD\datos.mdb")
Dim SQLbuscar As String
Dim renglon As Integer
renglon = DataGridView1.CurrentCell.RowIndex
Dim variable As String = DataGridView1.Item(0, renglon).Value
Try
Dim cmd As New OleDbCommand(SQLbuscar, cnx)
cmd.CommandType = CommandType.Text
cnx.Open()

Dim da As New OleDbDataAdapter("SELECT clientes.clave_cliente, clientes.nombre, ventas.folio, ventas.fecha, ventas.tipo_doc, ventas.serie_doc, ventas.Nro_doc FROM venta_detalle, ventas INNER JOIN clientes ON ventas.clave_cliente = clientes.clave_cliente where venta_detalle.folio=ventas.folio and ventas.folio='" + variable + "'", cnx)
Dim dsconsulta As New DataSet
da.Fill(dsconsulta)
MessageBox.Show(dsconsulta.Tables.Item(0), "Adelante...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
DataGridView2.DataSource = dsconsulta.Tables(0)
cnx.Close()

Catch ex As Exception
MsgBox(ex.Message)
Finally
End Try

End Sub

pero no carga nada
el grid sigue vacio
no se si alguien puede desirme que esta fallando

[fishlv2]

alfil123

que tal, mira por lo que he visto no encuentro nada mal, lo he probado y lo he comparado con proyectos que tengo y todo esta correctamente, pero prueba con poner un punto de interrupción y mira:

1. si la variable "renglon" lleva el indice de la fila

2. si la variable "variable" lleva el valor esperado

Nota: mira estas lineas de codigo que escribiste
renglon = DataGridView1.CurrentCell.RowIndex
Dim variable As String = DataGridView1.Item(0, renglon).Value

lo puedes cambiar a:
Dim x as String = DataGridView1.CurrentRow.Cells(0).Value.ToString

y te devolvera el contenido de la celda, en la fila que te encuentres
posicionado.

3. si las 2 variables anteriores si llevaban un valor, pon un punto de interrupción
en el "...Dim da as New Oledb.." y copia el string completo de tu query y lo pegas en
access para que se ejecute el query y miras si te devuelve algun dato.

4. Si en el punto 3 no te devolvio algo, fijo es porque no hay registros que cumplan tu condicion, pero si te devolviera algo yo cambiaria tu codigo y le agregaria nada mas a que tabla quiero guardarla

Dim dsconsulta As New DataSet
da.Fill(dsconsulta, dsconsulta.Tables("asdf"))
MessageBox.Show(dsconsulta.Tables.Item(0), "Adelante...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
DataGridView2.DataSource = dsconsulta.Tables("asdf")

Espero que te ayude algo mis instrucciones! ya sabes que cualquier duda me avisas

[cristianp87]

creo que de berias revisar el query bien, haber si te vota algun dato.



espero le sirva.

[xorxexuan]

Si la query está bien... Es posible que te falte el DataBind del grid?