Ir para o conteúdo
cmtavares

LISTBOX SQL UPDATE

Mensagens Recomendadas

cmtavares    0
cmtavares

Boas pessoal,

capturaraf.jpg

Pessoal sabem me dizer como posso realizar o UPDATE da informação da listbox mais a esquerda?

fica ai a base de dados para ser mais facil!

imageeetl.jpg

Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
    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 = "UPDATE ID_GRUPO FROM Clientes WHERE Nome = (SELECT ID_GRUPO FROM Grupos WHERE Nome ='" & ComboBox1.SelectedItem & "') "
    ' Dim command As New SqlCommand("UPDATE Clientes Set ID_GRUPO=@ID_GRUPO where ID_GRUPO= '" & ComboBox1.SelectedItem & "'", connection)

    'command.Parameters.AddWithValue("@ID_GRUPO", ListBox1.Items)
    'command.ExecuteNonQuery()
    'connection.Close()
    Dim ExecuteComand As New SqlCommand(command, connection)

    'Dim Cmd As New SqlCommand(command, connection)
    'Cmd.Parameters.Add(New SqlParameter("@ID_GRUPO", ListBox1.Items))

    Dim Reader As SqlDataReader = ExecuteComand.ExecuteReader()
    If Reader.HasRows Then
	    While Reader.Read()
		    ListBox1.Items.Add(Reader.Item("Nome"))
	    End While
    End If

Editado por cmtavares

Partilhar esta mensagem


Link 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.