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.
Cita: 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