Jump to content

Guardar o valor nas labels


Jony Rato
 Share

Recommended Posts

Boas

Pessoal estou a trabalhar num projecto e estou com uma dúvida.

Aqui aparecem os detalhes todos da reserva:

http://alojaimagens.com/images/73qwwkgqj7huif4rqv8r.png

Quando eu clico em editar as labels desaparecem e aparecem comboxes para editar o tipo de quarto e o número:

http://alojaimagens.com/images/9qdnebr1o922hbgpasxu.png

E quando clico em gravar em vez de aparecer o Singular e o 22 aparece o Casal e o 8.

Só quando vou a listview e volto a seleccionar é que assume o Singular e o 22.

Podem Ajudar?

Obrigado

Link to comment
Share on other sites

Boas,

quando fazes gravar estás a fazer o que para atribuir os valores às labels

If MessageBox.Show("Dados guardados com sucesso!", "Hotel Beira-Mar", MessageBoxButtons.OK, MessageBoxIcon.Information) Then
	    Dim cmd2 As New MySqlCommand("UPDATE reserva SET nome=('" & nometext.Text & "'),bicc=('" & bicc.Text & "'),ncont=('" & ncontxt.Text & "'),telemovel=('" & tlmtxt.Text & "'),morada=('" & morada.Text & "'), datanasc=('" & dtnasc.Text & "'), idade=('" & idade.Text & "'), dataent =('" & dentrada.Text & "'), datasaida=('" & dsaida.Text & "'),numnoites=('" & numeronoites.Text & "'),tipoquarto=('" & tquarto.Text & "'), nquarto=('" & numequarto.Text & "'), total=('" & total.Text & "' ) WHERE nreserva='" & ntemp & "';", con)
	    con.Close()
	    con.Open()
	    cmd2.ExecuteReader()
	    tquarto.Visible = False
	    numequarto.Visible = False
	    Label39.Visible = True
	    Label40.Visible = True
    End If
    visualizar2()

Este é o meu código para guardar

Link to comment
Share on other sites

Aquela função "visualizar2" faz o que?

É para a listview
con.Close()
    con.Open()
    ListView1.Items.Clear()
    Dim TABLE As New DataTable("reserva")
    Dim sqlQuery As MySqlDataAdapter
    sqlQuery = New MySqlDataAdapter("SELECT * FROM reserva WHERE funcionario = '" & Login.nometemp & "'", con)
    sqlQuery.Fill(TABLE)
    For indx = 0 To TABLE.Rows.Count - 1
	    Dim lv As New ListViewItem
	    lv.Text = (TABLE.Rows(indx).Item("nreserva"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("nome"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("dataent"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("datasaida"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("numnoites"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("tipoquarto"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("nquarto"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("horareserva"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("horacheckin"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("horacheckout"))
	    lv.SubItems.Add(TABLE.Rows(indx).Item("total"))
	    ListView1.Items.Add(lv)
    Next
    TABLE.Dispose()
    sqlQuery.Dispose()
    ClearTable(TABLE)
Link to comment
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
 Share

×
×
  • 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.