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