VERIFICAR SE REGISTRO EXISTE ANTES DE SALVAR
boa noite a todos,
estou precisando muito da ajuda de todos!!!!
Por favor, aguem pode me dizer onde estou errando?
[ô]antes de salvar na tabela, quero verificar se ja existe na tabela uma chave com a numeração informada no textbox
Private Sub salvar_chave()
Dim CONEXAO As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\BD_Coletores.mdb[Ô])
CONEXAO.Open()
Dim COMMAND As OleDbCommand = New OleDbCommand([Ô]SELECT * FROM tb_chaves WHERE chave = [ô][Ô] & ChaveTextBox.Text & [Ô][ô][Ô], CONEXAO)
Dim dr As OleDbDataReader
dr = COMMAND.ExecuteReader()
dr.read()
If dr.HasRows Then
MsgBox([Ô]Este usuário já existe no banco de dados[Ô])
Else
Dim commando As New OleDbCommand([Ô]insert into tb_chaves ([Ô] & _
[Ô]codigo,[Ô] & _
[Ô]chave,[Ô] & _
[Ô]setor,[Ô] & _
[Ô]localizacao,[Ô] & _
[Ô]rua,[Ô] & _
[Ô]porta,[Ô] & _
[Ô]observacoes,[Ô] & _
[Ô]Copia_chave[Ô] & _
[Ô]) values ([Ô] & _
[Ô][ô][Ô] & CódigoTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & ChaveTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & [Ô]Mezanino[Ô] & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & LocalizacaoComboBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & RuaNumericUpDown.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & PortaTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & ObservacoesTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & TextBox2.Text & [Ô][ô][Ô] & _
[Ô][ô])[Ô], CONEXAO)
commando.ExecuteNonQuery()
MsgBox([Ô]Registrado com sucesso[Ô])
End If
COMMAND.ExecuteNonQuery()
CONEXAO.Close()
End Sub
ao clicar no botão salvar aparece o erro em anexo
estou precisando muito da ajuda de todos!!!!
Por favor, aguem pode me dizer onde estou errando?
[ô]antes de salvar na tabela, quero verificar se ja existe na tabela uma chave com a numeração informada no textbox
Private Sub salvar_chave()
Dim CONEXAO As OleDbConnection = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\BD_Coletores.mdb[Ô])
CONEXAO.Open()
Dim COMMAND As OleDbCommand = New OleDbCommand([Ô]SELECT * FROM tb_chaves WHERE chave = [ô][Ô] & ChaveTextBox.Text & [Ô][ô][Ô], CONEXAO)
Dim dr As OleDbDataReader
dr = COMMAND.ExecuteReader()
dr.read()
If dr.HasRows Then
MsgBox([Ô]Este usuário já existe no banco de dados[Ô])
Else
Dim commando As New OleDbCommand([Ô]insert into tb_chaves ([Ô] & _
[Ô]codigo,[Ô] & _
[Ô]chave,[Ô] & _
[Ô]setor,[Ô] & _
[Ô]localizacao,[Ô] & _
[Ô]rua,[Ô] & _
[Ô]porta,[Ô] & _
[Ô]observacoes,[Ô] & _
[Ô]Copia_chave[Ô] & _
[Ô]) values ([Ô] & _
[Ô][ô][Ô] & CódigoTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & ChaveTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & [Ô]Mezanino[Ô] & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & LocalizacaoComboBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & RuaNumericUpDown.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & PortaTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & ObservacoesTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & TextBox2.Text & [Ô][ô][Ô] & _
[Ô][ô])[Ô], CONEXAO)
commando.ExecuteNonQuery()
MsgBox([Ô]Registrado com sucesso[Ô])
End If
COMMAND.ExecuteNonQuery()
CONEXAO.Close()
End Sub
ao clicar no botão salvar aparece o erro em anexo
Retira as aspas simples para o campo chave tanto na consulta quanto na inserção e testa:
Se funcionar, provavelmente dará erro lá embaixo também.
Dim COMMAND As OleDbCommand = New OleDbCommand([Ô]SELECT * FROM tb_chaves WHERE chave = [Ô] & ChaveTextBox.Text, CONEXAO)Se funcionar, provavelmente dará erro lá embaixo também.
Dim commando As New OleDbCommand([Ô]insert into tb_chaves ([Ô] & _
[Ô]codigo,[Ô] & _
[Ô]chave,[Ô] & _
[Ô]setor,[Ô] & _
[Ô]localizacao,[Ô] & _
[Ô]rua,[Ô] & _
[Ô]porta,[Ô] & _
[Ô]observacoes,[Ô] & _
[Ô]Copia_chave[Ô] & _
[Ô]) values ([Ô] & _
[Ô][ô][Ô] & CódigoTextBox.Text & [Ô][ô][Ô] & _
[txt-color=#e80000][Ô], [Ô] & ChaveTextBox.Text & _ [ô]Retirei as aspas simples[/txt-color]
[Ô],[ô][Ô] & [Ô]Mezanino[Ô] & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & LocalizacaoComboBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & RuaNumericUpDown.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & PortaTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & ObservacoesTextBox.Text & [Ô][ô][Ô] & _
[Ô],[ô][Ô] & TextBox2.Text & [Ô][ô][Ô] & _
[Ô][ô])[Ô], CONEXAO)
Faça seu login para responder