INSERIR DADOS EM UM TABELA.
pessoal tenho uma rotina pra inserir dados em minHA TABELA(usuarios) so que parece que nao funciona, ai segue a rotina.
Dim conexao As New SqlConnection([Ô]data source=.\sqlexpress;attachdbfilename=|datadirectory|\usuarios.mdf;integrated security=true;connect timeout=30;user instance=true[Ô])
Dim cmd As SqlCommand
Dim sql As String = [Ô]insert into usuarios(nome, senha)values([ô][Ô] & txtusuario.Text & [Ô][ô],[ô][Ô] & txtsenha.Text & [Ô][ô])[Ô]
cmd = New SqlCommand(sql, conexao)
cmd.Parameters.Add(New SqlParameter([Ô]@nome[Ô], txtusuario.Text))
cmd.Parameters.Add(New SqlParameter([Ô]@senha[Ô], txtsenha.Text))
Try
cmd.Connection.Open()
cmd.ExecuteNonQuery()
MsgBox([Ô]dados gravados com sucesso[Ô], MsgBoxStyle.OkOnly, [Ô]gravar[Ô])
Catch ex As Exception
MsgBox([Ô]deu zica ae mano[Ô] & ex.Message, MsgBoxStyle.OkOnly, [Ô]erro[Ô])
Finally
conexao.Close()
End Try
alguem pode me mostrar outra forma, mas que funcione pois essa nao e funcional.
Dim conexao As New SqlConnection([Ô]data source=.\sqlexpress;attachdbfilename=|datadirectory|\usuarios.mdf;integrated security=true;connect timeout=30;user instance=true[Ô])
Dim cmd As SqlCommand
Dim sql As String = [Ô]insert into usuarios(nome, senha)values([ô][Ô] & txtusuario.Text & [Ô][ô],[ô][Ô] & txtsenha.Text & [Ô][ô])[Ô]
cmd = New SqlCommand(sql, conexao)
cmd.Parameters.Add(New SqlParameter([Ô]@nome[Ô], txtusuario.Text))
cmd.Parameters.Add(New SqlParameter([Ô]@senha[Ô], txtsenha.Text))
Try
cmd.Connection.Open()
cmd.ExecuteNonQuery()
MsgBox([Ô]dados gravados com sucesso[Ô], MsgBoxStyle.OkOnly, [Ô]gravar[Ô])
Catch ex As Exception
MsgBox([Ô]deu zica ae mano[Ô] & ex.Message, MsgBoxStyle.OkOnly, [Ô]erro[Ô])
Finally
conexao.Close()
End Try
alguem pode me mostrar outra forma, mas que funcione pois essa nao e funcional.
Retorna alguma mensagme de erro?
nenhuma mensagem de erro.
pelo contrario chega a executar mensagem de dados gravados com sucesso mais ao verificar minha tabela os dados nao foram salvos.
pelo contrario chega a executar mensagem de dados gravados com sucesso mais ao verificar minha tabela os dados nao foram salvos.
Fiz uma alteração no seu código.
Teste e retorne o resultado.
Teste e retorne o resultado.
Dim cmd As SqlCommand
Dim sql As String = [Ô]insert into usuarios(nome, senha) values (@1, @2)[Ô]
cmd = New SqlCommand(sql, conexao)
cmd.Parameters.Add(New SqlParameter([Ô]@1[Ô], txtusuario.Text))
cmd.Parameters.Add(New SqlParameter([Ô]@2[Ô], txtsenha.Text))
Try
cmd.Connection.Open()
cmd.ExecuteNonQuery()
MsgBox([Ô]dados gravados com sucesso[Ô], MsgBoxStyle.OkOnly, [Ô]gravar[Ô])
Catch ex As Exception
MsgBox([Ô]deu zica ae mano[Ô] & ex.Message, MsgBoxStyle.OkOnly, [Ô]erro[Ô])
Finally
conexao.Close()
End Try
continua do0 mesmo jeito nao muda em nada meus registros do banco de dados.
por favor ajuda.
por favor ajuda.
Tópico encerrado , respostas não são mais permitidas