Jump to content
alberto14

Dados de uma combo box

Recommended Posts

alberto14

Boas pessoal

A minha dúvida é a seguinte:  eu queria fazer tipo um talão que desse para pré-visualizar. Onde tenho um form que tem textbox onde escolhemos a quantidade , e que aparecesse o nome do prato e o preço de linha a pagar.

Estes campos do nome do prato  e do preço vem da combo box onde tem uma base dados inserida.

E depois disso queria fazer a soma desse valor para dar o total a pagar. Será que me podem ajudar?

Share this post


Link to post
Share on other sites
RobinHood

tipo eu também tenho uma cena parecida:

do tipo... quando eu escolho o tipo de família(ver na imagem) e aparecer na subfamilia as varias opções disponíveis que estão na bd.

- http://img27.imageshack.us/i/anexo1.png/

Eu estou a tentar com esta código mas só está a funcionar para um linha:

Dim sabe As String

        sabe = cbfamilia.Text

        Select Case sabe

            Case (sabe)

                Dim GestPapConnectionString As String = "Data Source=ROBIN-WOOD-PC\SQLSERVER;Initial Catalog=GestPap;User ID=sa;Password=asdasda"

                Dim connection As New SqlConnection(GestPapConnectionString)

                Dim command As New System.Data.SqlClient.SqlCommand("Select codigosub From SubFamilias WHERE familia = @AAA ", connection)


                connection.Open()
                command.Parameters.AddWithValue("@AAA", Me.cbfamilia.Text)

                Dim apap As System.Data.SqlClient.SqlDataReader = command.ExecuteReader()


                If apap.HasRows Then

                    apap.Read()
                    cbsubfamilia.Text = apap.GetValue(0).ToString()

                End If

                connection.Close()

        End Select

e eu tenho mais dados no bd:

- http://img4.imageshack.us/i/anexo2.png/

P.S eu não abri outro tópico pk isto tambem poderia interessar ao alberto14 ;)

cumps. Robin

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

If apap.HasRows Then

     While apap.Read() 'Para ler todos os dados. O que tinhas so le o primeiro volar
          cbsubfamilia.Items.add(apap.GetValue(0).ToString()) 'Numa combobox, adiciona-se os valores
     end While
End If


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
RobinHood

Ok... obrigado já mostra os dados... como eu queria ;).... Voçes são uns crânios :cheesygrin:.....

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

×
×
  • Create New...

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.