Buenas tardes estimados foristas :
Estoy tratando de llenar un datagrid a través de joins pero me da error.... Aqui les dejo mi código a ver en que puede estar fallando !!!!
Dim cxx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Apligestal\BD\datos.mdb")
cxx.Open()
Dim SQLgrid As String
SQLgrid = "SELECT DISTINCT(ventas.clave_cliente), ventas.codigo, ventas.cantidad, clientes.nombre, articulos.descripcion, ventas.cod FROM ventas INNER JOIN clientes ON ventas.clave_cliente = clientes.clave_cliente) INNER JOIN articulos ON ventas.codigo = articulos.codigo) WHERE ventas.cod ='" & TxtId.Text & " '; "
Dim com As New OleDbDataAdapter(SQLgrid, cxx)
Dim dot As New Data.DataSet
com.Fill(dot, "ventas")
If dot.Tables("ventas") Is Nothing Then
MessageBox.Show("Orden de servicio sin componentes asociados", "Sistema de Control de Taller", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
DataGridView1.DataSource = dot.Tables("ventas")
End If
Espero me puedan ayudar amigos :
Saludos.
Carlos.
