combobox a un datagridview

[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