Ir para o conteúdo
cmtavares

ComboBox SQL QUERY

Mensagens Recomendadas

cmtavares

Boas pessoal, neste momento estou a desenvolver um programa de envio de newsletters, em que existe uma base de dados em SQL na qual estão registados todos os clientes. Existe também uma tabela com o nome de Grupos que tem como função relacionar um grupo a um cliente.

A minha questão é a seguinte:

Queria que ao selecionar o grupo numa combobox, mostra-se numa listbox todos os clientes relacionados com esse mesmo grupo que foi selecionado.

o código que tenho é este: (não da erro mas não está a fazer o que pretendo)

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    Dim connectionString As String = "Password=irpasimpo;Persist Security Info=True;User ID=SA;Initial Catalog=OEI;Data Source=CARLOS-M\SQL"
    Dim connection As New SqlConnection(connectionString)
    connection.Open()
    'Dim command As String = "Select Nome from Clientes where ID_GRUPO"
    Dim command As String = "select * from Grupos where ID_GRUPO='" & ComboBox1.Text & "' "

    If ComboBox1.SelectedText > "" Then
        Dim adpt As New SqlDataAdapter(command, connection)
        Dim myDataSet As New DataSet()
        adpt.Fill(myDataSet, "Clientes")
        Dim myDataTable As DataTable = myDataSet.Tables(0)
        Dim tempRow As DataRow
        For Each tempRow In myDataTable.Rows
            ListBox1.Items.Add((tempRow("Nome")))
        Next
    End If
End Sub

Desde já o meu agradecimento

Editado por ribeiro55

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Leonardo Pereira

O teu If não funciona assim, faz desta maneira:

If ComboBox1.SelectedItem > "" Then

ou

If ComboBox1.SelectedItem <> Nothing

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.