Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

debliu

Eliminar atraves de combobox

Recommended Posts

debliu

Oi,

tenho uma combobox que liga a uma tabela em Access assim:

Try

            Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\canigestdatabase.mdb;"

            Using connection As New OleDbConnection(connString)

                Dim SQL As String = "SELECT * FROM Cãodb "

                Dim da As New OleDbDataAdapter(SQL, connection)

                Dim ds As New DataSet

                'da.SelectCommand.Parameters.Add("activo", OleDbType.Boolean).Value = True

                With Me.cmbxeliminar

                    da.Fill(ds)

                    .DisplayMember = "NIU"

                    '               

                    .DataSource = ds.Tables(0).DefaultView

                    .DropDownStyle = ComboBoxStyle.DropDown

                    .AutoCompleteMode = AutoCompleteMode.Suggest

                    .AutoCompleteSource = AutoCompleteSource.ListItems

                End With

                Me.cmbxeliminar.SelectedIndex = -1

            End Using

        Catch ex As Exception

            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

agora o que eu queria era apagar da tabela a linha que tenha o parametro selecionado na tabela...

alguem???  :wallbash:

Share this post


Link to post
Share on other sites
jpaulino

agora o que eu queria era apagar da tabela a linha que tenha o parametro selecionado na tabela...

Explica lá isto!

Share this post


Link to post
Share on other sites
pontopt

Ele quer seleccionar um elemento da combobox e dps apagar, na tabela, a linha da correspontente a esse elemento.

Por exemplo: Escolher o cliente 12345 na combobox e o programa ir à tabela apagar todos os dados desse cliente.

Share this post


Link to post
Share on other sites
pmaster

Tenta assim.. Não tenho a certesa de funciona.

sql1 = "delete from produtos WHERE cod_prod = " & ListBox1.GetItemText(ListBox1.Items.Item(ListBox1.SelectedIndex)) & ";"

                dataAdapter1.DeleteCommand = New MySql.Data.MySqlClient.MySqlCommand(sql1, connection1)

                connection1.Open()
                dataAdapter1.DeleteCommand.ExecuteNonQuery()
                connection1.Close()

Espero ter ajudado

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.