INSERIR BD
Estou tentando inserir um novo registo só que não add.
Coloquei o seguinte comando
Dim vdata As String
vdata = Format(Today, [Ô]dd/MM/yyyy[Ô])
TbUsuarioTableAdapter1.IncluirReg(txtusuario.Text, txtsenha.Text, txtconfsenha.Text, [Ô]True[Ô], [Ô]True[Ô], [Ô]True[Ô], [Ô]True[Ô], [Ô]True[Ô], [Ô]True[Ô], registo, vdata)
ativaincluir = [Ô]desativo[Ô]
MsgBox([Ô]Usuário cadastrado com sucesso[Ô], vbInformation, [Ô]Cadastro...[Ô])
limpacampos()
só que não add, esse exemplo peguei aqui
Coloquei o seguinte comando
Dim vdata As String
vdata = Format(Today, [Ô]dd/MM/yyyy[Ô])
TbUsuarioTableAdapter1.IncluirReg(txtusuario.Text, txtsenha.Text, txtconfsenha.Text, [Ô]True[Ô], [Ô]True[Ô], [Ô]True[Ô], [Ô]True[Ô], [Ô]True[Ô], [Ô]True[Ô], registo, vdata)
ativaincluir = [Ô]desativo[Ô]
MsgBox([Ô]Usuário cadastrado com sucesso[Ô], vbInformation, [Ô]Cadastro...[Ô])
limpacampos()
só que não add, esse exemplo peguei aqui
o erro não pode ser na dada, pois não estou conseguindo inserir um novo registo no meu bd
fiz uma query insert
e depois add esse comando no botao, não da nenhum erro, apenas nao inclui nada
fiz uma query insert
e depois add esse comando no botao, não da nenhum erro, apenas nao inclui nada
Posta a query INSERT
Qual o Banco ?
Qual o Banco ?
o bando é em sql
a query foi criada automático e é essa:
INSERT INTO TBUsuario
(Nome, Senha, confsenha, incluir, novo, excluir, salvar, alterar, pesquisar, utilizador, datainclusao)
VALUES (@Nome,@Senha,@confsenha,@incluir,@novo,@excluir,@salvar,@alterar,@pesquisar,@utilizador,@datainclusao);
SELECT Registo, Nome, Senha, confsenha, incluir, novo, excluir, salvar, alterar, pesquisar, utilizador, datainclusao FROM TBUsuario WHERE (Registo = SCOPE_IDENTITY())
a query foi criada automático e é essa:
INSERT INTO TBUsuario
(Nome, Senha, confsenha, incluir, novo, excluir, salvar, alterar, pesquisar, utilizador, datainclusao)
VALUES (@Nome,@Senha,@confsenha,@incluir,@novo,@excluir,@salvar,@alterar,@pesquisar,@utilizador,@datainclusao);
SELECT Registo, Nome, Senha, confsenha, incluir, novo, excluir, salvar, alterar, pesquisar, utilizador, datainclusao FROM TBUsuario WHERE (Registo = SCOPE_IDENTITY())
coloquei uma imagem que não era para aqui, desculpe
será que tenho que colocar um update?
se tiver outra forma de fazer o botão incluir e salvar também agradeço, o importante é dar certo. obrigado
fiz de outra forma só que dá o seguinte erro:
erro:
object reference not set to an instance of an object
linhas de codigo que inseri:
Dim sqlConnectString As String = [Ô]Data Source=.\SQLEXPRESS;AttachDbFilename=E:\PRGTIAL\TIAL\TIAL\BDTial.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
[ô]aqui abro a conexão novamente
conexao = New SqlClient.SqlConnection(sqlConnectString)
cmd = New SqlClient.SqlCommand(sql, conexao)
cmd.Connection = conexao
erro:
object reference not set to an instance of an object
linhas de codigo que inseri:
Dim sqlConnectString As String = [Ô]Data Source=.\SQLEXPRESS;AttachDbFilename=E:\PRGTIAL\TIAL\TIAL\BDTial.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
[ô]aqui abro a conexão novamente
conexao = New SqlClient.SqlConnection(sqlConnectString)
cmd = New SqlClient.SqlCommand(sql, conexao)
cmd.Connection = conexao
cmd.Parameters.AddWithValue([Ô]@Nome[Ô], txtusuario.Text)
cmd.Parameters.AddWithValue([Ô]@Senha[Ô], txtsenha.Text)
cmd.Parameters.AddWithValue([Ô]@confsenha[Ô], txtconfsenha.Text)
cmd.CommandType = System.Data.CommandType.StoredProcedure
conexao.Open()
cmd.ExecuteNonQuery()
conexao.Close()
cmd.Parameters.AddWithValue([Ô]@Senha[Ô], txtsenha.Text)
cmd.Parameters.AddWithValue([Ô]@confsenha[Ô], txtconfsenha.Text)
cmd.CommandType = System.Data.CommandType.StoredProcedure
conexao.Open()
cmd.ExecuteNonQuery()
conexao.Close()
Tenta assim
Coloca um Datetimepicker no lugar do textbox que apresenta a data
[Ô]INSERT INTO Clientes(Usuario,Senha,ConfSenha,Data)Values([ô][Ô] & txtUsuario.Text & [Ô][ô],[ô][Ô] & txtSenha.Text & [Ô][ô],[ô][Ô] & txtConfSenha.Text & [Ô][ô],[ô][Ô] & DateTimePicker1.Value & [Ô][ô])[Ô]
Tópico encerrado , respostas não são mais permitidas