combobox a un datagridview

[rsilva_tj]

ola
alguien sabe como traspasar de un combobox a un datagridview,

la idea es seleccionar un nombre de una empresa (q es el codigo nombre_empresa de la tabla EMPRESA)y que se cargue automaticamente el datagridview con los datos de varios pc que estan en un campo llamado "descripcion_pc" de otra tabla llamada DESCRIPCION...

por fis,,si pueden manden codigo por q con palabras cualquiera lo dice.....por fis
lo disficicl es crear este codigo
:apla uso:

[mazingerz]

Estimado Rsilva:

Creo que lo mejor en ese caso es colocar un combobox dentro del Datagridview
En las tareas del datagrid edita las columnas, ahi cambias el default del columtype a DataGridViewComboBoxColumn. Le das un nombre acorde y luego un codigo donde Col2Cb.Items.Add(xy) es del tipo Ccombobox.


Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
Dim nindice As Integer = Col1Cb.DataGridView.CurrentRow.Index
Dim nvalor As Integer = Col1Cb.DataGridView.Rows(nindice).Cells(0).Value.T oString
comm.CommandText = "Select Stock, Precio From Producto Where IdProducto = '" & nvalor.ToString.Trim & "'"
DR = comm.ExecuteReader
DR.Read()
Dim nStock As Integer = DR.GetString(0)
Dim nPRecio As Integer = DR.GetString(1)
Me.DataGridView1.Item(2, nindice).Value = nPRecio
For xy As Integer = 1 To nStock
Col2Cb.Items.Add(xy)
Next
TotalVenta()
DR.Close()

End Sub

Espero te sirva.
Saludos.

[rsilva_tj]

'listo
'utilice mysql 5 y .net 2005
'para el MySQLDriverCS bajarlo desde la pagina del guille

Option Explicit On
'Option Strict On
Option Compare Text
Imports MySQLDriverCS
Public Class Form1
Inherits System.Windows.Forms.Form

Dim var1 As Char
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bConexionExitosa As Boolean = True
Dim DBCon As MySQLConnection
DBCon = New MySQLConnection(New MySQLConnectionString("127.0.0.1", "activos_informatica", "root", "oracle", 3306).AsString)
'Dim mida As New MySQLDataAdapter("select * from departamentos where nombre= '" & ComboBox1.SelectedItem & "'", DBCon)
Dim mida As New MySQLDataAdapter("select nombre, tipo_equipo from departamentos d, tipo_equipo t * from departamentos where nombre= '" & ComboBox1.SelectedItem & "'", DBCon)
Dim mid As New DataSet
Try
DBCon.Open()
Catch ex As MySQLException
MsgBox(ex.Message.ToString)
bConexionExitosa = False
End Try
If bConexionExitosa Then
Dim sql As MySQLCommand = New MySQLCommand
sql.Connection = DBCon
mida.Fill(mid, "departamentos")
DataGridView1.DataSource = mid
DataGridView1.DataMember = "departamentos"
sql.CommandType = CommandType.Text
DBCon.Close()
End If
End Sub
End Class