none
Salvar o resultado de um colorDialog no banco de dados e Utilizar psoteriormente RRS feed

  • Pergunta

  •   Ola, tenho um pequeno problema:

      Estou realizando um software para controle de livros, 

    Bom, indo direto ao ponto, em determinado momento eu precisarei cadastrar um gênero literário no banco de Dados, e pretendo cadastrar uma cor vinculada ao gênero, 

    Portanto na Tabela gêneros eu  Cadastro o Nome do Genero é o Codigo da cor:

    Conforme o Exemplo:

     Dim cor As String = Convert.ToString(ColorDialog1.Color)

            Try
                ModuleNextBook.inicia()
                Dim SQLCMD As New SqlCommand("insert into Generos(COD_USUARIO,NOME_GENERO,COD_COR) Values (" & CodUsuario & ", '" & UCase(TxtGenero.Text) & "', '" & cor & "')", connect)
                Dim result = SQLCMD.ExecuteNonQuery
                If result = 1 Then
                    MsgBox("Cadastro Efetuado com Sucesso")
                    ModuleNextBook.termina()
                End If

                ModuleNextBook.termina()
            Catch ex As Exception
                MsgBox("Erro de Banco " & Err.Number & " " & Err.Description)
            Finally
                ModuleNextBook.termina()
            End Try

    Posteriormente eu pretendo usar o código da cor, por meio de uma consulta e configurar essa como a cor de alguns componentes de um formulário dedicado aos livros, ou seja inicialmente eu cadastrei o genero drama com o Código Color [Red], quando carregar o form para um livro com o gênero drama, esses componentes ficariam vermelhos..

    Eu consigo efetuar o cadastro convertendo o resultado do ColorDialog para String, pois não consegui cadastrar caso a variável seja Color, estou com dificuldade, para resgatar esse codigo cadastrado e utiliza-lo :

    Segue exemplo abaixo:

     Dim CodCor As String

      ModuleNextBook.inicia()
                Dim sqlcmd5 As New SqlCommand("SELECT * FROM GENEROS WHERE COD_USUARIO =" & CodUsuario & " AND COD_GENERO =" & CodGenero & "", connect)
                Dim result5 = sqlcmd5.ExecuteReader
                If result5.Read Then
                    CodCor = result5("COD_COR")
                    MessageBox.Show(CodCor) 'faço uma exibição para verificar se a consulta correu bem 

                    Dim cor As Color = ColorTranslator.FromHtml(CodCor) 'Minha ultima tentativa foi converter a string que recebe o valor da consulta para o tipo Color, porem ocorre um erro

                    Panel1.BackColor = cor
                    ModuleNextBook.termina()
                End If
                ModuleNextBook.termina() 

     

    Suponho que a minha grande dificulade esta em resgatar e utilizar o  resultado da consulta, Muito obrigado, Aguardo respostas

    quinta-feira, 18 de abril de 2013 20:14