O QUE TEM DE ERRADO EM MEU CODIGO
nao consigo inserir novos dados em meu banco de dados porque sera ja mudei minha rotina varias vezes e nao consegui uso o visual studio 2010
vejam a rotina.
Private Sub btncadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncadastrar.Click
Dim conexao As New SqlConnection([Ô]data source=.\sqlexpress;attachdbfilename=|datadirectory|\usuarios.mdf;integrated security=true;user instance=true[Ô])
Dim cmd As SqlCommand
Dim sql As String = [Ô]insert into usuarios(nome, senha)values(@nome,@senha)[Ô]
cmd = New SqlCommand(sql, conexao)
cmd.Parameters.AddWithValue([Ô]@nome[Ô], txtusuario.Text)
cmd.Parameters.AddWithValue([Ô]@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
End Sub
vejam a rotina.
Private Sub btncadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncadastrar.Click
Dim conexao As New SqlConnection([Ô]data source=.\sqlexpress;attachdbfilename=|datadirectory|\usuarios.mdf;integrated security=true;user instance=true[Ô])
Dim cmd As SqlCommand
Dim sql As String = [Ô]insert into usuarios(nome, senha)values(@nome,@senha)[Ô]
cmd = New SqlCommand(sql, conexao)
cmd.Parameters.AddWithValue([Ô]@nome[Ô], txtusuario.Text)
cmd.Parameters.AddWithValue([Ô]@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
End Sub
se alguem puder me ajudar a montar uma rotina para inserir dados em meu banco de dados agradeço.
Bom dia,
Mas aparece alguma mensagem de erro?
Mas aparece alguma mensagem de erro?
Cara, realmente é muito estranho. Testei o seu código aqui e deu certo, eu consigo inserir os dados. Deve ter alguma parte em seu código que está dando este [Ô]bug[Ô].
Tenta rever o código ou posta pra gente analisar.
Até mais.
Tenta rever o código ou posta pra gente analisar.
Até mais.
nao retorna mensagem nenhuma de erro
muito pelo contrario retorna a mensagem de[Ô] dados gravados com sucesso[Ô]
este e o codigo completo do meu formulario.
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class cadastro
[ô]Shared Sub main()
[ô]Dim conexao As New SqlConnection([Ô]data source=.\sqlexpress;attachdbfilename=|datadirectory|\usuarios.mdf;integrated security=true;user instance=true[Ô])
[ô]Dim cmd As SqlCommand = Sql.createcommand()
[ô] Try
[ô] conexao.Open()
[ô] Console.WriteLine([Ô]conexao aberta[Ô])
[ô] cmd.CommandText = [Ô]insert into usuarios values(@nome,@senha)[Ô]
[ô] cmd.Parameters.Add([Ô]@nome[Ô], SqlDbType.VarChar, 30)
[ô] Catch ex As Exception
[ô] End Try
[ô]End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
txtusuario.Text = [Ô][Ô]
txtsenha.Text = [Ô][Ô]
txtsenha2.Text = [Ô][Ô]
txtusuario.Focus()
End Sub
Private Sub btncadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncadastrar.Click
Dim conexao As New SqlConnection([Ô]data source=.\sqlexpress;attachdbfilename=|datadirectory|\usuarios.mdf;integrated security=true;user instance=true[Ô])
Dim cmd As SqlCommand
Dim sql As String = [Ô]insert into usuarios(nome, senha)values(@nome,@senha)[Ô]
cmd = New SqlCommand(sql, conexao)
cmd.Parameters.AddWithValue([Ô]@nome[Ô], txtusuario.Text)
cmd.Parameters.AddWithValue([Ô]@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
End Sub
Private Sub UsuariosBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.UsuariosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.UsuariosDataSet)
End Sub
Private Sub cadastro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]TODO: esta linha de código carrega dados na tabela [ô]UsuariosDataSet.usuarios[ô]. Você pode movê-la ou removê-la conforme necessário.
Me.UsuariosTableAdapter.Fill(Me.UsuariosDataSet.usuarios)
End Sub
Private Sub UsuariosBindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuariosBindingSource.CurrentChanged
End Sub
End Class
muito pelo contrario retorna a mensagem de[Ô] dados gravados com sucesso[Ô]
este e o codigo completo do meu formulario.
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class cadastro
[ô]Shared Sub main()
[ô]Dim conexao As New SqlConnection([Ô]data source=.\sqlexpress;attachdbfilename=|datadirectory|\usuarios.mdf;integrated security=true;user instance=true[Ô])
[ô]Dim cmd As SqlCommand = Sql.createcommand()
[ô] Try
[ô] conexao.Open()
[ô] Console.WriteLine([Ô]conexao aberta[Ô])
[ô] cmd.CommandText = [Ô]insert into usuarios values(@nome,@senha)[Ô]
[ô] cmd.Parameters.Add([Ô]@nome[Ô], SqlDbType.VarChar, 30)
[ô] Catch ex As Exception
[ô] End Try
[ô]End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
txtusuario.Text = [Ô][Ô]
txtsenha.Text = [Ô][Ô]
txtsenha2.Text = [Ô][Ô]
txtusuario.Focus()
End Sub
Private Sub btncadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncadastrar.Click
Dim conexao As New SqlConnection([Ô]data source=.\sqlexpress;attachdbfilename=|datadirectory|\usuarios.mdf;integrated security=true;user instance=true[Ô])
Dim cmd As SqlCommand
Dim sql As String = [Ô]insert into usuarios(nome, senha)values(@nome,@senha)[Ô]
cmd = New SqlCommand(sql, conexao)
cmd.Parameters.AddWithValue([Ô]@nome[Ô], txtusuario.Text)
cmd.Parameters.AddWithValue([Ô]@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
End Sub
Private Sub UsuariosBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.UsuariosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.UsuariosDataSet)
End Sub
Private Sub cadastro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]TODO: esta linha de código carrega dados na tabela [ô]UsuariosDataSet.usuarios[ô]. Você pode movê-la ou removê-la conforme necessário.
Me.UsuariosTableAdapter.Fill(Me.UsuariosDataSet.usuarios)
End Sub
Private Sub UsuariosBindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuariosBindingSource.CurrentChanged
End Sub
End Class
Apaga ou comenta todo código do botão que faz a gravação
Coloca nesse mesmo botão
me.close
E posta se fechou ou não o formulario
Coloca nesse mesmo botão
me.close
E posta se fechou ou não o formulario
sim ate fechou o formularios mas nada de inserir os dados no banco de dados.
Tópico encerrado , respostas não são mais permitidas