como llenar un datagrtid

[Esfinge02]

saludos después de mucho intentar e visto como hacer una conexión sencilla Xd
el problema que me acongoja ahora es que no se como llenar un datagrid manual mente alguien me puede echar la mano por favor
les dejo el codigo de lo que llevo hasta ahora la verdad no se como hacerlo.

Private Sub btnguardar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardardetalleproductos.Click
Using ConSQL As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\pollos.mdb")
ConSQL.Open()
'recuperar el valor de la lista
Dim proc As DataRowView = ltsproducto.SelectedItem
Dim idpr As String = proc.Row(0).ToString
Dim cant As Integer = txtcantidad2.Text
Dim idp As Integer = Convert.ToInt32(idpaq.Text)
Dim preciop As Decimal
Dim consulta As String = "select precio from cat_productos where idproducto = " + idpr + ""
Dim ejecucion As New OleDbCommand(consulta, ConSQL)
Dim precio As Integer = CInt(ejecucion.ExecuteScalar())
'productos del paquete actual | consulta para el datagrid
Dim consulta2 As String = "select a.producto,b.cantidad,a.precio from cat_productos as a join detalle_paquete as b on a.idproducto = b.idproducto where idpaquete = " + idp + ""
Dim ProductosPaquete As New DataSet
Dim ejecucion2 As New OleDbCommand(consulta2, ConSQL)
'ProductosPaquete = ejecucion2 | apartir de aqui no se que mas hacer

If (preciop = "") Then
'actualisar el precio del paquete
preciop = precio
preacmulado.Text = Convert.ToDecimal(preciop)
Else
preciop = preciop + precio
preacmulado.Text = Convert.ToDecimal(preciop)
End If

'insertamos el nuevo producto
Dim insprocdetll = ConDetallePaquetes.InsProductoPaquete(idp, idpr, cant)
'se acutalisan los productos de los paques
Me.ConDetallePaquetes.Fill(Me.Conexion.Detalle_Paq uetes)
txtcantidad2.Text = ""
ConSQL.Close()
End Using
End Sub

[Ka0stj]

Hola Esfinge02

Llemarlo manualmente lo entenderia sin conexión a una base de datos necesariamente. Te refieres a eso ó mediante una consulta?

Saludos!

[Highlander]

Esto es lo que hago yo:

1-En la form (frmOrdenTemplado) donde vas a llenar tu datagrid manual tengo:

Código:

Public dt As New DataTable

'Variable pública.
    Private Shared ChildInstance As frmOrdenTemplado = Nothing

    'controla que sólo exista una instancia del formulario.
    Public Shared Function Instance() As frmOrdenTemplado
        If ChildInstance Is Nothing OrElse ChildInstance.IsDisposed = True Then
            ChildInstance = New frmOrdenTemplado
        End If
        ChildInstance.BringToFront()

        Return ChildInstance
    End Function

En el evento LOAD de la form ejecuto CrearTabla

Código:

Public Sub CrearTabla()

        Dim frmOrdenTemplado As frmOrdenTemplado = frmOrdenTemplado.Instance

        frmOrdenTemplado.dt.Columns.Add(New DataColumn("CodOrdTrabajoTemplado", GetType(Integer)))
        frmOrdenTemplado.dt.Columns.Add(New DataColumn("Cantidad", GetType(Integer)))
  

    End Sub

Y luego en algun evento por ejemplo el usuario apreta AGREGAR llamo LlenarTabla

Código:

 Public Sub LlenarTabla(ByVal Codigo, ByVal Cantidad)

        Dim frmOrdenTemplado As frmOrdenTemplado = frmOrdenTemplado.Instance

        Dim dr As DataRow

        dr = frmOrdenTemplado.dt.NewRow()
        dr("CodOrdTrabajoTemplado") = Codigo
        dr("Cantidad") = Cantidad
        frmOrdenTemplado.dt.Rows.Add(dr)

        Return

    End Sub

Finalmente lo asigno al datagridview ejecutando:

Código:

Public Function LlenarGridItems(ByVal Grid As DataGridView, ByVal dt As DataTable)

        'llena un grid con un datatable

        'Llenar y asignar datasource la datagridview
        'da.Fill(dt)
        Grid.DataSource = dt

        'Actualizo total registros
        'CantidadRegistros = dt.Rows.Count

        Return Nothing

    End Function

[Esfinge02]

gracias por sus aportes la verdad me tarde un rato pero encontré un forma de aserlo a continuación les dejo el código para que me den su opinión.

Using ConSQL As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\pollos.mdb")
ConSQL.Open() 'abrimos la conexion
'productos del paquete actual | consulta para el datagrid
Dim consultap As New OleDbDataAdapter("SELECT a.IdProducto as Numero, a.Producto, b.Cantidad, a.Precio,b.Precio FROM(Cat_Productos as a INNER JOIN Detalle_Promociones as b ON a.IdProducto = b.IdProducto) where idpromocion = " + Idpromocio + "", ConSQL)
Dim ppp As New DataSet
consultap.Fill(ppp, "0")
'se acutalisan los productos de los paques
With dgvProductosPromocioes
.DataSource = ppp.Tables(0)
.RefreshEdit()
End With
ConSQL.Close()
End Using

solo puse parte del código si lo quieren ver completo díganme, aun que eso es lo que se requiere