none
Dados inseridos via software não aparecem no banco ou na consulta, ou somem rapidamente RRS feed

  • Pergunta

  • Boa tarde!

    Estou desenvolvendo um software em VB, utilizando o Visual Studio 2010, com LocalDB e, consequentemente, utilizando o SQL Server como banco de dados.

    O programa cadastra, exclui, altera e consulta dados dentro do banco, parte a qual ainda estou trabalhando. Porém, estou tentando fazer a consulta de um dado que fora cadastrado no banco, porém a consulta não retorna dados anteriores. Por exemplo: se faço o cadastro agora e vou consultá-lo imediatamente, ele aparece na consulta, mas se salvo o desenvolvimento, fecho a plataforma e reinicio-a, o dado sumiu, não consigo consultá-lo novamente.

    Alguém para me ajudar ou para me explicar o que está acontecendo? O estranho é que não há qualquer retorno de falha de conexão, tabela vazia ou algo parecido. O programa roda liso, mas os dados não aparecem.

    Segue abaixo meu código:

    'Para cadastro
    
    Public conexao As New SqlConnection
        Public comando As New SqlCommand
        Public leitura As SqlDataReader
        Public nonquery As String
    
        Public Sub Executar()
            comando.ExecuteNonQuery()
        End Sub
    
        Public Sub Conectar()
            conexao.ConnectionString = My.Settings.con
            conexao.Open()
        End Sub
    
        Public Sub Ler()
            leitura = comando.ExecuteReader
        End Sub
    
        Public Sub Comandar(ByVal com As String)
            comando.Connection = conexao
            comando.CommandText = (com)
            comando.CommandType = CommandType.Text
        End Sub
    
        Public Sub Fechar()
            conexao.Close()
        End Sub
    
    Try
                    Conectar()
                    Comandar("INSERT INTO TBORCAMENTOS (PROJETISTA, SOLICITANTE, CLIENTE, NUMPROJETO, DATAPROJETO, PRODUTO, LINHA, COMPOSICAO, NUMREVISAO, DATAREVISAO, TIPOARQUIVO, QUANTFOLHAS, ENDERECOARQ) VALUES ('" & txtPrimeiro.Text & "', '" & txtSegundo.Text & "', '" & txtTerceiro.Text & "', '" & txtQuarto.Text & "', '" & txtQuinto.Text & "', '" & txtSexto.Text & "', '" & txtSetimo.Text & "', '" & txtOitavo.Text & "', '" & txtNono.Text & "', '" & txtDecimo.Text & "', '" & txtDecPrimeiro.Text & "', '" & txtDecSegundo.Text & "', '" & txtDecTerceiro.Text & "')")
                    Ler()
                    Fechar()
                Catch ex As Exception
                    Fechar()
                    MessageBox.Show(ex.Message)
                End Try
    
    'Para consulta
    
    Try
                    Conectar()
                    Comandar("SELECT PROJETISTA, SOLICITANTE, CLIENTE, NUMPROJETO, DATAPROJETO, PRODUTO, LINHA, COMPOSICAO, NUMREVISAO, DATAREVISAO, TIPOARQUIVO, QUANTFOLHAS, ENDERECOARQ FROM TBORCAMENTOS WHERE produto = '" & lstResultados.SelectedItem & "'")
                    Ler()
                    Do While leitura.Read
                        txtPrimeiro.Text = leitura("PROJETISTA")
                        txtSegundo.Text = leitura("SOLICITANTE")
                        txtTerceiro.Text = leitura("CLIENTE")
                        txtQuarto.Text = leitura("NUMPROJETO")
                        txtQuinto.Text = leitura("DATAPROJETO")
                        txtSexto.Text = leitura("PRODUTO")
                        txtSexto.Text = leitura("LINHA")
                        txtSetimo.Text = leitura("COMPOSICAO")
                        txtOitavo.Text = leitura("NUMREVISAO")
                        txtNono.Text = leitura("DATAREVISAO")
                        txtDecimo.Text = leitura("TIPOARQUIVO")
                        txtDecPrimeiro.Text = leitura("QUANTFOLHAS")
                        txtDecSegundo.Text = leitura("ENDERECOARQ")
                    Loop
                    Fechar()
                Catch ex As Exception
                    Fechar()
                    MessageBox.Show(ex.Message)
                End Try

    quarta-feira, 29 de julho de 2015 19:54

Todas as Respostas

  • Cheguei a utilizar o mesmo código, com modificações como nomes de variáveis e afins, em outros projetos, e não tive quaisquer problema. A diferença é que usei o MySQL como banco de dados. Não sei se estou tendo um problema exclusivo do SQL Server.
    quarta-feira, 29 de julho de 2015 19:56