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