les dejo el codigo Imports MySql.Data.MySqlClient
Public Class proyectos_cartera
Dim cnGen As New MySqlConnection
Dim Primera As Boolean = True
Dim cnUsuario As New MySqlConnection
Sub Conectar()
Dim Departamento As Integer = 0
Dim Municipio As Integer = 0
Dim xPrimera As Boolean = True
Dim strQry As String = ""
Try
If Len(StringCn) > 0 Then
cnGen.ConnectionString = StringCn
cnGen.Open()
End If
Catch ex As Exception
MensajeError(Err.Description)
End Try
If cnGen.State = ConnectionState.Open Then
Try
Catch ex As Exception
MensajeError(Err.Description)
End Try
End If
End Sub
Sub Consulta()
Dim dsGen As New DataSet
Dim daGen As New MySqlDataAdapter
Dim strQry As String
Try
strQry = "SELECT id_gg, denominacion FROM grupo"
daGen.SelectCommand = New MySqlCommand(strQry, cnGen)
daGen.Fill(dsGen, "grupo")
DenominacionComboBox.DataSource = dsGen.Tables("grupo")
DenominacionComboBox.DisplayMember = ("denominacion")
DenominacionComboBox.ValueMember = ("id_gg")
If DenominacionComboBox.SelectedIndex >= -1 Then
DenominacionComboBox.SelectedIndex = 0
End If
Catch ex As Exception
MensajeError(Err.Description)
End Try
End Sub
Private Sub Proyecto_carteraBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proyecto_carteraBindingNavigatorSaveItem.Click
Me.Validate()
Me.Proyecto_carteraBindingSource.EndEdit()
Me.Proyecto_carteraTableAdapter.Update(Me.GestorDataSet.proyecto_cartera)
End Sub
Private Sub proyectos_cartera_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'GestorDataSet.proyecto_cartera' Puede moverla o quitarla según sea necesario.
Me.Proyecto_carteraTableAdapter.Fill(Me.GestorDataSet.proyecto_cartera)
Conectar()
Consulta()
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
menu_principal.Show()
Me.Visible = False
End Sub
Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
Id_proyectoTextEdit.Enabled = True
DenominacionComboBox.Enabled = True
FechaDateEdit.Enabled = True
ActividadTextBox.Enabled = True
ObjetivoTextBox.Enabled = True
Resultado_esperadoTextBox.Enabled = True
Id_proyectoTextEdit.Focus()
End Sub
Private Sub DenominacionComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DenominacionComboBox.SelectedIndexChanged
If DenominacionComboBox.Enabled = True Then
Consulta()
Primera = True
End If
End Sub
End Class