INSERIR DADOS NUMA TABELA
Pessoal estou com um problema, nao consigo inserir os dados de uma textbox em minha tabela
parece que minha rotina parece que nao faz nada.
alguem sabe me dizer o que pode ser.
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)
cmd.Parameters.Add(New SqlParameter([Ô]nome[Ô], txtusuario.Text))
cmd.Parameters.Add(New SqlParameter([Ô]senha[Ô], txtsenha.Text))
Try
conexao.Open()
cmd.ExecuteNonQuery()
MsgBox([Ô]dados gravados com sucesso[Ô], MsgBoxStyle.OkOnly, [Ô]gravar[Ô])
Catch ex As Exception
Finally
conexao.Close()
End Try
parece que minha rotina parece que nao faz nada.
alguem sabe me dizer o que pode ser.
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)
cmd.Parameters.Add(New SqlParameter([Ô]nome[Ô], txtusuario.Text))
cmd.Parameters.Add(New SqlParameter([Ô]senha[Ô], txtsenha.Text))
Try
conexao.Open()
cmd.ExecuteNonQuery()
MsgBox([Ô]dados gravados com sucesso[Ô], MsgBoxStyle.OkOnly, [Ô]gravar[Ô])
Catch ex As Exception
Finally
conexao.Close()
End Try
Boa tarde
Normalmente uso desta forma e não encontro erro
Somente coloque o Try/Catch
==================================================================================
Dim strConexao as string = [Ô]Data Source=192.168.0.100; Initial Catalog=teste;User Id=sa;Password=123456*[Ô]
Dim MySQL As String = [Ô] INSERT INTO tb_Cadastro (Nome, Endereco) [Ô] & _
[Ô] VALUES(@Nome,@Endereco )[Ô]
Dim Conn As New SqlConnection(strConexao)
Dim Cmd As New SqlCommand(MySQL, Conn)
Cmd.Parameters.Add(New SqlParameter([Ô]@Nome[Ô], txtNome.Text))
Cmd.Parameters.Add(New SqlParameter([Ô]@Endereco[Ô], txtEndereco.Text))
Conn.Open()
Cmd.ExecuteNonQuery()
Normalmente uso desta forma e não encontro erro
Somente coloque o Try/Catch
==================================================================================
Dim strConexao as string = [Ô]Data Source=192.168.0.100; Initial Catalog=teste;User Id=sa;Password=123456*[Ô]
Dim MySQL As String = [Ô] INSERT INTO tb_Cadastro (Nome, Endereco) [Ô] & _
[Ô] VALUES(@Nome,@Endereco )[Ô]
Dim Conn As New SqlConnection(strConexao)
Dim Cmd As New SqlCommand(MySQL, Conn)
Cmd.Parameters.Add(New SqlParameter([Ô]@Nome[Ô], txtNome.Text))
Cmd.Parameters.Add(New SqlParameter([Ô]@Endereco[Ô], txtEndereco.Text))
Conn.Open()
Cmd.ExecuteNonQuery()
substitua:
Dim sql As String = [Ô]insert into usuarios(nome, senha)values([ô][Ô] & txtusuario.Text & [Ô][ô],[ô][Ô] & txtsenha.Text & [Ô][ô])[Ô]
por:
Dim sql As String = [Ô]insert into usuarios(nome, senha)values(@nome, @senha)[Ô]
Dim sql As String = [Ô]insert into usuarios(nome, senha)values([ô][Ô] & txtusuario.Text & [Ô][ô],[ô][Ô] & txtsenha.Text & [Ô][ô])[Ô]
por:
Dim sql As String = [Ô]insert into usuarios(nome, senha)values(@nome, @senha)[Ô]
pessoal me ajudem minha rotina parece que nao existe.
nao faz nada.
sera que tenho que atualizar a tabela como faço isso
por favor ajuda
nao faz nada.
sera que tenho que atualizar a tabela como faço isso
por favor ajuda
Tópico encerrado , respostas não são mais permitidas