ERRO AO GRAVAR
Boa tarde pessoal, tenho uma query para inserir dados em meu banco em sql, a query esta a funcionar só que, quando uso dentro do meu sistema consigo inserir dados ao sair do programa e voltar não esta guardando os dados.
Segue a linha de comando do botão gravar
Private Sub cmdgravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgravar.Click
Try
[ô]Devolve uma mensagem de erro caso o campo esteja em branco.
If regactv = True Then [ô]Verifica se cliquei no botão incluir
ErrorProvider1.Clear()
If txtnome.Text.Trim.Equals([Ô][Ô]) Then
ErrorProvider1.SetError(txtnome, [Ô]Informe o nome do Pais[Ô])
Return
Else
Dim temp = TbPaisTableAdapter1.Checarpais(txtnome.Text) [ô]Verifica se o pais já esta cadastrado
[ô]Se não for localizado, inseri o registo
If temp Is Nothing Then
TbPaisTableAdapter1.Inserir(txtnome.Text, regautenticar, Today, TimeOfDay)
MsgBox([Ô]Pais cadastrado com sucesso[Ô], vbInformation, [Ô]Inserir...[Ô])
txtregisto.Text = [Ô][Ô]
txtnome.Text = [Ô][Ô]
regactv = False
txtnome.Focus()
Else
[ô]Se for localizado, devolve mensagem
MsgBox([Ô]Este pais já esta cadastrado[Ô], vbInformation, [Ô]Erro ao Inserir...[Ô])
txtregisto.Text = [Ô][Ô]
txtnome.Text = [Ô][Ô]
regactv = False
txtnome.Focus()
End If
End If
Else
MsgBox([Ô]Você deve clicar em adicionar primeiro[Ô], vbInformation, [Ô]Erro...[Ô])
cmdincluir.Focus()
End If
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
cmdgravar.Enabled = False
cmdincluir.Enabled = True
End Sub
Query inserir:
INSERT INTO TBPais (Pais, Usuario1, Data, Hora)
VALUES (@Pais,@Usuario1,@Data,@Hora);
SELECT Registo, Pais, Usuario1, Data, Hora FROM TBPais WHERE (Registo = SCOPE_IDENTITY())
Segue a linha de comando do botão gravar
Private Sub cmdgravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgravar.Click
Try
[ô]Devolve uma mensagem de erro caso o campo esteja em branco.
If regactv = True Then [ô]Verifica se cliquei no botão incluir
ErrorProvider1.Clear()
If txtnome.Text.Trim.Equals([Ô][Ô]) Then
ErrorProvider1.SetError(txtnome, [Ô]Informe o nome do Pais[Ô])
Return
Else
Dim temp = TbPaisTableAdapter1.Checarpais(txtnome.Text) [ô]Verifica se o pais já esta cadastrado
[ô]Se não for localizado, inseri o registo
If temp Is Nothing Then
TbPaisTableAdapter1.Inserir(txtnome.Text, regautenticar, Today, TimeOfDay)
MsgBox([Ô]Pais cadastrado com sucesso[Ô], vbInformation, [Ô]Inserir...[Ô])
txtregisto.Text = [Ô][Ô]
txtnome.Text = [Ô][Ô]
regactv = False
txtnome.Focus()
Else
[ô]Se for localizado, devolve mensagem
MsgBox([Ô]Este pais já esta cadastrado[Ô], vbInformation, [Ô]Erro ao Inserir...[Ô])
txtregisto.Text = [Ô][Ô]
txtnome.Text = [Ô][Ô]
regactv = False
txtnome.Focus()
End If
End If
Else
MsgBox([Ô]Você deve clicar em adicionar primeiro[Ô], vbInformation, [Ô]Erro...[Ô])
cmdincluir.Focus()
End If
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
cmdgravar.Enabled = False
cmdincluir.Enabled = True
End Sub
Query inserir:
INSERT INTO TBPais (Pais, Usuario1, Data, Hora)
VALUES (@Pais,@Usuario1,@Data,@Hora);
SELECT Registo, Pais, Usuario1, Data, Hora FROM TBPais WHERE (Registo = SCOPE_IDENTITY())
Veja em 1º lugar se as definições atribuidas aos campos estão bem : Tipo Data ou texto ou numérico etc.
é por que vc adicionou o arquivo no projeto. Assim, toda vez que vc inicia o projeto, ele cria uma cópia do arquivo na pasta bin. é nessa cópia que vc está fazendo as edições. O arquivo original fica na pasta do projeto.
Vc precisa excluir o arquivo do projeto, criar uma pasta própria para o arquivo e mudar a string da conexao.
Vc precisa excluir o arquivo do projeto, criar uma pasta própria para o arquivo e mudar a string da conexao.
Tópico encerrado , respostas não são mais permitidas